home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 06 / fkeditdm.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-05-18  |  258 b   |  15 lines
  1. { Beispeilprogramm zur Demonstration von EDIT.pas  }
  2.  
  3. PROGRAM tabelieren;
  4.  
  5. {$i FUNKTION.inc  }
  6.  
  7. VAR i : INTEGER;
  8.  
  9. BEGIN
  10.   ClrScr;
  11.   WriteLn('     x                 F(X)';
  12.   WriteLn;
  13.   FOR i := -8 TO 8 DO WriteLn(i:6,f(i):20:3)
  14. END.
  15.