Quadratische und Lineare Funktion

[Niels]

Moin!

Jo mit der 0 das hatte ich vergessen....aber dann isses ja keine quadratische Gleichung mehr...aber der Vollständigkeit halber:

Delphi-Quellcode:

var 
  rad, a, b, c, x1, x2: Real; 

a := StrtoFloat(Edit1.Text); // ax^2 + bx + c 
b := StrToFloat(Edit2.Text); 
c := StrToFloat(Edit3.Text); 

if a <> 0 then
begin
  rad := sqr(b/(2*a))-(c/a); // Radikant 
  if rad >= 0 then 
  begin 
    x1:=-(b/a)/2 + sqrt(rad); // 1. NS 
    x2:=-(b/a)/2 - sqrt(rad); // 2. NS 
    Edit6.Text := FloatToStrF(x1,ffFixed,100,2); 
    Edit11.Text := FloatToStrF(x2,ffFixed,100,2); 
  end 
  else 
  ShowMessage('Radikant < 0, somit keine Nullstellen');
end
else
begin
  if b <> 0 then
  Edit6.Text := FloatToStrF(-c/b,ffFixed,100,2)
  else
    ShowMessage('Gleichung parallel zur X-Achse, somit keine Nullstellen');
end;

So und jetzt zu deinem anderen Problem:

Edit1.Text := 'f(x) = ' + FloatToStrF(a,ffFixed,100,2) + 'x^2 + ' + FloatToStrF(a,ffFixed,100,2) + 'x + ' + FloatToStrF(c,ffFixed,100,2); MfG Niels