Einzelnen Beitrag anzeigen

ichbins

Registriert seit: 9. Jul 2005
Ort: Hohenaltheim
1.001 Beiträge
 
Delphi 2005 Personal
 
#11

Re: Quadratische und Lineare Funktion

  Alt 31. Okt 2005, 19:27
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;
Michael Enßlin
  Mit Zitat antworten Zitat