Bruchrechnung und das kürzen...

[Anigmos]

Zitat von TonyR:

Aber ich hoffe du verstehst meine Vorgehensweise hier:

Delphi-Quellcode:

procedure kurzen(Ausgangsbruch, Ergebnisbruch: Tbruch);
begin

Ergebnisbruch.zahler:=Round(Ausgangsbruch.zahler div ggt(Ausgangsbruch.zahler,Ausgangsbruch.nenner));

Ergebnisbruch.nenner:=Round(Ausgangsbruch.nenner div ggt(Ausgangsbruch.zahler,Ausgangsbruch.nenner));

end;

So geht das nämlich => dürfte ja selbsterklärend sein
Und jetzt kannst du deine eigene Prozedur mit deinen 100 Variablen schreiben, oder nicht?

ja ist es war irgendwie grade neben mir aber da kommt mir ein neues problem in denn Sinn...Wie kann ich die ganzzahl anzeigen lassen? ist das dann nicht ganzezahl:= ???? div ??? ICh hoffe du verstehst mein Problem