Hallo zusammen hab mir grad eine Procedure geschrieben die mir aus einem Bruchtrainer ( 2 Brüche werden addier/subtrahier etc) Die vollständig gekürzte Lösung ausgibt. Das Problem was ich gerade habe ist das er mir immer ausgibt das das ergebnis falsch gekürzt ist...

Quellcode is bis jetz etwas unübersichtlich da ich noch am rumprobieren bin. Hoffe das mir trotzd, jemand helfen kann.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.edtErgClick(Sender: TObject);
var a,b,c,d,r1,r2,erg1,erg2,rest,ggt,z1,z2 : Integer;
    q1,q2: Extended;
begin
  a := StrToInt(edtBr1_1.Text);
  b := StrToInt(edtBr1_2.Text);
  c := StrToInt(edtBr2_1.Text);
  d := StrToInt(edtBr2_2.Text);
  erg1 := StrToInt(edtBr3_1.Text);
  erg2 := StrToInt(edtBr3_2.Text);

//------------------------Berechnen---------------------------------------------
if lblOp.Caption = '+' then
  Begin
    r1 := ((a * d) + (c * b));
    r2 := (b * d);
  end

else if lblOp.Caption = '-' then
  Begin
    r1 := ((a * d) - (c * b));
    r2 := (b * d);
  end

else if lblOp.Caption = '*' then
  Begin
    r1 := a*c;
    r2 := b*d;
  end

else if lblOp.Caption = '/' then
  Begin
    r1 := a*d;
    r2 := b*c;
  end;

    q1 := r1 / r2;
    q2 := erg1 / erg2;
//--------------------------Ende Berechnen--------------------------------------

//--------------------------GGT Suchen------------------------------------------
   z1 := r1;
   z2 := r2;
   repeat
    rest := z1 mod z2;
    z1 := z2;
    z2 := rest;
   until rest = 0;

    ggt := z1;
//--------------------------Ende GGT Suchen-------------------------------------




    if (q1 = q2) and (erg1 / ggt = r1 div z1) and (erg2 / ggt = r2 div z1) then
      Begin
        lblKor.Font.Color := clGreen;
        lblKor.Caption := 'Korrekt';
      end

  else if (q1 = q2) then
      Begin
        lblKor.Font.Color := clYellow;
        lblKor.Caption := 'Falsch gekürzt';
      end

   else
      Begin
        lblKor.Font.Color := clRed;
        lblKor.Caption := 'Falsch';
   end;

   lblKor.Visible := true;
   edtKor1.Visible := True;
   edtKor2.Visible := True;
   edtKor1.Text := IntToStr(r1 div z1);
   edtKor2.Text := IntToStr(r2 div z1);
end;

Zitat von Bansh:

Quellcode is bis jetz etwas unübersichtlich da ich noch am rumprobieren bin. Hoffe das mir trotzd, jemand helfen kann.

Stimmt, du machst zu viel in einer Procedure.
Als Erstes würde ich dir empfehlen den Code für den GGT als Funktion zu schreiben.
Das reduziert die Anzahl deine lokalen Variablen und verbessert die Übersichtlichkeit.
Ausserdem kannst du die GGT-Funktion unabhängig vom Rest testen

markieren

Delphi-Quellcode:

procedure TestGGT;
begin
   if GGT(20, 8) <> 4 then
      raise Exception.Create('GGT-Funktion hat einen Bug');
   if GGT(8, 20) <> 4 then
      raise Exception.Create('GGT-Funktion hat einen Bug');
   if GGT(1, 1) <> 1 then
      raise Exception.Create('GGT-Funktion hat einen Bug');
   ... // hier weitere Testfälle
end;

ja das möchte ich später alles noch aufteilen, der ggt funktioniert einwandfrei. Den hab ich aus einem Programm das ich schon vor längerer Zeit programmiert habe.

er kürzt ja alles richtig etc, nur die ausgabe, ob richtig/kürzbar is irgendwie immer falsch.
Er zeigt mir immer an das es kürzbar ist, obwohl es nicht geht.

if (q1 = q2) and (erg1 / ggt = r1 div z1) and (erg2 / ggt = r2 div z1) then Nun, wenn Du erg1 / ggt teilst kommt da ein Floatwer heraus.
r1 div z1 liefert Dir einen Integerwert. Ein Floatwert hat (da wir uns in der digitalen Welt bewegen)
nicht zwingend ein 100% genaues Ergebnis. Hier solltest Du abprüfen ob erg1 / ggt
in einem bestimmten kleinen Bereich liegen.

Grüße
Klaus

Hallo,

wie Klaus schon schrieb: Real-Werte sollte man niemals auf Gleichheit testen. Hier ist es auch gar nicht notwendig. Stelle einfach die Gleichungen etwas um, und dir genügt die einfache Integer-Arithmetik.

Gruß Hawkeye

Ok vielen dank, werds kommende woche mal ausprobieren.

Hat mich interessiert, ich hab deshalb mal ein kleines Programm dazu geschrieben.
In die beiden Editfelder oben links gibst Du die Brüche ein,
z.B. in die obere '1/4' und in die untere '2/3'

Das Ergebnis wird in den unteren Editfeldern gezeigt, sobald beide Eingabefelder gültige Ausdrücke enthalten