{ znajdowanie pola pod wykresem funkcji }

Program metoda_trapezow;

uses crt;

function f(x:double):double;

begin

f:=exp(-x)*sin(x)

end;

var

a,b,suma,dx:double;

i,n:longint;

begin

clrscr;

write('Podaj a: ');

readln(a);

write('Podaj b: ');

readln(b);

write('Podaj n: ');

readln(n);

dx:=(b-a)/n;

suma:=(f(a) + f(b))/2;

for i:=1 to n-1 do

suma:=suma + f(a+i*dx);

writeln('Pole = ',suma*dx:15:12);

readkey;

end.

---