|
Diferencias que encuentro:
1-> En procedure yo tengo puesto: procedure TForm1.Button1Click(Sender: TObject);
2-> Modifique mi código y puse este:
VAR a,b,c:integer;
x,y:real;
begin
a := strtoint(Edit1.Text);
b := strtoint(Edit2.Text);
c := strtoint(Edit3.Text);
x:= (-b + (sqrt(sqr(b)-(4*a*c)))) / (2*a);
y:= (-b - (sqrt(sqr(b)-(4*a*c)))) / (2*a);
edit4.text:=floattostr(x);
edit5.text:=floattostr(y)
*Copiandome del tuyo :P*
Me saleeee ^^ xD Dios muchas gracias ^^
PD: Explicame eso del procedure plz !! ^^
|