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

[ronimaxh]

Hola amigos del club, si alguien me puede dar una mano con el proceso de calcula de la ecuacion:

Código Delphi [-]
ax + bx +c

[roman]

¿Quieres encontrar los ceros del polinomio? Pues sólo tienes que aplicar la fórmula, que, si no mal recuerdo es:

x = (-b ± sqrt(b^2 - 4ac))/2a

// Saludos

[ronimaxh]

Gracias por contestar si fueras hacer el algoritmo de está ecuacion como seria c++

[MAXIUM]

Me huele a tarea. Anda que tenemos mucho animo de ayudarte pero la formula para resolver una ecuación de segundo grado se enseña durante los primeros 4 años de primaria... por último el todo poderoso Google te da varias respuestas y aprendes

La piedad de Roman es todo lo que necesitas, el resto es algo muy básico a menos que lo tuyo no sea la informática y te hayan dado ese trabajo por otra razón.

Para resolverlo, el asunto es casi literal
* Busca la información sobre formula cuadrática para que sepas que significa ±
* sqrt significa raíz cuadrada de todo lo que esta en parentecis, en foros es algo difícil dibujar una raíz cuadrada por eso te la abrevio en ingles Square Root. Así que has de buscar una función que calcule la raíz, curiosamente en C y pascal creo que se usa sqrt(25) es igual a 5 es decir la raíz de 25 da como resultado 5.
* B^2 significa B elevado a 2, por que tendrás que buscar una función que te permita dar potencia a un número.
* 4ac, significa y se puede escribir como 4*a*c, osea (cuatro por a por c - 4xAxC)
* / significa División, la puedes escribir tal cual en C.

x = (-b ± sqrt(b^2 - 4ac))/2a

En resumen, esto es lo que pasa cuando solo te enseñan VB...

[ronimaxh]

Gracias amigos, ya con esto he resuelto

[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