Das Modul Functions II

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite]

FuncDemo.m2
MODULE FuncDemo;

   FROM Functions IMPORT Function, ParseFunction,
      FirstParam, NextParam, SetFuncParam, EvalFunction;
   FROM InOut IMPORT WriteString, WriteLn, ReadString;
   FROM RealInOut IMPORT ReadReal, WriteReal;
   IMPORT StdFuncs;

   VAR
      functxt, parname: ARRAY [0..63] OF CHAR;
      func: Function;
      val: REAL;

BEGIN
   WriteString("function: "); ReadString(functxt);
   IF ParseFunction(functxt, func) THEN
      FirstParam(func);
      WHILE NextParam(func, parname) DO
         WriteString(parname); WriteString(" = ");
         ReadReal(val);
         SetFuncParam(func, parname, val);
      END;
      WriteReal(EvalFunction(func), 1); WriteLn;
   ELSE
      WriteString("Syntaxfehler!"); WriteLn;
   END;
END FuncDemo.

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite]
Copyright © 1999 Andreas Borchert, in HTML konvertiert am 13.01.1999