Donde Esta EL Error??? (Sencillo, Nivel Principiante)

[Hitman014]

hize todo como me dijiste, pero ahora me sale un error al momento de correrlo

VER IMAGEN

hubo una parte que no la puse igual como me dijiste, porque al ser dos resultados lo que voy a hacer es que el resultado de -b + resultado
y que en el otro edit, me de el resultado de -b - resultado, haciendo la misma operacion en dos botones diferentes, nada mas cambiando el signo de + & -.

Me refiero a esta parte:

Empezado por ixMike

r:=Sqrt(r); //ahora r=raíz
x1:=(-b+r)/(2*a);
x2:=(-b-r)/(2*a); //Te recuerdo que tiene dos soluciones

espero ayuda para poder terminarlo ya!!

gracias

[Robert01]

Hola

¿Definiste r como float?

Si el discriminante (b**2 - 4*a*c) es mayor que 0 no hay raices imaginarias, eso ocurre en la situación opuesta

Salu2

[ixMike]

Ese error te sale porque has puesto if r>0 then ShowMessage('Error!! Imaginario'); cunado es r<0. Te sale porque está haciendo la raíz de un número negativo.

Ya que copias, podrías usar Ctrl+C, Ctrl+V

Añado: a otra vez no tapes el código con el mensajito de error, o mejor aún, copia el código aquí para que podamos verlo

[Hitman014]

gracias por todo!! ese mismo era el problema "<"