Wissenschaftlicher Taschenrechner

[Thunderchild]

Mach ich vielleicht wirklich spaeter. Aber er ist ja immer noch nicht fertig. Hier nur mal eben die Version mit der korrigierten Klammernrechnung.

Zum Implementation: ich habe fuer die Operationen einen Aufzaehlungstyp, in dem alle verfuegbaren Operationen drin stehen. Dann habe ich in einem Array dieses Typs die Rangfolge festgehalten.

Delphi-Quellcode:

  tOperatorType=(oNone,oValue,oVariable,oExec,
                 oAdd,oSub,oMul,oDiv,
                 oFac,oRec,oAbs,oPO,oPC,
                 oLn,oLog,oRt,oSqrt,oPi,
                 oPwrE,oPwr10,oPwr,oSq,oCb,
                 oSin,oSinh,oASin,oASinh,
                 oCos,oCosh,oACos,oACosh,
                 oTan,oTanh,oATan,oATanh);
  const OperatorPriority:array[tOperatorType] of byte=(
                 9,0,0,9, 3,3,2,2, 1,1,1,5,4, 1,1,1,1,0, // ..Pi
                 1,1,1,1,1, 1,1,1,1, 1,1,1,1, 1,1,1,1);

Sodass ich dann in der Berechnungsprozedur (abgesehen von Spezialfaellen, die zuvor abgehandelt werden) nur noch eine Whileschleife drin hab:

Delphi-Quellcode:

  while (OperatorPriority[ReadOperator]<=OperatorPriority[NewOperator])
    and (OperatorCount>0) do begin
    temp:=CalculateOperation;
    PushOperand(temp);
  end;

ReadOperator liest den obersten Operator vom Stack, ohne ihn zu loeschen. CalculateOperation tut das dann mit loeschen und holt auch so viele Operanden vom Operandenstack, wie fuer die Operation benoetigt. Das Ergebnis wird dann auf den Operandenstack zurueck geschrieben, sodass es fuer das naechste CalculateOperation wieder als Operand verfuegbar ist.