FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#21
|
|||
|
|||
Cita:
Salud OS |
#22
|
||||
|
||||
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. |
#24
|
||||
|
||||
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 ;
|
#25
|
|||
|
|||
Cita:
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 |
#26
|
||||
|
||||
¿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? |
#27
|
|||
|
|||
Cita:
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 Última edición por egostar fecha: 09-11-2007 a las 21:30:45. Razón: Se fue un [/B] en el (2*a) |
#28
|
||||
|
||||
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. Última edición por kbaby fecha: 09-11-2007 a las 21:33:43. Razón: NOTA |
#29
|
|||
|
|||
Cita:
Salud OS Edito: , veo que te está faltando un ) eso es un error común, no te aflijas, para cada ( debes tener un ). |
#30
|
||||
|
||||
Cita:
Pregunta 2: ¿No usas la X ni la Y? Voy a probarlo, ahora te cuento ^^ |
#31
|
|||
|
|||
Cita:
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 |
#32
|
||||
|
||||
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 !! ^^ |
#33
|
|||
|
|||
Cita:
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.
Ves la diferencia ? |
#34
|
||||
|
||||
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 ! |
#35
|
||||
|
||||
Entendido lo del boton, ya vi :P gracias xD fue tocando, como aprendi ^^
|
#36
|
|||
|
|||
Cita:
Hola soy maximiliano y tengo 14 años igual y entendi muy bien esa instrucción yo programo hace 5 años atras con DELPHI 7 ahora toy aprendiendo usar DELPHI for NET y C# voy avanzado jejejjee........ y hasta cree mi propio programa de codigo de barra barcodemx08.blogspot.com jejejje Última edición por maco2007 fecha: 09-11-2007 a las 22:27:30. |
#37
|
|||
|
|||
.........
xD |
#38
|
||||
|
||||
Hola. Veréis, quisiera comentar un par de cosillas.
• La primera es que pienso que habéis tratado al chaval (kbaby) de forma un tanto.... desagradable. Desde un principio ha dejado claro que el problema era la programación, y no las mates. Además, ha dicho que era novato, no que sea idiota o no que no quisiera aprender (también ha dicho que se tiró un par de horas intentando dar con la solución). Quizás su mayor error ha sido no leerse la guía de estilo (o leerla y no hacerle caso). • ¿De verdad que das programación en Delphi en el colegio (supongo que instituto) a las 14 años? No sé, me parece extraño. ¿De dónde eres? • Aquí son los adultos los que han cometido los mayores errores (matemáticos), de los que quizás su profesionalidad los ha salvado. ¿Cómo que nadie sabía hacer ecuaciones de segundo grado? ¿Todos de verdad la han buscado en Google? ¿Nadie tenía clase de matemáticas en la carrera? Por ejemplo, no recuerdo quién ha dicho que las ecuaciones de 2º grado tienen esta forma: a*x^a + b*x + c = 0. Supongo que ahí hay error tipográfico, pues "de segundo grado" equivale a decir "grado 2", que es el mayor exponente de la variable, es decir a*x^2 + b*x + c = 0. Luego también se ha dicho: "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))" Primero, "no Delphius" vendría entre signos de interrogación, ¿no?, y segundo, la ecuación de Delphius y la que ahí está escrita son exactamente iguales. Pero claro, para saberlo hay que saber un mínimo de matemáticas (el que tienen los de 6º de primaria es España, pues para darse cuenta sólo hay que hacer una suma de fracciones con el mismo denominador). • Tranquilo, kbaby, yo también empecé jovencito con Delphi (a los trece, ahora tengo 18), aunque no por que me obligaran en el cole, sino por afición. También cometía errores que ahora me parecen ridículos, pero poco a poco (en realidad mucho más rápido de lo que parece o se imagina) vas aprendiendo programación, hasta que te conviertes sin darte cuenta en el que está ayudando a un chaval a resolver un pequeño problemilla con ecuaciones de 2º grado. • maco2007, ¿de verdad llevas 5 años con Delphi 7? ¿Tan vieja es ya esa versión? Y yo utilizando la 3 standar.... ¡Mamma mía! Sin TActionList, ni componentes de internet, ni Anchors, ni Int64, ni un montón de cosas más... ... Ahora en serio, sigue así Bueno, espero que nadie se sienta ofendido con este post. Saludos. Edito: Acabo de recordar otro fallo que he visto, donde se pedía que kbaby cambiara "- 4*a*c" por " - (4*a*c)"... ¿Por qué a kbaby le daba el mismo resultado?. Porque: - Matemáticamente: Las multiplicaciones se deben realizar antes que la resta. - Informáticamente: El compilador se encargará de que el programa efectúe primero la multiplicación, y después la resta (es decir, tiene en cuenta una prioridad de operadores). Última edición por ixMike fecha: 10-11-2007 a las 14:39:13. |
#39
|
||||
|
||||
Cita:
Admito que mis palabras fueron subidas de tono. Fue un error y no supe canalizar correctamente las ideas. Si fuí así se debió a que me ha costado aceptar la idea y percepción del problema. Es natural que haya conocido ecuaciones de segundo grado, a los 14 años el tema debió haberse visto. Por simple que sea problema, lo natural es que si se aprende a realizar sumas, el procedimiento para conseguir una ecuación resulte análogo. El código que venía trabajando kbaby es sencillo, obtenía los valores mediante IntTostr() y luego realizaba la operación. De igual manera se consigue con la fórmula de la ecuación de segundo grado, unicamente habría que cambiar IntToStr por FloatToStr. No hay demasiada ciencia. Y ya kbaby contaba con el conocimiento de como obtener la raiz cuadrada. El mismo ya lo había dicho. Por tanto considero que si se aprende a realizar las operaciones elementales, se puede escribir las fórmulas para ello. Solo sería cuestión de "concatenar" las operaciones en la forma correcta. Cita:
A mi no me molesta mucho. He reconocido mis errores, pero como ya he dicho no han sido realizados con intención. Un error lo puede cometer cualquiera, pero considero que tampoco la maneras en que me "atacas" tampoco está bien. Bueno, ya lo dicho. Si es necesario disculparme por esto, y sobre todo por este post, bueno... me disculpo. No me molesta reconocer que tuve errores, lo comete cualquiera pero no es adecuado venir a decir que lo que me salvó fué "profesionalismo" y con ello quedo eximido de culpa. Me señalaste el error, listo... pero no me ataques de ese modo. Es lo único que me ha molestado. ¿No te ha bastado con decirme "disculpa... veo un error"? ¿Era necesario venir a promulgar que "por profesionalismo lo dejamos pasar"? Mike, no tengo problemas contigo, no te conozco demasiado en estos foros. De hecho, considero que ha sido noble de tu parte el querer hacer lo posible para despejar las dudas y aclarecer el panorama que le acomplejaba a kbaby. No pretendo atacarte, sólo hacerte notar que tampoco tu estuviste demasiado bien. Saludos, |
#40
|
||||
|
||||
Hola ^^ Bueno... IxMikel gracias por escribir la cantidad de palabras para explicar todo, porque eso se agradece, porque yo tardaría siglos y centenarios. Y respondiendo a tus preguntas, tengo 14 años, pero estoy en 1º de Bachiller de cientifico-tecnico porque en primaria me adelantaron 2 cursos. Soy de granada y estudiare Astrología o Ciencias exactas, aunque no lo tengo definido aún. Gracias por resaltar como fue la realidad, y te lo agradezco. Tambien agradezgo a egostar todo lo que se comio la cabeza conmigo que soy un ... noob en eso .
Voy a subir a internet mi programa, para que veais mas o menso como me quedo, y sera lo que presentaré en el colegio. Un saludo |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Necesito pasar de doc a pdf por codigo...help!!! | cirilungol | Varios | 2 | 29-05-2006 09:52:49 |
Hola Es mi primer mensaje en este Foro y necesito ayuda para archivos XML | Juan_Carlos_P | Gráficos | 2 | 08-08-2005 19:11:17 |
Necesito un repositorio de codigo fuente !! | Raptor | Varios | 0 | 27-09-2004 18:02:55 |
Hola, Necesito instalar el componente FlatStyle 1.0 en mi Delphi7 | chelodelphi | OOP | 0 | 24-09-2004 08:57:03 |
Hola Incrementacion de codigo | edwin1 | OOP | 2 | 07-08-2003 07:10:08 |
|