home *** CD-ROM | disk | FTP | other *** search
/ Best of German Only 2 / romside_best_of_german_only_2.iso / dos / lernbild / itg / entpack.exe / BEISPIEL / FKT-TEST.PAS < prev    next >
Pascal/Delphi Source File  |  1992-02-08  |  305b  |  18 lines
  1. PROGRAM Test;
  2. VAR
  3.   n : INTEGER;
  4.   Term : STRING[40];
  5. BEGIN
  6.   Term := "x^2";
  7.   REPEAT
  8.     Write("Funktionsterm f(x)=");
  9.     ReadLn(Term);
  10.     DefiniereFunktionsterm(Term);
  11.   UNTIL FunktionstermFehler = 0;
  12.   FOR n := 1 TO 10 DO BEGIN
  13.     WriteLn(n:5, Funktionswert(n):10:5);
  14.   END;
  15. END.
  16.  
  17.  
  18.