Ecrire un programme qui permet de donner une valeur approchée de l'intégrale d'une fonction  par la méthode des rectangles.La fonction f est défini par: f(x)=1/1+x² .

Correction Pascal:
program integration_rectangle;
uses wincrt;
var k,a,b:real;
     n:integer;

function f(x:real):real;
begin
f:=1/(1+x*x)
end;

function rectangle(a,b:real;n:integer):real;
var k:integer;
    h,x,s:real;
begin
 s:=0.0;
    h:=(b-a)/n;
      x:=a+h/2;
         for k:=1 to n do
           begin
            s:=s+f(x);
             x:=x+h;
          end;
rectangle:=s*h;
end;

 {programme principale}
 begin
  writeln('Intégration par la méthode des rectangles');
 write('Borne inférieur(a): ');
 read(a);
 writeln;

 repeat
 write('Borne supérieur(b): ');
 read(b);
 writeln;
 until b>a;

  repeat
 write('Nombre d"intervalle: ');
 read(n);
 writeln;
 until n>0;
 k:=rectangle(a,b,n);
 writeln('Valeur de l"intégrale est = ',k);
 end.