Bruchrechnung und das kürzen...

[Anigmos]

Zitat von yörsch:

Hai,

Delphi-Quellcode:

function ggT(a, b:Integer):Integer; 
var 
res:Integer; 
begin 
   repeat 
          res := a mod b; 
          a:=b; 
          b:=res; 
   until b <> 0; 
end;

was für einen wert soll result (also das ergebnis haben ???)
wenn ich die Funktion sosehe dann wohl : result := res;

res hat das ergebnis a mod b ?

Zitat von 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;

Das geht leider nicht...Wir dürfen nur mit mitteln Arbeiten, die wir schon hatten... Worin ich überhaupt keinen Sinn sehe aber das ist ein anderes Thema...