Задачка в Pascal

[gg_!]

Задачка в Pascal

Всем здрасти, если кто может помочь буду оч признателен Завтра лаба, точнее уже сегодня, а я так и не одуплю как решить задачу. В общем суть в следующем:

Написать программу, которая вычисляет определенный интеграл по методу трапеции и методом Симпсона(или Симсона)


Заранее спасибо...

 

[Vladimir_S]

Всем здрасти, если кто может помочь буду оч признателен Завтра лаба, точнее уже сегодня, а я так и не одуплю как решить задачу. В общем суть в следующем:

Написать программу, которая вычисляет определенный интеграл по методу трапеции и методом Симпсона(или Симсона)


Заранее спасибо...

СимПсона. Без проблем. Обратите внимание - значение n должно быть четным!!!

VAR
a,b,h,S1,S2:REAL;
n,i:INTEGER;

FUNCTION f(x:REAL):REAL;
BEGIN
{ Enter the function furmula }
f:=Sin(x); { for example }
END;

BEGIN
Write('n (EVEN value!!!) = '); ReadLn;
Write('a = '); ReadLn(a);
Write('b = '); ReadLn(b);
h:=(b-a)/n;
S1:=0;
FOR i:=1 TO n-1 DO
S1:=S1+f(a+h*i)*h;
S1:=S1+0.5*(f(a)+f(b))*h;
S2:=0;
FOR i:=1 TO n div 2 DO
S2:=S2+f(a+h*(2*i-1))*4;
FOR i:=1 TO (n div 2)-1 DO
S2:=S2+f(a+h*2*i)*2;
S2:=S2+f(a)+f(b);
S2:=S2*h/3;
WriteLn('Trapezoid: ', S1);
WriteLn('Parabolic: ', S2);
ReadLn;
END.

Проверено. Работает. А если помощь опоздала, то уж не взыщите - сами дотянули.