Bruchrechnung und das kürzen...

[TonyR]

Hier mal als Referenz meine ggt-Funktion!

Delphi-Quellcode:

function  ggT(a,b: integer):integer;
   var x :integer;
begin
   if b <> 0 then
   repeat
     x:=a mod b;
     a:=b;
     b:=x;
   until x = 0;
     result := abs(a); //falls a, oder b negativ
end;

Edit: die habe ich verstanden, aber vorher auch nur von dsdt.info kopiert