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

[[egostar]]

Empezado por kbaby

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

Bueno, no uso la X ni la Y porque no quise usar otros edit's, tu cambia Resultado por X y Y donde corresponda.

El ShowMessage lo uso para mostrar en una pantalla el resultado, no lo uses ahora, mejor dale una leida a la ayuda para que veas de que se trata, después lo usaras mucho.

Salud OS

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

[[egostar]]

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 ?

[kbaby]

Vale, antes lo estaba buscando y no lo veia, pero ya si. Gracias ! Continuare comentando dudas, asi que de mi no te libras .


Muchas gracias, aunque lo del procedure, lo entendi a medias. Abro otro tema para otro problema diferente a esto :P ^^

Gracias !

[kbaby]

Entendido lo del boton, ya vi :P gracias xD fue tocando, como aprendi ^^