Показать сообщение отдельно
Старый 25.12.2009, 23:31   #3 (permalink)
DDS
Member
 
Регистрация: 15.02.2009
Сообщений: 695
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 523
По умолчанию

Код:
var h,dx,x,result:real;
function visl(h,dx,x:real):real;
  begin
  visl:=h/3*(sqr(dx)*sqr(cos(x+3*dx/sqr(h))))-dx*sqr(cos(x+dx/h))-sqr(dx)*sqr(cos(x+2*dx/sqr(h)));
  end;
begin
 x:=2.5094;
 dx:=x/19;
 h:=x/8;
 result:=visl(h,dx,x);
 writeln(result:2:10);
 readln;
end.
Вроде так.

Последний раз редактировалось DDS; 25.12.2009 в 23:36
DDS вне форума   Ответить с цитированием
Ads

Яндекс

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