program pi; {Calcul de valeurs approchées de Pi, TP6}


CONST EPS = 10e-7;
CONST FORMAT = 6;


{uses crt;}

procedure dicho(precision :real);
var a,b,c,ancienne_valeur : real;
   nb_etapes		  : integer;
begin
   { a remplir }
   writeln('Dichotomie : ',c:FORMAT:FORMAT,' en ',nb_etapes,' étapes')
end;

procedure newton(depart,precision :real);
var p,ancienne_valeur : real;
   nb_etapes	      : integer;
begin
   { a remplir }
   writeln('Newton : ',p:FORMAT:FORMAT,' en ',nb_etapes,' étapes');
end;


procedure serie(precision : real);
var terme_courant, somme_partielle,ancienne_valeur : real;
   indice_courant				   : integer;
begin
   { a remplir }
   writeln('Série : ',somme_partielle:FORMAT:FORMAT,' en ',indice_courant, ' étapes')
end;

function rectangles(n :integer ):real;
var somme : real;
   i	  : integer;
begin
   { a remplir }
end;


function trapezes(n :integer ):real;
var somme : real;
   i	  : integer;
begin
   { a remplir }
end;

function simpson(n :integer ):real;
var somme : real;
   i	  : integer;
begin
   { a remplir }
end;


var k:integer;
   
begin
   {corps du programme :  les tests}

   dicho(EPS);
   readln;

   newton(3.0,EPS);
   readln;

   serie(EPS);
   readln;

   for k:=1 to 7 do writeln('rectangles(',10 POW k,')=',
			    rectangles(10 POW k):FORMAT:FORMAT);
   readln;

   for k:=1 to 5 do writeln('trapezes(',10 POW k,')=',
			    trapezes(10 POW k):FORMAT:FORMAT);
   readln;

   for k:=1 to 5 do writeln('simpson(',10 POW k,')=',
			    simpson(10 POW k):FORMAT:FORMAT);
   readln;
end.