hola! necesito 1 codigo :P

[kbaby]

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 ^^