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