ggT-Berechnung / Euklidischer Algorithmus

[thepaul]

Der Euklidsche Algorithmus zur Berechnung des ggT (größter gemeinsamer Teiler)

Delphi-Quellcode:

function ggT(a, b:Integer):Integer;
var
  rest:Integer;
begin
  rest:=a mod b;
  while rest<>0 do 
  begin
    rest:=a mod b;
    a:=b;
    b:=rest;
  end;

  Result:=a;
end;

(Ursprünglich von thepaul, erweitert und "verkleinert" von fkerber)

[edit=Chakotay1308]Ergänzung. Mfg, Chakotay1308[/edit]
[edit=Matze]Code formatiert. Mfg, Matze[/edit]
[edit=Dax]Das Highlighting... Mfg, Dax[/edit]
[edit=Chakotay1308] Mfg, Chakotay1308[/edit]