{*************************************************************

         - - -   Le CyberZo‹de Qui Fr‚tille  - - -

                 .. le Web scientifique ..

  http://www.multimania.com/cyberzoide/info/turbo/turbo.htm
                 cyberzoide@multimania.com

***************************************************************}


Program ex28;

Uses Crt ;

Var i,j : Integer;
    x : Real ;
    test : Boolean ;

Procedure menu(i : Integer; test : Boolean) ;
Begin
WriteLn('  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»') ;
WriteLn('  º                       SuperCalculator    2.5                      º') ;
WriteLn('  ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ') ;
If test Then
Begin
WriteLn('Faire afficher le menu principal...');
End
Else
Begin
WriteLn('  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿') ;
WriteLn('  ³  Module : CALCUL DE FONCTION                   ³   Page :    ',i,'    ³') ;
WriteLn('  ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ') ;
WriteLn('  ³      Valeur de X      ³    Valeur de Y=f(X)    ³') ;
WriteLn('  ³                       ³                        ³') ;
End ;
End ;

Function f(x : Real) : Real ;
Begin
f:=Sqr(x)+x-x/11 ;
End;

BEGIN
ClrScr ;
i := 0 ;
j := 1 ;
test := False ;
menu(j,test) ;
x := 0 ;
Repeat
Inc(i) ;
x := x+50 ;
WriteLn('  ³',Round(x):12,'           ³',Round(f(x)):15,'         ³') ;
test := x>1700;
If ((i Mod 14)=0) Or test Then
Begin
WriteLn('  ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´') ;
WriteLn('  ³     Appuyez sur <ENTREE> pour continuer...     ³') ;
Write('  ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ') ;
ReadLn ;
ClrScr ;
Inc(j) ;
menu(j,test) ;
End ;
Until test ;
ReadLn ;
END.