Технический форум - Программирование с использованием функций

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

Программирование с использованием функций

Люди добрые,помогите! Вложение 6398

Одной темы достаточно, не нужно создавать повторы.

срочно надо,вот создал-надеюсь на эффективность!если можешь, помоги,пожалуйста!!

Код:

Program C;

const x=1.426;

m=9;

var

C,dt,a: real;



Function f1(mf,dtf:real):real;

begin

 f1:=mf*dtf;

end; {f1}



Function f2(mm,dd:real):real;

begin

 f2:=f1(mm,dd)/sqr(cos(f1(mm,dd)));

end; {f2}



Begin

 dt:=sin(x)/m;

 writeln('Введите значение а');

 readln(a);

 C:=a*x*(f2(m,dt)+f2(m,dt)*m/cos(f1(m,dt)))/(2*dt);

 writeln ('C= ',C);

 readln;

end.

Вроде бы так, но не проверял. Кстати, для вычисления cos можно сделать еще и третью функцию :)