home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / menu3.inc < prev    next >
Encoding:
Text File  |  1988-02-02  |  2.1 KB  |  73 lines
  1. (*****************************************************************************)
  2. (*                                 MENU3.INC                                 *)
  3. (*                                                                           *)
  4. (*                      Menüsteuerung der Kurvendiskussion                   *)
  5. (*****************************************************************************)
  6.  
  7. Procedure Menu;
  8.  
  9.    Var   Key           :Char;
  10.          Quit,ValidKey :Boolean;
  11.  
  12.    Const MenuItems  = 8;
  13.          MenuText   :Array [0..MenuItems] of String [15] = (
  14.                     'Programmende  ',
  15.                     'Wertetabelle  ',
  16.                     'Nullstellen   ',
  17.                     'Extremwerte   ',
  18.                     'Wendestellen  ',
  19.                     'Integral      ',
  20.                     'Symmetrie     ',
  21.                     'Monotonie     ',
  22.                     'Graph zeichnen');
  23.  
  24.  
  25.    Procedure SetUpScreen;
  26.  
  27.       Var i :Integer;
  28.  
  29.       Begin
  30.       ClrScr;
  31.       WriteLn; WriteLn; WriteLn;
  32.       WriteLn ('-----------------------------------------------':64);
  33.       WriteLn ('>>>>>   K u r v e n d i s k u s s i o n   <<<<<':64);
  34.       WriteLn ('-----------------------------------------------':64);
  35.       WriteLn; WriteLn;
  36.       For i:=0 to MenuItems do
  37.          Begin
  38.          WriteLn (MenuText[i]:44, '  =  ', i);
  39.          End;
  40.       WriteLn;
  41.       Write ('Bitte wählen:      ':49);
  42.       End;
  43.  
  44.  
  45.    Begin
  46.    Quit := false;
  47.    Repeat
  48.       SetUpScreen;
  49.       Repeat until KeyPressed;
  50.       Read (KBD, Key);
  51.       ValidKey := true;
  52.       Case Key of
  53.          '0': Quit := true;
  54.          '1': Table;
  55.          '2': FindRoots;
  56.          '3': FindExtremeValues;
  57.          '4': FindFlexPoints;
  58.          '5': Integrate;
  59.          '6': CheckSymmetry;
  60.          '7': CheckMonotony;
  61.          '8': DrawGraph;
  62.          else
  63.             ValidKey := false;
  64.          End;
  65.       If ValidKey and not Quit then
  66.          Begin
  67.          WriteLn; Write ('Weiter mit beliebiger Taste .....');
  68.          Read (KBD, Key)
  69.          End
  70.    until Quit;
  71.    ClrScr
  72.    End;
  73.