как расписать задачу по вычислению интеграла методом трапеций (см. внутри!) --> информатика

Question

как расписать задачу по вычислению интеграла методом трапеций (см. внутри!) --> информатика

Пользователь удален Ученик (125), закрыт 15 лет назад

учитель нам дал текст программы вычисления ИНТЕГРАЛА методом ЛЕВОГО прямоугольника,

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

предлагаю исходный текст программы:

program integral_met_lev_preamoug;
var i,n:integer;
a,b,x,h,dx,s:real;
function f(x:real):real;
begin
f:=srq(x)+2*x+5;
end;
BEGIN
write('a=');readln(a);
write('b=');readln(b);
write('n=');readln(n);
h:(b-a)/n;
s:=0;
dx:=a;
for i:=1 to (n-1) do begin
x:=dx+i*h;
s:=s+f(x)*h;
end;
writeln('integral=',s:6:2);
readln
end.

представьте ваш вариант, пожалуйста,
или напишите какие изменения стоит внести для метод трапеций.
СПАСИБО!

Дополнен 15 лет назад

мне интересно самой это понять, мы этот метод не проходим, и я пока ещё в 12-ом классе лицея...

Дополнен 15 лет назад

ADV, всё работает!
спасибо большое!

Answer 1

Вначале почти твой вариант
в конце - вариант с трапецией

program integral_met_lev_preamoug;
var
i,n:integer;
a,b,x,h,dx,s:real;
y, oldy: real;

function f(x:real):real;
begin
f:=sqr(x)+2*x+5;
end;

BEGIN
write('a=');readln(a);
write('b=');readln(b);
write('n=');readln(n);
h:=(b-a)/n;
s:=0;

for i:=1 to (n-1) do
begin
x:=a+i*h;
s:=s+f(x)*h;
end;
writeln('integral=',s:6:2);
readln;

s:=0;
oldy :=f(a);
for i:=1 to (n-1) do
begin
x:=a+i*h;
y := f(x);
s:=s+( y + oldy )/2*h;
oldy := y;
end;
writeln('integral=',s:6:2);
readln;

end.

Answer 2

я бы поступили по другому - на кафедре взяла методичку - и 99%, что там есть готовая программа.