Програмування на Фортрані 77 3
3.4.1. ПРИКЛАД ПРОГРАМИ, ЩО ВИКОРИСТОВУЄ СТАНДАРТНУ ФУНКЦІЮ
Відомо, що період T - час повного коливання простого математичного маятника завдовжки L - обчислюється за формулою
де g - Прискорення вільного падіння.
Наведена нижче програма зчитує значення Lng, обчислює T та друкує значення L, g та Т.
PROGRAM ЕХ32 CCCC КОЛИВАННЯ ПРОСТОГО МАЯТНИКА PARAMETER REAL L READ MsLsG T=2.0*PI*S?RT SORT(Х> SQRTCA+B/C)
Необхідно зазначити таке:
а) аргументом функції SQRT не може бути ціла константа, ціла змінна або вираз. Наприклад, якщо у програмі зустрінеться вираз SQRT (2), то неминуча помилка;
б) квадратний корінь із негативного числа не є речовим числом, тому негативний аргумент функції SQRT неприпустимий;
в) значення функції SQRT(X) називається арифметичним квадратним коренем із числа х, це невід'ємне число, квадрат якого дорівнює х;
г) корінь квадратний із числа х можна також обчислити, звівши х у ступінь 0.5. Але набагато ефективніше використовувати функцію SQRT, так як зведення X у ступінь 0.5 (х * * * 0.5) передбачає обчислення експоненти EXP (0.5 * LOG (X)) -
2.Тригонометричні функції (SIN, COS, TAN). Фортран 77 дозволяє обчислювати значення тригонометричних функцій синус, косинус та тангенс. Їх аргументи мають бути речовими і бути величиною кута в радіанах. Значення цих функцій також є речовими числами. Розглянемо приклади:
SINC8.5> COSOO TANC А**2+В**2)
а) градусний захід кута переводиться в радіанну множенням на число тт/180. Наприклад, 23 =23X77/180 радіан, так що математичний вираз sin 23° на Фортрані 77 запишеться якSIN (23.0 *Р1/180.0) - Якщо величини кутів потрібно переводити в радіальну міру, то доцільно попередньо обчислити множник PI/180.0 і запам'ятати його в якомусь осередку, щоб не обчислювати цей множник повторно щоразу при переведенні величини кута в радіани;
б) аргументом функцій SIN, COS і TAN не може бути ціла константа, ціла змінна або вираз.
3. Зворотні тригонометричні функції (ASIN, AC0S, AT AN). У Фортрані 77 також можна обчислювати значення зворотних тригонометричних функцій aresin, arccos і arctg, відповідні стандартні функції позначаються ASIN, ACOS, ATAN. Їхні аргументи мають бути речові величини, а значеннями будуть речові числа, що становлять головні значення зворотних тригонометричних функцій у радіанах. Попередня 20 21 22 23 24 25 .. 113 >> Наступна