Показать сообщение отдельно
Старый 27.12.2009, 15:05   #4 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
По умолчанию

Код:
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 можно сделать еще и третью функцию
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070