informatyki i systemów mikroprocesorowych

program metoda_prostokatow;
uses crt;
var
 a,b:real;
 n:integer;
function funkcja(x: real): real;
  begin
    funkcja:=sin(x);
  end;
function poleprostokat(a,b: real; n:integer):real;
var
  pole:real;
  w,xi:real;
  i:integer;
begin
  pole:=0;
  w:=(b-a)/n;
  xi:=a+w/2;
  while xi<b do
    begin
      pole:=pole+funkcja(xi);
      xi:=xi+w;
    end;
  poleprostokat:=w*pole;
end;
begin
  clrscr;
  write('Podaj dolna granice przedzialu: ');
  readln(a);
  write('Podaj gorna granice przedzialu: ');
  readln(b);
  write('Podaj liczbe krokow: ');
  readln(n);
  writeln('Pole=',poleprostokat(a,b,n));
  repeat until keypressed;
end.