Hallo,
folgendes Problem... Ich habe einen pq-Formel (jedem der die Schule absolviert hat ein Begriff) Berechner geschrieben um ein bisschen zu üben. Es kommt zwar nur selten zu einem Absturz, aber es kommt zu dem Problem, dass falsche Ergebnisse ausgegeben werden. Kann mal jemand drüber gucken und mir den Fehler mitteilen?
Delphi-Quellcode:
begin
a := strtoint(Edit1.Text);
b := strtoint(Edit2.Text);
c := strtoint(Edit3.Text);
d := (-a/2);
j := (b/2);
i := exp(2*ln(j));
e := (i-c);
if e = 0 then begin
Label1.Caption := ('x1= ') + floattostr(a);
Label2.Caption := ('x2= ') + floattostr(a);
end;
if e > 0 then begin
f := exp(0.5*ln(e));
g := d + f;
h := d - f;
Label1.Caption := ('x1= ') + floattostr(g);
Label2.Caption := ('x2= ') + floattostr(h);
end;
if e <0 then begin
showmessage('Aus einer negativen Zahl kann keine Wurzel gezogen werden')
end;
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit2.Text := Edit1.Text;
end;
Wäre super wenn es irgendwann mal klappen würde
MfG
Thomas