Bruchrechnung und das kürzen...

[Dipl Phys Ernst Winter]

TonyR"
Function Kuerzen(zaehler,nenner:integer):Tbruch; Warum übergibst Du den zu kürzenden Bruch zerpflückt in Zähler und Nenner?
(delphi]Ergebnisbruch.zahler:=Round(Ausgangsbruch.zahler div ggt(Ausgangsbruch.zahler,Ausgangsbruch.nenner));
[/delphi]
Was soll das Round? Das Ergebnis von div ist schon ein Integer!
Frage: Wird der ungekürzte Bruch wirklich noch gebraucht? Sonst
procedure Kuerzen(var Bruch: TBruch); Dipl Phys Ernst Winter