FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Necesito Ayuda Formula General
Hola compañeros soy nuevo en el club.. bueno lo k necesito es ayuda...
Mi Profesor nos puso que hagamos un programa osea que calcula la ecuacion cuadratica con la formula general.. El programa tiene k pedir el valor de a de b y de c y a no puede ser igual a 0... Todo esto tengo k hacerlo pero tengo k calcular la formula general.. y me he cansado de hacer de todo... ayudenme por favor... yo kiciera k el programa me pida el valor de a el de b y el de c y me de el resultado de x1 y de x2.. muchas Gracias.. |
#2
|
||||
|
||||
pues...
pon algo de lo que estas haciendo.. que codigo estas usando por lo pronto usas 3 edits me imagino coloca la formula que deseas para ver si alguien por ahi te ayuda
__________________
Dulce Regalo que Satanas manda para mi..... |
#3
|
||||
|
||||
Hola, thebest07, tal y como ha dicho oscarac, pon lo que lleves o sepas, la fórmula y toda la información precisa, recuerda nuestra guía de estilo, no dejes de leerla, gracias.
|
#4
|
||||
|
||||
Aquí puedes ver cómo se resuelve una ecuación cuadrática.
En Delphi puedes hacer todas las operaciones requeridas por esta ecuación: Suma: + Resta: - Multiplicación: * División: / Potencia: Power(Base, Exponente). Esta función está en la unidad Math Raiz Cuadrada: sqrt(x) Utilizarás paréntesis, para agrupar términos. Ejemplo: (x+y)*2 Última edición por duilioisola fecha: 02-07-2011 a las 11:20:29. |
#5
|
|||
|
|||
Muchas gracias
ola amigos, muchas gracias por poner de su parte para k pudiera hacer este programa, bueno aki esta el codigo:
Código:
procedure Tfrmecuacion.cmdcalcularClick(Sender: TObject); var a,b,c: Integer; x1,x2,r: Real; begin a := StrToInt(txta.Text); b := StrToInt(txtb.Text); c := StrToInt(txtc.Text); r := b*b-4*a*c; x1:= (-b+ Sqrt(r))/2*a; x2:= (-b- Sqrt(r))/2*a; begin txtres1.Text := floattostr(x1); txtres2.text := floattostr(x2); end; end; Ahora lo k kiero es hacer k a no sea igual a cero(0) y si es asi me tire un mensaje....diciendome que el primer valor no puede ser igual a Cero.. gracias... |
#6
|
||||
|
||||
Para mostrar mensajes puedes utilizar la función ShowMessage(msg);
Para comprobaciones tienes las sentencias if..then..else.
Si tienes más de un comando debes encerrarlos en bloque begin..end
|
#7
|
|||
|
|||
Cita:
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Ayuda con formula | paladincubano | Varios | 13 | 13-12-2008 06:58:57 |
Necesito ayuda | magnu9 | Conexión con bases de datos | 10 | 27-07-2007 14:55:22 |
Ayuda para poder general codiog EA13 | jandres | Varios | 3 | 15-09-2006 00:07:29 |
Necesito ayuda | RoyTan | Conexión con bases de datos | 1 | 27-08-2006 06:23:15 |
Necesito ayuda!! | DiRHoP | Varios | 7 | 16-09-2005 02:44:42 |
|