...ggT zweier Zahlen mit dem Euklidschen Algorithmus berechnen?

Autor: Dev4u.ch
Homepage: http://www.devu.ch

Kategorie: Mathematik

function gcd(a, b: Integer): Integer;
var
  
rest: Integer;
begin
  
//ggT Berechnung nach dem Algorithmus von Euklid
  //Konvergiert sehr schnell!

  //gcd using Euklid algorithm
  //converge very fast

  
repeat
    
rest := a mod b;
    a    := b;
    b    := rest;
  until (rest = 0);

  Result := abs(a);
  //ggT is immer positiv
  //gcd is always positive
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  
ShowMessage(IntToStr(gcd(12,30)));
end;

 

printed from
www.swissdelphicenter.ch
developers knowledge base