hola! necesito 1 codigo :P

[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

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

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