home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 04 / quellen / interval.inc < prev    next >
Encoding:
Text File  |  1979-12-31  |  896 b   |  24 lines
  1. (*****************************************************************************)
  2. (*                             INTERVAL.INC                                  *)
  3. (*                                                                           *)
  4. (*                      Einlesen von Intervallparametern                     *)
  5. (*****************************************************************************)
  6.  
  7. Type StringType = String [255];
  8.  
  9. Procedure GetInterval (Title :StringType; Var a,b,d :Real);
  10.  
  11.    Begin
  12.    ClrScr;
  13.    WriteLn (Title);
  14.    REPEAT
  15.      WriteLn;
  16.      formulaln (a,'im Bereich von xmin = ');
  17.      formulaln (b,'           bis xmax = ');
  18.    UNTIL a < b;
  19.    REPEAT
  20.      formulaln (d,'mit Schrittweite dx = ')
  21.    UNTIL d > 0.0;
  22.    WriteLn; WriteLn
  23.    End;
  24.