Результат работы программы

S= 1.68

С использование инструмента функций в Фортране вычисление

можно описать как собственную внутреннюю функцию с одним формальным аргументом x после слова contains. А в программе просто использовать ее вызовы.

Program s_func

Real, parameter:: pi=3.1415926

Real x, dx, s

X=pi/8

Dx=0.01

S=f(x+dx)/f(x-dx)+f(x)! вызов функции

Write(*,’(a, f5.2)’), ‘s=’, s

Contains

Function f(x)! начало функции

Real x

F=(sin(x)+cos(x))/(x+exp(x))! вычисление выражения, результат!присваивается имени функции

End function f! конец функции

end

Результат работы программы

S= 1.68