пятница, 22 февраля 2013 г.

Метод трапеции

На отрезке [a, b] заданы функции f1(x) и f2(x). Вычислить площадь фигуры, закключенной между этими функциями методом трпеции

A=0; B=Pi/2 ; f1(x)=cos(x); f2(x)= ось OX


var a,b,S,h,int,int2: real;
i,n: integer;

function f(x: real): real;
begin
f:=cos(x);
end;

begin
n:=2;
a:=0;
b:=PI/2;

h:=(b-a)/n;
for i:=1 to n-1 do
S:=S+f(a + h*i);
int:=h*((f(a)+f(b))/2+S);

while abs(int-int2)>0.01 do
begin
n:=n*2;
s:=0;
int2:=int;
h:=(b-a)/n;
for i:=1 to n-1 do
S:=S+f(a + h*i);
int:=h*((f(a)+f(b))/2+S);
end;
writeln(int, ' ', n);
readln;
end.