home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 04 / quellen / table.inc < prev   
Encoding:
Text File  |  1979-12-31  |  1.0 KB  |  28 lines
  1. (*****************************************************************************)
  2. (*                                  TABLE.INC                                *)
  3. (*                                                                           *)
  4. (*                         Erstellen einer Wertetabelle von f                *)
  5. (*****************************************************************************)
  6.  
  7. Procedure Table;
  8.  
  9.    Const spc = '   ';
  10.  
  11.    Var   x,xmin,xmax,dx :Real;
  12.          key : Char;
  13.  
  14.    Begin
  15.    GetInterval ('Tabellierung der Funktion', xmin, xmax, dx);
  16.    WriteLn ('x':m-n, spc, 'y':m, spc, 'y'#39:m+1, spc, 'y"':m); WriteLn;
  17.    x := xmin;
  18.    Repeat
  19.       if keypressed THEN
  20.       BEGIN
  21.         read(kbd,key);
  22.         if key = ^s THEN read(kbd,key)
  23.       END;
  24.       WriteLn (x:m:n, spc, fn(x,0):m:n, spc, fn(x,1):m:n, spc, fn(x,2):m:n);
  25.       x := x + dx
  26.    until x > xmax
  27.    End;
  28.