programm fehler (pq-formel) - numerische datentypen

[gordon freeman]

Außerdem ist mir noch ein kleiner Logikfehler aufgefallen:

Zitat von pete_knightde:

Delphi-Quellcode:

//Berechnungsteil
x1 := -1*p / 2 + sqrt(p^2/4-q);
x2 := -1*p / 2 - sqrt(p^2/4-q);

if sqrt((p^2/4)-q)<0
then begin
EdKommentar.text:='Keine Lösung';
end
else if sqrt((p^2/4)-q)=0
then begin
EdKommentar.text:='Nur Eine Lösung';
end else begin
EdKommentar.text:='Zwei verschiedene Lösungen';

Du berechnest erst die Werte und checkst dann ab, ob diese Berechnung möglich ist. Das wird wahrscheinlich dein Fehler sein! Check erst, ob die Berechnung möglich ist und Rechne dann innerhalb des

Delphi-Quellcode:

if (...) then 
  begin
   (...)
  end;

die Werte aus.

//Edit1: Da hab ich doch glatt selber die Delphi-Tags vergessen