Zitat von
grenzgaenger:
prüfst du denn ab, ob der divisor 0 ist, bevor du die division vornimmst?
Nein.
Zitat von
divBy0:
Was willst du denn wissen? Warum der Fehler auftritt?
Du musst drauf achten, dass pFaktor <> 0 ist.
Ja.
Okay, aber wie setze ich das um? Habe es mal so versucht:
Delphi-Quellcode:
procedure Bruch.KuerzeUm(pFaktor: integer);
begin
if pFaktor <> 0 then
begin
if ((zZaehler MOD pFaktor = 0) and (zNenner MOD pFaktor = 0)) then
zZaehler := zZaehler div pFaktor;
zNenner := zNenner div pFaktor;
end;
end;
Da ist das Ergebnis der Addition aber immer 0.