ggT und KgV von 2 Zahlen berechnen - absolut keine Ahnung

[Sir Rufo]

Wenn man sich wundert, warum da irgendwas passiert, was man nicht erwartet, und man im Prinzip gar nicht versteht was da so passiert, dann hilft immer die Methode mit einem Ausdruck des Quelltextes, ein leeres Blatt Papier und evtl. für Notizen Block und Stift.

Versuchen wir mal das Beispiel mit dem Teilen.
Da wird etwas komisches ausgegeben, was man so gar nicht vermutet hat. Also machen wir das mal als Trockenübung

a := StrToFloat (Zahl1.Text); Ok, merke ich mir (a ist 5)
b := StrToFloat (Zahl2.Text); Ok, merke ich mir (b ist 0)
c:= a/b; Öh, das kann ich ja gar nicht berechnen "Hallo, kann mir mal jemand helfen?"
Na, dann höre ich mal auf, denn hier stimmt was nicht!

Komischerweise kommt man zu dem gleichen Ergebnis wie das kompilierte Programm

[mkinzler]

Tja ein Schreibtischtest ist halt ganz aus der Mode gekommen

[Luckie]

[Connor Temple]

Ich habs ja jetzt hingekriegt, aber jetzt ist das Problem, dass wenn ich durch eine Zahl die größer oder kleiner als null ist, teile, kommt das Ergebnis:
1,05940440336306E-22

Ich kann das irgendwie auch nicht beheben.
Auch wenn ichs mit der Aufschreibmethode versuche, weiß ich trotzdem nicht wie ich das im Programm schreiben soll, dass der Pc das versteht.

[Luckie]

Wie gibst du die Zahl denn aus?

[Wolfgang Mix]

Warum rechnest du nicht mit ganzen Zahlen, wie schon oben erwähnt?

[Luckie]

Zitat von Wolfgang Mix:

Warum rechnest du nicht mit ganzen Zahlen, wie schon oben erwähnt?

Es geht hier mittlerweile um seinen Rechner.

[Connor Temple]

So, hab nochmal ne halbe Stunde dran rumprobiert, jetzt klappts endlich:

Delphi-Quellcode:

procedure TForm1.TeilButtonClick(Sender: TObject);
var a,b,c :Real ;
begin
a := StrToFloat (Zahl1.Text);
b := StrToFloat (Zahl2.Text);



If b <> 0 then c := a/b ;
Ausgabe.Caption := FloatToStr (c);
If b = 0 Then Ausgabe.Caption :='Man kann auch im Jahr 2010 immer noch nicht durch null teilen.';

end;

Das ist mein Code.

[Bummi]

Delphi-Quellcode:

procedure TForm1.TeilButtonClick(Sender: TObject);
var a,b,c :Real ;
begin
a := StrToFloat (Zahl1.Text);
b := StrToFloat (Zahl2.Text);



If b <> 0 then 
begin
   c := a/b ;
  Ausgabe.Caption := FloatToStr (c);
end
else Ausgabe.Caption :='Man kann auch im Jahr 2010 immer noch nicht durch null teilen.';

end;

In Deinem Beispiel gibst Du c aus das als Stackvariable nicht initialisiert ist, da kann sonstwas drin stehen, außerdem gibt es ja nicht anzuzeigen.

[Wolfgang Mix]

Der Else-Zweig wird wohl nie erreicht, schau mal bei Luckies Homepage vorbei