Einzelnen Beitrag anzeigen

HackZu

Registriert seit: 27. Aug 2008
15 Beiträge
 
#5

Re: Division by zero - Teilen durch 0

  Alt 24. Sep 2008, 22:24
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.
  Mit Zitat antworten Zitat