hola! necesito 1 codigo :P

[kbaby]

Ya se que no cobran... -.-''

No se que explicarte con mis palabras, yo lo que quiero son tres casillas A,B,C donde ponga las incognitas y me salgan en otras dos casillas los resultados de dicha ecuacion de 2º grado... No es más.

Gracias.

[[Lepe]]

Entonces el problema que tenemos no es de programación, es de matemáticas .

Bueno, no voy a ser malo, (de todas formas google te da la solucion)

Usa lo que en esa web dice "ecuación completa"

Ahora unas sugerencias:
- el cuadrado de un número, lo puedes obtener con la función Intpower de delphi
- la raiz cuadrada con sqrt(aqui_el_numero)
- El resto de operaciones, son las normales, comentar que uses "/" para la división con decimales.
- Ten cuidado al dividir, ya que si el divisor es cero, tu programa se quejará al realizar la división.

PD: aprende de memoria la dichosita fórmula, que puede ser pregunta de exámen, ahí verán si copiaste la fórmula sin más o te interesaste en el tema .

Saludos

[[egostar]]

Acotando lo que dice Lepe y Delphius, te piden 2 casillas porque las ecuaciones de segundo grado tienen la caracteristica de tener dos resultados.

x = (-b/2*a) +- (Raiz(b^2 - 4*a*c))/(2*a))

Esto se ve de dos formas

x1 = (-b/2*a) + (Raiz(b^2 - 4*a*c))/(2*a))
x2 = (-b/2*a) - (Raiz(b^2 - 4*a*c))/(2*a))

Edito

Creo que aqui hay un pequeño error

La ecuación sería así no Delphius

x = (-b +- (Raiz(b^2 - 4*a*c))/(2*a))

x1 = (-b + (Raiz(b^2 - 4*a*c))/(2*a))
x2 = (-b - (Raiz(b^2 - 4*a*c))/(2*a))

Salud OS

[kbaby]

Empezado por Lepe

Entonces el problema que tenemos no es de programación, es de matemáticas .

Bueno, no voy a ser malo, (de todas formas google te da la solucion)

Usa lo que en esa web dice "ecuación completa"

Ahora unas sugerencias:
- el cuadrado de un número, lo puedes obtener con la función Intpower de delphi
- la raiz cuadrada con sqrt(aqui_el_numero)
- El resto de operaciones, son las normales, comentar que uses "/" para la división con decimales.
- Ten cuidado al dividir, ya que si el divisor es cero, tu programa se quejará al realizar la división.

PD: aprende de memoria la dichosita fórmula, que puede ser pregunta de exámen, ahí verán si copiaste la fórmula sin más o te interesaste en el tema .

Saludos

*Cof.. Cof..* Ejem... la formula me la se ^^ lo que no se es como ponerla en el programa, llevo 2 o 3 dias con el y no he visto nada del otro mundo. Así que es por eso, de mates ando bien . Seguire leyendo post.

[kbaby]

Egostar creo que lo que me dijiste me funcionara, voy a probarlo.

A ver señores... me parece que porque tenga 14 años no parais de decirme que me estudie la formula o que es problema de matematicas... a ver... LA FORMULA ME LA SE -.- Y OPERO CON ELLA, ESO ES TEMARIO DE HACE 2 AÑOS. La programacion (informatica como asignatura) la empeze esta semana, y directamente fuimos a programar, y yo empiezo desde 0 con los ordenadores. Nunca los usé. No digais mas que estudie dichosa formula que me la se -.-.


GRACIAS EGOSTAR.

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

[[Delphius]]

kbaby,
Lamento decirtelo de esta forma: ¿Como es posible que te pidan un ejercicio que implica ecuaciones de segundo grado si no viste el tema en la materia correspondiente?

Como te dije. Puedo elaborarte un ejemplo, y al tema lo conozco... ya pasé por eso. Pero el código que yo te puedo elaborar es muy posible que escape a tus conocimientos.

Una ecuación de segundo grado se resuelve de forma muy sencilla, igualandola a cero:

a*x^a + b*x + c = 0

x = (-b/2*a) +- (Raiz(b^2 - 4*a*c))/(2*a))

De modo que se consiguen dos resultados, uno con la suma y el otro con la resta entre los miembros de la ecuación. Siendo Razi() la raíz cuadrada.

Por algo te pido que escribas con tus palabras que entiendes por ecuación de segundo grado. La fórmula anterior tiene sentido siempre y cuando la solución se encuentre en los números reales, en otro caso está en el mundo de los complejos. Es decir siempre que (b^2 - 4*a*c) sea mayor o igual a cero.

Para mayor info te remito a la wiki si deseas saber.

Te podemos ayudar a medida que continues con el trabajo. Prueba con lo que entiendes. No quiero elaborarte el código, es necesario que tu lo aprendas... yo ya lo ví. Para mi es un repaso.

Espero que puedas aceptar estas palabras, no es una reprimenda. Pero debes poner de tu parte.

Saludos,