hola! necesito 1 codigo :P

[kbaby]

¿Por qué Señor, por qué yo ?

X=5,5
Y=4,5

¿Por qué soy tan... tonto...?

Nada.. supongo que es un error de calculo en: x:=(-b + (SQRT(SQR(b) - 4*a*c))/(2*a));

¿No?

[[egostar]]

Empezado por kbaby

¿Por qué Señor, por qué yo ?

X=5,5
Y=4,5

¿Por qué soy tan... tonto...?

Nada.. supongo que es un error de calculo en: x:=(-b + (SQRT(SQR(b) - 4*a*c))/(2*a));

¿No?

Ahh ya veo el error,

x:=(-b + (SQRT(SQR(b) - 4*a*c))/(2*a));

cambia por esto

x:=(-b + (SQRT(SQR(b) - (4*a*c)))/(2*a));

Salud OS

[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.

[[egostar]]

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 ).

[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 ?