hola! necesito 1 codigo :P

[[Delphius]]

¿Y cual es el problema?
Sigue continuando como venías haciendo, almacenando los valores en variables y operar con ellas de acuerdo a la fórmula.
Unas funciones que te van a sacar dolor de cabeza: Sqr, Sqrt.
Una es para elevar al cuadrado y la otra saca la raíz cuadrada.

Saludos,

[kbaby]

Aquí estoy, puse esto:

VAR a,b,c:integer;
x,y:real;
begin
a:=STRTOINT(edit1.text);
b:=STRTOINT(edit2.text);
c:=STRTOINT(edit3.text);
x:=(-b + (SQRT(b^2 - 4*a*c))/(2*a))
y:=(-b - (SQRT(b^2 - 4*a*c))/(2*a))
edit4.text:=inttostr(x);
edit5.text:=inttostr(y);
end;


Me da error, no se donde, pero....¿qué hago?

[[egostar]]

Empezado por Delphius

¿Y cual es el problema?
Sigue continuando como venías haciendo, almacenando los valores en variables y operar con ellas de acuerdo a la fórmula.
Unas funciones que te van a sacar dolor de cabeza: Sqr, Sqrt.
Una es para elevar al cuadrado y la otra saca la raíz cuadrada.

Saludos,

Efectivamente, lo que expresamos es como se debe de hacer, pero no funciona como código delphi, has lo que te dice Delphius de usar SQRT() y SQR().

Salud OS

[kbaby]

VAR a,b,c,d: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:=inttostr(x);
edit5.text:=inttostr(y);
end;

Aja ^^ asi hice ^^ creo que lo puse bien no? Aunque sigue dando error. Lo pongo lo que dice:
Missing operator or semicolon
Missing operator or semicolon
Y otro quejandose del inttostr... (es muy largo jeje).

Gracias ! ^^

[kbaby]

Cambie INTTOSTR por FLOATTOSTR y funciona... no me acorde que X e Y son Reales ... lo siento ! ^^ Pero ahora sigue lo del error del semicolon T.T

Missing operator or semicolon

[[egostar]]

Empezado por kbaby

Cambie INTTOSTR por FLOATTOSTR y funciona... no me acorde que X e Y son Reales ... lo siento ! ^^ Pero ahora sigue lo del error del semicolon T.T

Missing operator or semicolon

Muy bien, te felicito, solo te falta un ; al final de cada una de las operaciones.

Salud OS

[kbaby]

Hola de nuevo, ya vi el fallo los ; dichosos ! Bueno, para probarla puse:

A=1
B=1
C=1

y me dio error, tal que... SE CERRO EL PROGRAMA XD Y PERDI TODO (menos mal que guarde el codigo antes xD).
¿Por qué? Pruébalo porfavor:

VAR a,b,c,d: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;


Muchas gracias de verdad.

[[egostar]]

Empezado por kbaby

Hola de nuevo, ya vi el fallo los ; dichosos ! Bueno, para probarla puse:

A=1
B=1
C=1

y me dio error, tal que... SE CERRO EL PROGRAMA XD Y PERDI TODO (menos mal que guarde el codigo antes xD).
¿Por qué? Pruébalo porfavor:

Es que el ahora vienen las complicaciones, hay que validar el resultado del elemento dentro de la raiz cuadrada, si regresas a mensajes anteriores roberto01 te puso un link a esto que estamos tratando y valida eso precisamente. Estudialo detenidamente porque esta un poco complejo, pero ahi esta la respuesta.

Intenta con estos valores que no te darán error

a=1
b=-5
b=6

El resultado debera ser

x=3
y=2

Salud OS

[[Caral]]

Hola
Muy impresionante, te felicito.
El problema lo tienes aqui:

Código Delphi [-]
x:=(-b + (SQRT(SQR(b) - 4*a*c))/(2*a));
y:=(-b - (SQRT(SQR(b) - 4*a*c))/(2*a));

saludos

[kbaby]

Es el mismo codigo o.O creo que no viste el ultimo POST, lo habia corregido ya antes ^^ pero gracias. O alomejor me equivoco, te refieres a los ;