Bruchrechnung und das kürzen...

[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;