Quadratische und Lineare Funktion

[ichbins]

ne, math brauchst du für power und min/max. sqrt is noch in system.

eine Möglichkeit die fehler abzufangen:

Delphi-Quellcode:

var
  a,b,c,d:extended;
begin
  a:=StrToFloat(Ea.Text);
  b:=StrToFloat(Eb.Text);
  c:=StrToFloat(Ec.Text);
  d:=b*b-4*a*c;
  if d<0 then begin
    messagedlg('Radikant kleiner Null -> keine schnittstellen');
    exit;
  end;
  if d=0 then begin
    showmessage('Eine Schnittstelle: '+floattostr(-b / (2 * c)));
    exit;
  end;
  if d>0 then begin
    showmessage('2 Schnittstellen: '#13'1. = '+floattostr(( (-b) + (sqrt( (b*b) - (4 * a * c))) ) / (2 * c))+#13'2. = '+floattostr(( (-b) - (sqrt( (b*b) - (4 * a * c))) ) / (2 * c)));
  end;

[alzaimar]

Absolut korrekt. Eine Kleinigkeit. d=0 wird wohl nie zutreffen, da es sich um Gleitkommazahlen handelt. Vergleiche lieber so:

Delphi-Quellcode:

If Abs (d) < 1E-8

[Khabarakh]

Wenn die Diskriminante ("so ziemlich") 0 ist, sollte man die Wurzel gleich durch 0 ersetzen. Sonst wirft sqrt noch eine Exception, weil d vielleicht doch -1E-10 ist.

PS: Heißt der Nenner nicht 2a :zwinker: ?