Bruchrechnung und das kürzen...

[TonyR]

Zitat von Anigmos:

Delphi-Quellcode:

procedure B_kuerzen(var z1,z2,n1,n2,zerg,nennerg,ganerg:real);
begin
ganerg:= (ggt(a,b)/z1)7(ggt(a,b)/z2)   //so?    Eigentlich nicht, NEIN
end;

Ich finde mich hier überhaupt nicht rein, tut mir leid!

Warum hast du nicht TBruch als einen Record deklariert?

Delphi-Quellcode:

TBruch = record
  Zahler, Nenner: Integer;
end;

und jetz:

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;