{************************************************
                 Hugo Eti‚vant
     http://www.multimania.com/cyberzoide/
      e-mail : cyberzoide@multimania.com
      (pour une aide en Turbo Pascal 7.0)
*************************************************

TP 3, EXERCICE 1}

program serie;  {nom du programme}
uses crt;     {d‚claration de l'unit‚ utilis‚e}

procedure calcul(var sc:real);  {proc‚dure de calcul}
var r,b:real;    {d‚claration des variables temporaires}
    i,a:longint;
const termes=20;  {le nombre de termes de la suite est une constante}
begin
a:=1;b:=0;r:=0;sc:=0;
for i:=1 to termes do
begin
b:=1/(a*(a+2)*(a+4));
inc(a,4);
r:=r+b;
end;
{ci-dessus, calcul de la somme des quotients}
sc:=16*r+2;   {calcul de S}
end;

procedure affiche(sa:real);  {proc‚dure qui affiche le r‚sultat}
begin
writeln('La valeur approch‚e de la s‚rie S vaut : ',sa:0:10);
end;

var s:real; {d‚claration de la variable globale}

BEGIN   {d‚but du programme principal}
clrscr;    {efface l'‚cran}
calcul(s);   {appel de la proc‚dure param‚tr‚e "calcul"}
affiche(s);  {appel de la proc‚dure param‚tr‚e "affiche"}
readln;    {pause du programme jusqu'… qu'une touche soit ‚t‚ press‚e}
END.   {fin du programme principal}