Вычисление интегралов методом трапеций

[irsen22]

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

код программы
Код Pascal

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.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!
Модератор.

[Sciv]

И с чем там разбираться-то?
1) Два раза равно пропущено в операторе присваивания - не запустится сей код.
2) X объявлена как глобальная переменная и как параметр функции - как бы беды не случилось, пересечение имен не есть хорошо.

[Mad_Cat]

и

приделы

пишется как прЕделы

[Sciv]

пишется как прЕделы

Не-не, тут все правильно! Они ведь приделаны к (!)интервалу

[Bilymo]

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

:
Program P2;
var a,b,s,h,x:rasl;
end.

А почему в строчке rasl, может real?