Cita:
Empezado por egostar
Pues mira, he ido probando lo que haces y tengo esto en mi código. Checa si hay alguna diferencia.
Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
a,b,c : integer;
Resultado: Real;
begin
a := strtoint(Edit1.Text);
b := strtoint(Edit2.Text);
c := strtoint(Edit3.Text);
Resultado := (-b + (sqrt(sqr(b)-(4*a*c)))) / (2*a);
ShowMessage(FloattoStr(Resultado));
Resultado := (-b - (sqrt(sqr(b)-(4*a*c)))) / (2*a);
ShowMessage(FloattoStr(Resultado));
end;
Salud OS
Edito:
 , veo que te está faltando un ) eso es un error común, no te aflijas, para cada ( debes tener un ). |
Pregunta 1: ¿de dónde sale y para que es: ShowMessage(FloattoStr(Resultado));? se lo tengo luego que explicar al profesor xD.
Pregunta 2: ¿No usas la X ni la Y?
Voy a probarlo, ahora te cuento ^^