home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 04 / quellen / formula.inc < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.0 KB  |  34 lines
  1.  
  2.  
  3. PROCEDURE formula(VAR x : REAL;prompt : strg);
  4. VAR term             : calc_string;
  5.     vptr             : calc_prog;
  6.     vartab           : calc_vartab;
  7.  
  8. BEGIN
  9.   REPEAT
  10.     readstr(term,1,0,30,prompt);
  11.     (* wer die Funktion 'WhereY' auf seinem Rechner verfuegbar hat, sollte *)
  12.     (* die obige Zeile durch                                               *)
  13. (*  readstr(term,1,whereY,sizeof(Calc_String)-1,prompt);                   *)
  14.     (* ersetzen ! Die 0 ist ein Trick !!!                                  *)
  15.     WHILE Pos(' ',term) = 1 DO
  16.       Delete(term,1,1);
  17.     IF term = '' THEN term := '0';
  18.     term := term +';';
  19.     vartab := nil;
  20.     compileexpression(term,vartab,vptr);
  21.     if calcresult THEN x := calcexpression(vptr,vartab);
  22.   UNTIL calcresult;
  23.   killexpression(vptr);
  24.   killvartab(vartab);
  25. END;
  26.  
  27. PROCEDURE formulaln(VAR x : REAL; prompt : strg);
  28.  
  29. BEGIN
  30.   formula(x,prompt);
  31.   Writeln
  32. END;
  33.  
  34.