Division by zero - Teilen durch 0

[HackZu]

Auf Geheiß des Moderators und nach erfolgreicher Lösung der vorhergehende Frage, nun eine neue Frage. :-D

Der nächste Fehler scheint hier zu entstehen, es wird die Fehlermeldung Division durch 0 ausgegeben, muss die Methode um die Zähler und Nenner der beiden Brüche erweitert werden?

mBruch

Delphi-Quellcode:

procedure Bruch.KuerzeUm(pFaktor: integer);
begin
       if ((zZaehler MOD pFaktor = 0) and (zNenner MOD pFaktor = 0)) then
         zZaehler := zZaehler div pFaktor;
         zNenner := zNenner div pFaktor;
end;

function Bruch.ggt(zZaehler,zNenner:integer): integer;
begin
  if zZaehler = zNenner then result := zZaehler
  else
  result := ggt(min(zNenner,zZaehler), abs(zZaehler-zNenner));
end;

Die entsprechende Funktion in mBruchrechner sieht so aus:

Delphi-Quellcode:

function Bruchrechner.Addition(pBruch1,pBruch2: Bruch): Bruch;
begin
  result:=Bruch.init;
  result.setzeNenner(pBruch2.gibNenner * pBruch1.gibZaehler);
  result.setzeZaehler(pBruch1.gibZaehler * pBruch2.gibNenner + pBruch2.gibZaehler * pBruch1.gibNenner);
  result.KuerzeVoll;
end;

[grenzgaenger]

prüfst du denn ab, ob der divisor 0 ist, bevor du die division vornimmst?

[divBy0]

Was willst du denn wissen? Warum der Fehler auftritt?

Du musst drauf achten, dass pFaktor <> 0 ist.

[freak4fun]

Delphi-Quellcode:

procedure Bruch.KuerzeUm(pFaktor: integer);
begin
       if ((zZaehler MOD pFaktor = 0) and (zNenner MOD pFaktor = 0)) then
       begin
         zZaehler := zZaehler div pFaktor;
         zNenner := zNenner div pFaktor;
       end;
end;

[HackZu]

Zitat:

Zitat von grenzgaenger

prüfst du denn ab, ob der divisor 0 ist, bevor du die division vornimmst?

Nein.

Zitat:

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.

[divBy0]

Was hat den pFaktor für einen Wert?

[grenzgaenger]

Zitat:

Zitat von HackZu

Zitat:

Zitat von grenzgaenger

prüfst du denn ab, ob der divisor 0 ist, bevor du die division vornimmst?

Nein.

und weshalb nicht? meist der rechner meckert schon, wenn er durch 0 teilt ... aber das gefällt dir ja auch nicht oder :roll:

[grenzgaenger]

Zitat:

Zitat von divBy0

Was hat den pFaktor für einen Wert?

in diesem fall wohl NULL und dann gibts deinen nick 8)

[HackZu]

Zitat:

Zitat von divBy0

Was hat den pFaktor für einen Wert?

Das ist ja das Problem, wir haben diese Unit aus einem alten Projekt übernommen, bei dem der Benutzer den Faktor eingeben musste (kuerzeUm) oder pFaktor den Wert des ggT annahm (kuerzeVoll) mit dem dann gekürzt wurde, daher meine Frage, wie ich das kuerzeUm auf das neue Projekt anpassen muss?

Zur Zeit sieht das halt so aus:

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;

function Bruch.ggt(zZaehler,zNenner:integer): integer;
begin
  if zZaehler = zNenner then result := zZaehler
  else
  result := ggt(min(zNenner,zZaehler), abs(zZaehler-zNenner));
end;

procedure Bruch.KuerzeVoll;
begin
  self.KuerzeUm(self.ggT(zZaehler,zNenner));
end;

[divBy0]

Daher kommt mein Nick... :-D

Wie rufst du die Funktion denn auf? Sieht eigentlich ganz gut aus.