ggt nach euklid

ChrisJens · Hält's aus hier Beiträge: 1

Hallo!

Ich möchte wissen,wie man bei Delphi das ggt nach euklid ausrechnet wenn man Doppelklick auf den Rechnerbutton drückt.

Moderiert von Christian S.: Topic aus Wünsche, Fragen & Kritik verschoben am Thu 16.09.2004 um 10:14

.Chef · Beiträge: 1112

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

function ggt(a, b : Integer) : Integer;
begin
  while a mod b > 0 do
  begin
    a:=b;
    b:=a mod b;
  end;
  Result:=b;
end;

Ungetestet.

Gruß,
Jörg

Edit: PS: Was ist "der Rechnerbutton"? :gruebel:

_________________
Die Antworten auf die 5 häufigsten Fragen:
1. Copy(), Pos(), Length() --- 2. DoubleBuffered:=True; --- 3. Application.ProcessMessages bzw. TThread --- 4. ShellExecute() --- 5. Keine Vergleiche von Real-Typen mit "="!

Ehemaliges Mitglied Erhaltene Danke: 1

.Chef hat folgendes geschrieben:

Edit: PS: Was ist "der Rechnerbutton"? :gruebel:

Vermutlich ein selbst benannter Button auf der Form von ChrisJens.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme