Проверьте на правильность плиз

[Agent[PNZ]]

Народ вот задача та:

вот то что у меня получилось, не пойму правильно или нет. Никак не могу подсчитать вручную блин.

program a1;
uses crt;
     const
     e=0.001;
var
   y,h,m,s,c,d:real;
   i:integer;
begin
     clrscr;
     readln(d);
     readln(c);
     y:=cos(exp(d));
     i:=0;
     m:=0;
     s:=0;
     while abs(m)<=e do
           begin
           inc(i);
           h:=abs(d-c)/i;
           s:=y+(y+h);
           m:=m+s;
           end;
writeln(m:4:4);
readln;
end.

[puporev]

Вот работающая программа для нахождения интеграла методом трапеций.
Только если вы совсем не знаете математику, она вам будет выдавать совсем не то, что вы ждете.
Подсказка: F(x) это совсем не f(x)dx.

program integral;
var
 n,i : integer;
 a,b,shag,sum,itog : real;

function F(x:real):real;
 begin
   F:=ввести интегрируемую функцию 
 end;
{======================================}

begin
 write('Начало интегрирования a = '); readln(a);
 write('Конец  интегрирования b = '); readln(b);
 write('Количество разбиений интервала n = '); readln(n);

 shag:=(b-a)/n;
 sum:=0;
 for i:=1 to n-1 do
   sum := sum + F(shag*i+a);
 sum := sum + (F(a)+F(b))/2;

 itog:=(b-a)/n * sum;
 writeLn('Интеграл = ', itog:0:5);
 readln
end.

[Настена95]

[nick]puporev[/nick], скажите пожалуйста,а какую функцию сюда надо ввести, где идёт F:=
function F(x:real):real;
begin
F:=ввести интегрируемую функцию
end;

[Настена95]

Сообщение от puporev

Вот работающая программа для нахождения интеграла методом трапеций.
Только если вы совсем не знаете математику, она вам будет выдавать совсем не то, что вы ждете.
Подсказка: F(x) это совсем не f(x)dx.

program integral;
var
 n,i : integer;
 a,b,shag,sum,itog : real;

function F(x:real):real;
 begin
   F:=ввести интегрируемую функцию 
 end;
{======================================}

begin
 write('Начало интегрирования a = '); readln(a);
 write('Конец  интегрирования b = '); readln(b);
 write('Количество разбиений интервала n = '); readln(n);

 shag:=(b-a)/n;
 sum:=0;
 for i:=1 to n-1 do
   sum := sum + F(shag*i+a);
 sum := sum + (F(a)+F(b))/2;

 itog:=(b-a)/n * sum;
 writeLn('Интеграл = ', itog:0:5);
 readln
end.

скажите пожалуйста,а какую функцию сюда надо ввести, где идёт F:=
function F(x:real):real;
begin
F:=ввести интегрируемую функцию
end;