Forum: Sonstige Fragen zu Delphi
Delphi
by Bummi,
7. Mär 2012
Function SolveQuad(a,b,c:Double;Var x1,x2:Double;ShowErr:Boolean=false):Boolean;
var
uw:Double;
begin
Result := false;
uw := b * b - 4 * a * c;
try
if a<>0 then
begin
if uw>0 then
Forum: Sonstige Fragen zu Delphi
Delphi
by Bummi,
6. Mär 2012
@Popov
sorry, aber Quark SQRT(0) ist kein Problem, SQRT(-0.16) ,korrekt "gekürzt", schon
Forum: Sonstige Fragen zu Delphi
Delphi
by Bummi,
6. Mär 2012
Du solltest überprüfen ob a=0 und gegf. eine Meldung ausgeben ohne zu rechnen
Du solltest vor Wurzeln ziehst prüfen ob die Zahl negativ ist und s.o.