Cita:
Empezado por kbaby
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 !! ^^
|
Bueno, tú estas usando un botón que está en la carpeta STANDARD y yo estoy usando el botón que está en la carpeta ADDITIONAL, es solo eso.
Salud OS
PD. Para que tu código se vea bien usa la etiqueta de delphi que verás en el menu de opciones cuando estas escribiendo un mensaje con el icono tipico de Delphi.
Código Delphi
[-]
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)
end;
Ves la diferencia ?