Ich versuch &verfehle beim Programmieren eines Bruchrechners

[Scryless]

...Also ich programmiere einen Bruchrechner , jedoch hab ich keinen verfluchten Plan ,was in die Prozedur rein soll, damit ich mit dem Bruchrechner Brüche ausrechnen kann.....ich habs versucht bei + , - , * , div....er zeigt mir fehler an!

Bruchrechner zu programmieren ist etwas anders,als einen gewöhnlichen TASCHENRECHNER zu gestalten - also ich hab euch hier meine OBERFLÄCHE des Bruchrechners beigelegt,,wäre nett,,,wenn ihr mir mal die Prozedur für +,-,* und div angibt........thanks,,,,

ich hab nen Attachment angehängt,,,,,bitte HILFT,,,und schaut euch das an,,,,,vielleicht habt IHR nen besseren Überblick!

Ich habs MIT DIESER prozedur versucht.....kommt aber immer ne FEHLER!:



az := e_z1;
an := e_n1;
bz := e_n2;
bn := e_z2;

If b_plus Then Begin
az := az * bn; {erweitern}
bz := bz * an;
an := an * bn:
{bn := bn * an:}
ez := az + bz; {rechnen}
en := an:
End;
If b_minus Then Begin
az := az * bn; {erweitern}
bz := bz * an;
an := an * bn:
{bn := bn * an:}
ez := az - bz; {rechnen}
en := an:
End;
If b_mal Then Begin
ez := az * bz; {rechnen}
en := an * bn:
End;
If b_div Then Begin
ez := az * bn; {rechnen}
en := an * bz:
End;

{kürzen}
For I := Min(Abs(ez), Abs(en)) downto 2 do
If (ez mod I2 = 0) and (en mod I2 = 0) Then Begin
ez := ez div I2;
en := en div I2;
Break;
End;

e_ergz := ez;
e_ergn := en;







getestet,aber es kommt immer wieder folgender FEHLER:


Operator not applicable to this operand type