home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 11 / tricks / termdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-08-11  |  1.0 KB  |  43 lines

  1. (* ------------------------------------------------------ *)
  2. (*                   TERMDEMO.PAS                         *)
  3. (* ------------------------------------------------------ *)
  4. PROGRAM TermDemo;
  5.  
  6. USES Term;
  7.  
  8. VAR
  9.   T : STRING;
  10.  
  11. BEGIN
  12.   x := 0; y := 0; z := 0;
  13.  
  14. { Demo 1 }
  15.   Write('Term (z.B. 4+5*6^(0.5+4*(2+1))-2/10) : ');
  16.   ReadLn(T);
  17.   IF Pruef(T) THEN Writeln(T,' = ', Loes(T):7:3);
  18.  
  19. { Demo 2 }
  20.   Writeln; Write('Funktionsterm ');
  21.   Write('(z.B. X^2 oder X^5-5*X^3 oder 2^X): ');
  22.   ReadLn(T);
  23.   IF Pruef(T) THEN BEGIN
  24.     X := -6;
  25.     REPEAT
  26.       X := X + 1; WriteLn(X:2:0,' : ', Loes(T):7:3);
  27.     UNTIL X = 5;
  28.   END;
  29.  
  30. { Demo 3 }
  31.   WriteLn; Write('Potenzreihen: ');
  32.   T := 'X^Y'; Writeln(T);
  33.   X := 1;
  34.   REPEAT
  35.     X := X + 1; Write('X=', X:2:0, ':  '); Y := 0;
  36.     REPEAT
  37.       Y := Y + 1; Write(Loes(T):7:0, ', ');
  38.     UNTIL Y = 6;
  39.     WriteLn;
  40.   UNTIL X = 10;
  41. END.
  42. (* ------------------------------------------------------ *)
  43. (*                Ende von TERMDEMO.PAS                   *)