Entwickler-Ecke :: Thema anzeigen - Größter gemeinsammer Teiler berechnen

Rage - Do 08.09.05 14:09
Titel: Größter gemeinsammer Teiler berechnen

Hi Leuts, ich möchte ein Programm schreiben mit dem man den ggT (größter gemeinsamer Teiler) berechnen kann. ich habe bis her das geschrieben:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

procedure TggT.Button1Click(Sender: TObject);

var zahl1, zahl2, ggT: integer;

begin
 zahl1 := StrToInt(Edit1.text);
 zahl2 := StrToInt(Edit2.text);

 while (ggT>0) do begin

  If (zahl1 > zahl2) then
   begin
    ggT := zahl1 mod zahl2;
    zahl1:=zahl2;
    zahl2:=ggT;
    edit3.text:= IntToStr(ggT);
   end
  else
   begin
    ggT := zahl2 mod zahl1;
    zahl1:=zahl2;
    zahl2:=ggT;
    edit3.text:= IntToStr(ggT);
   end;
 end;
end;
end.

das problem ist nur das er mir als ergebnis immer 0 liefert.
dabei habe ich ja eine schleife benutzt die sagt das er meine if anweisung solange ausführt solange der ggT größer als 0 ist. Was ist an meinem Code falsch ?

Moderiert von Christian S.: Code- durch Delphi-Tags ersetzt.
Moderiert von Christian S.: Topic aus CLX / Delphi Language (Object-Pascal) verschoben am Do 08.09.2005 um 15:25
Moderiert von Tino: Titel geändert.

Heiko - Do 08.09.05 14:13

Kannst du den Code erstmal ordentlich einrücken? Man muss bei deinem Quelltext erstmal überlegen, welches end wohin gehört ;). (Bitte per editieren, also keinen neuen Post)

PS: Ich weiß, dass es vermutlich daran lag, das du zuerst nicht den Delphi-Tag im Post drin hattest ;).

//Edit: Fehler gefunden. Du nimmst immer den letzten rest, der nach dem euklidischen Verfahren immer 0 ist. Um den ggT zu bekommen musst du den Rest von dem vorgehenden Durchlauf nehmen.

Heiko - Do 08.09.05 14:29

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

uses Math;
...

var
  Zw: Integer;
  Zahl1: Integer;
  Zahl2: Integer;
  ggT: Integer;
...
Zahl1:=IntToStr(Edit1.Text);
Zw:=IntToStr(Edit1.Text);
Zahl2:=Min(Zw, Zahl1);
Zahl1:=Max(Zw, Zahl2);
ggT:=0;
while not ((Zahl1 mod Zahl2)=0) do
begin
  ggT:=(Zahl1 mod Zahl2);
  Zw:=Zahl1;
  Zahl1:=Zahl2;
  Zahl2:=Zw;
end;

PS: Ich hoffe das ich keinen Fehler gemacht habe, wenn ja sage es bitte ;).

//Edit: Soweit ich weiß gibt es aber im DF genug Themen zu dem Thema. ;)

Rage - Do 08.09.05 14:37

ahhh dankeschön für deine Hilfe.
ich muss zwar ehrlich zugeben das ich deinen code nicht übernommen habe, aber die eine zeile aus deinem code (while not ((Zahl1 mod Zahl2)=0) do) die hat mir weitergeholfen und jetzt funktioniert auch meine variante mit deiner hilfe.
danke nochma, jetzt kann ich endlich en mittagsschlaf halten :D

Land-Gull - Do 08.09.05 14:50

Ich würde das ganze so lösen:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.ggT(Zahl1,Zahl2:integer;var ggT:integer);
var temp: integer;
begin
 repeat

  if Zahl1<Zahl2 then begin   //vertauschen
   temp:=Zahl1;
   Zahl1:=Zahl2;
   Zahl2:=Temp;
  end;
 ggT:=Zahl1 mod Zahl2;
 Zahl1:=Zahl2; Zahl2:=ggT;
 until Zahl2 = 0;
 ggT:=Zahl1;
end;

Spaceguide - Fr 09.09.05 18:41

Das geht doch schöner:

Delphi-Quelltext

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

function ggT(a,b : integer) : integer;
begin
 if (a=b) or (b=0) then
  Result := a
 else
  Result := ggT(b,a mod b);
end;

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!