ggT und KgV von 2 Zahlen berechnen - absolut keine Ahnung

[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

[mkinzler]

If trunc(b) <> 0 then

[Bummi]

@Wolfgang Mix

ich kann Deiner Aussage nicht folgen, wenn es etwas anderes als 0 eingibt ist die Rechenoperation gültig, ansonsten landet er im Else-Zweig.
Die nicht Initialisiere Variable c auszugeben ist in jedem Fall Blödsinn

[Connor Temple]

Es funktioniert ja jetzt.
Mit Else hab ichs versucht, da werde ich aber nochmal dran arbeiten müssen, da das auch nicht hingehauen hat.

[rollstuhlfahrer]

Punkt 1 - Die Fließkommazahlen: Lehrer behelfen sich da ganz einfach mit Real. Das liegt wohl daran, weil "Delphi for Kids" das eben auch macht. Nur leider ist Real sehr unbestimmt, in Bezug auf die Genauigkeit. Selbst bei D7 kommt die Hilfe bei Real nicht auf den Punkt, auf wie viele Stellen man sich verlassen kann. Außerdem gibt es neben Real noch den Real48. Um hier aufzuräumen würde ich auch Single, Double und Extended verwenden.

Punkt 2 - Der ELSE-Zweig: Ja bitte, welcher Fehler kommt denn diesmal? - Man wird dir leiden nicht helfen können, wenn man dein Problem nicht kennt. Das ist so ähnlich, wie wenn du zum Arzt gehst und sagst, du hättest Schmerzen. Daran kann auch der allerbeste Arzt leider nicht feststellen, wo deine Schmerzen sind und was du haben könntest. Das kann von Kopfschmerzen bis Herzinfarkt gehen. Übertragen auf deinen Code heißt das: Du hast entweder einen Syntax-Fehler oder du hast in Delphi einen Bug entdeckt. Wobei ich mir letzteres nicht vorstellen kann.

Zitat von Connor Temple:

Es funktioniert ja jetzt.

Optimal?
Zu der Frage mit Fließkommazahlen und der Null: Die Null ist ein exakt definierter Wert. Leider ist dieser Wert so exakt definiert, dass man ihn normalerweise nicht genau erreichen kann. Selbst wenn du sagst Variable := 0.0; , dann ist diese Variable noch lange noch nicht 0. Sie ist nur auf 22 Nachkommastellen genau 0. Danach ist sie ungleich 0. Deshalb sollte man für Vergleiche auf 0 die Funktion IsZero() verwenden.

Zitat von mkinzler:

If trunc(b) <> 0 then

Nein, das ist leider nicht richtig. Was ist, wenn du durch 0,5 teilen willst? Trunc(0,5) ist 0 und somit meinst du, du teilst durch 0, was absolut nicht richtig ist.

Bernhard

[Medium]

Real ist, zumindest bei meinem D7, als Double definiert, und somit sehr gut dokumentiert . Real48 ist der alte Real aus TP Zeiten, den es rein dafür gibt, damit man Portierungen von altem TP Code der sich auf die 48 Bit verlässt nicht zu arg umschreiben muss, wenn man es nicht will. (Und die meisten Lehrer nehmen denke ich bevorzugt Real, weil sie diesen noch aus TP kennen.)
Man kann per Optionen umschalten als was Real definiert sein soll, Standard ist eben Double. Damit ist es nichts weiter als ein Alias.

[Bummi]

Hat der Thread überhaupt noch was mit dem Titel zu tun??