إضافة Menu ل Console

[kachwahed]

واجهات DOS العتيقة تعرفونها:

PHP كود :

Uses 
  Crt;

Var
  I, J: Integer;
  X: Real;
  Check: Boolean;

Procedure Menu(I: Integer; Check: Boolean);
Begin
  WriteLn(' ----------------------------------------------------------------');
  WriteLn(' I SuperCalculator 2.5 I');
  WriteLn(' ----------------------------------------------------------------');
  If Check Then
    WriteLn('Faire afficher le menu principal...')
  Else
  Begin
    WriteLn
      (' ----------------------------------------------------------------');
    WriteLn(' I Module : CALCUL DE FONCTION I Page : ', I, ' I');
    WriteLn
      (' ----------------------------------------------------------------');
    WriteLn(' I Valeur de X I Valeur de Y=f(X) I');
    WriteLn(' I I I');
  End;
End;

Function f(X: Real): Real;
Begin
  f := Sqr(X);
End;

BEGIN
  ClrScr;
  I := 0;
  J := 1;
  Check := False;
    Menu(J, Check);
  X := 0;
  Repeat
    Inc(I);
    X := X + 50;
    WriteLn(' I', Round(X): 12, ' I', Round(f(X)): 15, ' I');
    Check := X > 1700;
    If ((I Mod 14) = 0) Or Check Then
    Begin
      WriteLn(' --------------------------------');
      WriteLn(' I Appuyez sur <ENTREE> pour continuer... I');
      Write(' --------------------------------');
      ReadLn;
      ClrScr;
      Inc(J);
      Menu(J, Check);
    End;
  Until Check;
  ReadLn;

END. 


(ينفذ على TP أو BP فقط)
ألم ترى مثلها ؟