algoritmo de la Ecuación 2grado....

[Mav]

Algo así, mas o menos:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c : Integer;
x1,x2,r : Real;
begin
 a:= StrToInt(Edit1.Text);
 b := StrToInt(Edit2.Text);
 c := StrToInt(Edit3.Text);
 if a=0 then
 Edit4.Text:=FloatToStr(-c/b)
     else
    begin
      r:=b*b-4*a*c;
      if r<0 then
      ShowMessage('Error!!!Raiz negativa, el resultado es imaginario')
      else
         begin
           r:= Sqrt(r);
           x1:= (-b+r)/(2*a);
           x2:= (-b-r)/(2*a);
           Edit4.Text:= FloatToStr(x1);
           Edit5.Text:= FloatToStr(x2);
         end;
    end;
end;

...lo tenia a mano de algo que estaba haciendo...
Saludos

[ronimaxh]

Gracias colega por el ejemplo, esto mejoró el código.

[hackcgm]

pues yo estoy buscando la forma de resolver ecuasiones de cualquier grado en delphi introdusidas por el usiario como por ejemplo f(x) = x^4 + 5x^3+2x^2+5x+20, y despues sustituir el valor de "x" en la funcion pero no se como hacerle,

espero q alguien me pueda ayudar o dar alguna idea..............

gracias