home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / interval.inc < prev    next >
Encoding:
Text File  |  1988-02-02  |  729 b   |  19 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); WriteLn;
  14.    Write ('im Bereich von xmin=');  Read (a);
  15.    Write (' bis xmax=');            Read (b);
  16.    Write (' mit Schrittweite dx='); Read (d);
  17.    WriteLn; WriteLn
  18.    End;
  19.