b <> 0

[Apollonius]

Das geht nicht (sofern nicht die FPU-Exception ausgeschaltet wird), denn Dividend/Divisor wird in jedem Fall ausgewertet.

[spaxxn]

Check

[inherited]

Ich weiß nicht in wie weit das unter Delphi mit Standardtypen möglich ist, sonst könntest du den / Operator überladen und das Typweit abfangen und dein Wunschergebnis zurückliefern

Delphi-Quellcode:

type
  TMySingle = record
    Value: Single;
    class operator Divide(a: TMySingle; b: TMySingle): TMySingle;
    [...]


class operator TMySingle.Divide(a: TMySingle; b: TMySingle): TMySingle;
begin
  result.Value := a.Value;
  if b.Value <> 0 then
    result.Value := result.Value / b.Value
end;

Getippt, nicht getestet

[3_of_8]

Zitat von Die Muhkuh:

Zitat von Laufi:

Du kannst auch einfach am Anfang von deinem Programm Set8087CW($133f); schreiben dann gibt es keine Fehler beim teilen durch 0

Was passiert, wenn Du es trotzdem machst? (Also was steht nachher in der zugewiesenen Variable?

+/-Infinity, je nach Vorzeichen des Dividenden und der 0.

[SirThornberry]

da auf ungleich 0 geprüft wird kann man es auch gleich als Boolean interpretieren:

Delphi-Quellcode:

if Boolean(b) then 
  a := a / b;

[Die Muhkuh]

Es ist schon sehr nett anzusehen, was alles zustande kommt, wenn man nur eine "poplige" Anweisung umschreiben möchte.

[sirius]

Zitat von 3_of_8:

Zitat von Die Muhkuh:

Zitat von Laufi:

Du kannst auch einfach am Anfang von deinem Programm Set8087CW($133f); schreiben dann gibt es keine Fehler beim teilen durch 0

Was passiert, wenn Du es trotzdem machst? (Also was steht nachher in der zugewiesenen Variable?

+/-Infinity, je nach Vorzeichen des Dividenden und der 0.

Und überprüfen kann man dass dann mit isInfinite bzw. isNAN.

isNAN entsteht dann, wenn man unendlich durch unendlich teilt.


Diese Zustände des Unendlichen und "Not a Number" sind klar definiert für Fließkommazahlen bei IEEE (neben dem Unterschied zwischen +0 und -0).
Unendlich oder NAN sind definiert wenn im Exponenten alle bits Gesetzt sind. Bei Unendlich ist die Mantisse 0 bei NAN <>0.

[3_of_8]

0/0 erzeugt auch NAN.

[himitsu]

Ist B eigentlich ein Integer, oder 'nen Float?

wenn B = Float (z.B. Single/Double/Extendet), dann ist ein genauer Vergleich doch nicht gut?
if not IsZero(b) then a := a / b;

bei B = Integer und größer 0 ginge auch noch sowas:
a := a / Max(b, 1);

[Fussball-Robby]

Du meintest wohl Max, den wenn b = 0 ist, ist b<1 und er teilt durch b, also 0
Es scheint aber kein Integer zu sein, denn ansonsten würde es ohne Round(..) nicht funktionieren.