помогиде понять когд программы на паскале

[grethin999]

условие программа для приближенного вычисления интеграла изображенного ниже на картинке методом трапеций

код программы
Program P2;
var a,b,s,h,x:rasl;
i,n:integer;
function F(x:real):real;
begin
F:=5*x/(x*x+4);
end;
begin
clrscr;
writeln('введите приделы интегрирования');
write('A=');readln(a);
write('B=');readln(b);
write ('введите число разбиений');
readln(n);
h:=(b-a)/n;
s:=(F(a)+F(b))/2;
x:=a;
for i:=1 to n-1 do
begin
x:=x+h;
s:s+F(x);
end;
s:h*s;
write('значение интеграла',s:10:4);
end.
Мин

[lxa85]

grethin999, начнем с того, что программа работает не правильно.
В ней совершенно отсутствуют комментарии, поэтому приходится смотреть работу метода в справочниках.
(Метод трапеций (http://ru.wikipedia.org/wiki/Метод_трапеций))s:s+F(x); s:h*s; »
синтаксические ошибки.h:=(b-a)/n;
s:=(F(a)+F(b))/2;
x:=a;
for i:=1 to n-1 do begin
x:=x+h;
s:s+F(x);
end; »
логическая ошибка. Переменные высоты "h" и площади "s" должны вычисляться для каждого промежутка.

P.S. Обрамляйте пожалуйста код тегом code (символ на панели редактирования -- #) Пример использования: код программы . Так же ставьте точки в конце предложений, а новые начинайте с заглавной буквы. Так проще читать и соотв. помогать.