ИНТЕГРАЛ((

[oblachko]

ЛЮДИ!!Вот у меня эта программа высчитывает сумму площадей трапеций(одна трапеция-один отрезок на интервале) из которых состоит интервал!!!!Подскажите пожалуйста, как находить сумму площадей трёх центральных трапеций???
Заранее благодарю=))

program integral;
var
x,x1,dx,y,e,s1,s,a,b:real;
begin
readln(a,b,e);
x:=0;
x1:=0.001;
repeat
begin
x:=x+0.00000000000000000001;
x1:=x1-0.00000000000000000001;
dx:=x1-x;
end
until
(abs(sqr(x1))-(sqr(x+dx)))<e;
while (a<b) do
begin
s1:=(sqr(a)+sqr(a+dx))*dx/2;
a:=a+dx;
s:=s+s1;
end;
write(s);
readln;
end.

[Stilet]

Чет недогнал... Сложить площади чтоли не могешь?

[oblachko]

ДА НЕ!!!НАДО ВЫДЕЛИТЬ ТРИ ЦЕНТРАЛЬНЫЕ ТРАПЕЦИИ И ВЫЧИСЛИТЬ СУММУ ИХ ПЛОЩАДЕЙ!!!!КАК ВЫДЕЛИТЬ ЭТИ ТРИ ЦЕНТРАЛЬНЫЕ ТРАПЕЦИИ?????ВОТ ИХ СУММУ И НАДО НАПИСАТЬ((((

Я УЖЕ ЗАПАРИЛСЯ((((

Сложить площади трёх центральных трапеций!!!!Именно это я и не могу сделать((((

[Stilet]

Высчитывай колическтво трапеций.
Записывай каждую площать в массив
Потом средняя трапеция - Кол-во в массиве деленное на два
А рядом лежащие с ней на единицу отличаются.

Усек?

[oblachko]

Bolshoe spasibo stilet.