home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / table.inc < prev    next >
Text File  |  1988-02-02  |  785b  |  22 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.  
  13.    Begin
  14.    GetInterval ('Tabellierung der Funktion', xmin, xmax, dx);
  15.    WriteLn ('x':m-n, spc, 'y':m, spc, 'y'#39:m+1, spc, 'y"':m); WriteLn;
  16.    x := xmin;
  17.    Repeat
  18.       WriteLn (x:m:n, spc, fn(x,0):m:n, spc, fn(x,1):m:n, spc, fn(x,2):m:n);
  19.       x := x + dx
  20.    until x > xmax
  21.    End;
  22.