home *** CD-ROM | disk | FTP | other *** search
- (* ------------------------------------------------------ *)
- (* TERMDEMO.PAS *)
- (* ------------------------------------------------------ *)
- PROGRAM TermDemo;
-
- USES Term;
-
- VAR
- T : STRING;
-
- BEGIN
- x := 0; y := 0; z := 0;
-
- { Demo 1 }
- Write('Term (z.B. 4+5*6^(0.5+4*(2+1))-2/10) : ');
- ReadLn(T);
- IF Pruef(T) THEN Writeln(T,' = ', Loes(T):7:3);
-
- { Demo 2 }
- Writeln; Write('Funktionsterm ');
- Write('(z.B. X^2 oder X^5-5*X^3 oder 2^X): ');
- ReadLn(T);
- IF Pruef(T) THEN BEGIN
- X := -6;
- REPEAT
- X := X + 1; WriteLn(X:2:0,' : ', Loes(T):7:3);
- UNTIL X = 5;
- END;
-
- { Demo 3 }
- WriteLn; Write('Potenzreihen: ');
- T := 'X^Y'; Writeln(T);
- X := 1;
- REPEAT
- X := X + 1; Write('X=', X:2:0, ': '); Y := 0;
- REPEAT
- Y := Y + 1; Write(Loes(T):7:0, ', ');
- UNTIL Y = 6;
- WriteLn;
- UNTIL X = 10;
- END.
- (* ------------------------------------------------------ *)
- (* Ende von TERMDEMO.PAS *)