Division by 0

Zlatan · Beiträge: 175

Ich habe den euklid-Algo..(ggT) programmiert, aber bei klick auf den Rechnen button, geht das programm zu grunde wegen Division by 0.
Ich kann den Fehler nicht finden, ich hoffe ihr könnt es. :lupe:

markieren

Delphi-Quelltext

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

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
a:= Strtoint(Edit1.Text);
b:= strtoint(Edit2.Text);
if a < b then a:=b; b:=h; h:=a;
while b > 0 do
a:= b;
h:= a mod b;
b:=h;
Panel2.Caption:= inttostr(a);

end;

Moderiert von Narses: Topic aus Sonstiges (Delphi) verschoben am Di 22.03.2011 um 17:33

Tankard · Beiträge: 217 Erhaltene Danke: 96

da fehlt doch noch ein begin end bei der while schleife oder?

Zlatan · Beiträge: 175

zumindestens stürzt das programm nicht mehr ab, aber ausrechnen tut der auch nichts mehr :autsch:

markieren

Delphi-Quelltext

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

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
a:= Strtoint(Edit1.Text);
b:= strtoint(Edit2.Text);
if a < b then a:=b; b:=h; h:=a;
while b > 0 do begin
a:= b;
h:= a mod b;
b:=h;
Panel2.Caption:= inttostr(a);
 end
end;

der organist · Verfasst: Di 22.03.11 18:37

und ich vermute mal um den Codeblock nach der Abfrage musst du auch noch ein begin und end machen....

EDIT: Was genau willste damit eingentlich machen?

_________________
»Gedanken sind mächtiger als Waffen. Wir erlauben es unseren Bürgern nicht, Waffen zu führen - warum sollten wir es ihnen erlauben, selbständig zu denken?« Josef Stalin

Tastaro · Beiträge: 414 Erhaltene Danke: 23

markieren

Delphi-Quelltext

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

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   a:= Strtoint(Edit1.Text);
   b:= strtoint(Edit2.Text);
   if a < b then 
      a:=b; 
   b:=h; //ist h = 0???
   h:=a;
   while b > 0 do 
   begin
      a:= b;
      h:= a mod b;
      b := h;
      Panel2.Caption:= inttostr(a);
   end;
end;

Quellcode formatieren hilft! Und was auch helfen würde: Benenne deie Variablen verständlich.

Beste Grüße

Zlatan · Beiträge: 175

h ist eine hilfsvariable der man keinen wert zuweist.

Gausi · Verfasst: Di 22.03.11 18:43

Ist es eigentlich so schwer, drei Zeilen aus der Wikipedia in der richtigen Reihenfolge abzuschreiben? :gruebel:

markieren

Quelltext

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

EUCLID(a,b)
1  solange b <> 0
2      h = a mod b
3      a = b
4      b = h
5  return a

_________________
We are, we were and will not be.

Zlatan · Beiträge: 175

ja weil ich noch gar nicht auf wiki war :motz:

Einloggen, um Attachments anzusehen!

Zlatan · Beiträge: 175

Ich habe das nun getauscht(nach deiner ordnung), aber jetzt gibt der was falsches aus und außerdem noch erst beim 2.klick :gruebel:

Jetzt habe ich es so und er gibt einfach das aus, was ich bei edit1 eingetragen habe.

markieren

Delphi-Quelltext

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

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
a:= Strtoint(Edit1.Text);
b:= strtoint(Edit2.Text);
if a < b then a:=b; b:=h; h:=a;
while b > 0 do begin
h:= a mod b;
a:= b
b:=h;
 end;
Panel2.Caption:= inttostr(a);
end;

der organist · Verfasst: Di 22.03.11 18:55

neuer Quelltext?

_________________
»Gedanken sind mächtiger als Waffen. Wir erlauben es unseren Bürgern nicht, Waffen zu führen - warum sollten wir es ihnen erlauben, selbständig zu denken?« Josef Stalin

Gausi · Verfasst: Di 22.03.11 18:58

markieren

Delphi-Quelltext

1:	if a < b then a:=b; b:=h; h:=a;

Hat tastaro weiter eben auch schon bemerkt, dass das Murks ist. :roll:

_________________
We are, we were and will not be.

Zlatan · Beiträge: 175

und wie muss es dann lauten?
(am meisten regt mich auf, dass ich es vor gut 5 stunden fertig hatte in der schule und es jetzt zu hause nicht mehr weiß) :autsch:

glotzer · Beiträge: 393 Erhaltene Danke: 49 Win 7 Lazarus

hat man dir zwar schon mindestens 5 mal gesagt aber:

markieren

Delphi-Quelltext

1:	begin [...] end;

ich denk den link zu den grundlagen tutorials muss ich nicht nochmal posten, du schaust eh nicht drauf...

Zlatan · Beiträge: 175

So????
er gibt jetzt immer null aus :gruebel:

markieren

Delphi-Quelltext

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

a:= Strtoint(Edit1.Text);
b:= strtoint(Edit2.Text);
if a < b then a:=b; b:=h; h:=a;
begin//
while b > 0 do
h:= a mod b;
a:= b;
b:=h;
end;//
Panel2.Caption:= inttostr(a);
end;

glotzer · Beiträge: 393 Erhaltene Danke: 49 Win 7 Lazarus

-.- ich spar mir jedes weitere kommentar.

Gausi hat folgendes geschrieben :

Ist es eigentlich so schwer, drei Zeilen aus der Wikipedia in der richtigen Reihenfolge abzuschreiben? :gruebel:

markieren

Quelltext

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

EUCLID(a,b)
1  solange b <> 0
2      h = a mod b
3      a = b
4      b = h
5  return a

wo muss begin und end wohl hin?

Zlatan · Beiträge: 175

warum? helf mir doch bitte, ok?

Fiete · Beiträge: 617 Erhaltene Danke: 364 W7 Delphi 6 pro

Moin Zlatan,
beim euklidischen Algorithmus müssen die Variablen nicht getauscht werden.
Falls nämlich a<b ist, wird automatisch getauscht (Zeile 7)!

markieren

Delphi-Quelltext

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

 procedure TGgtundKgv.StartClick(Sender: TObject);
  var a,a1,b,b1,rest,ggT,kgV:Longint;
  begin
   a:=StrToInt(Z1.Text);b:=StrToInt(Z2.Text);a1:=a;b1:=b;
   repeat
    rest:=a mod b;
    a:=b;b:=rest
   until rest=0;
   ggT:=a;kgV:=(a1*b1) div ggT;
   ggTAusgabe.Text:=IntToStr(ggT);
   kgVAusgabe.Text:=IntToStr(kgV);
  end;

Gruß
Fiete

_________________
Fietes Gesetz: use your brain (THINK)

Gausi · Verfasst: Di 22.03.11 19:20

Da hier keinerlei Eigeninitiative erkennbar ist, ist dieses Thema jetzt für 24 Stunden geschlossen. So hat Zlatan Zeit zum Nachdenken.

Morgen abend gehts hier weiter.

_________________
We are, we were and will not be.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme