Cita:
Empezado por kbaby
Muahaha sigue igual, maldita calculadora xD sigue igual jaja no se que le pasara. Siento darte dolor de CABEZA
PD: Hice el post despues de ver el edit ok? :P
PD2: Eso ya lo habia visto yo, lo del ) ... :P estoy aqui con la ecuacion en un papel, viendo en que falla el asunto xD, si me vieras, tengo todo con goma de borrar xD.
|
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
).