FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Ayuda Con Este Error :s
procedure TForm1.Button1Click(Sender: TObject);
var pt,a,p,ah,prome1,prome2:real; s:string; hombre,c1,n:integer; begin a:=0; p:=0; prome1:=1; prome2:=1; pt:=0; hombre:=0; n:=0; n:=strtoint(inputbox('IGRESE EL NUMERO DE PERSONAS',' N:','')); for c1:=1 to n do a:= strtofloat(inputbox('IGRESE LA ALTURA DE LA PERSONA M',' A:','')); p:=strtofloat(inputbox('INGRESE EL PESO DE LA PERSONA KG ',' P:','')); s:=string(inputbox('INGRSE EL SEXO DE LA PERSONA',' S:','')); begin if (s :=m) then begin hombre:=hombre+1; ah:=ah+a; end; pt:=pt+p; end; prome1:= pt/n; prome2:=ah/hombre; El error se encunetra enmarcado en la zona roja, dice: [Error] Unit1.pas(52): ')' expected but ':=' found si alguien puede ayudar mil gracias. |
#2
|
|||
|
|||
Te recomiendo que uses etiquetas para encerrar el codigo delphi y sea mas legible.
If efectuara una comparacion NO una asignacion. Lo correcto seria :
__________________
ESTO ES UN FORO ... NO UN MÓVIL ¿Por qué no escribir de una manera comprensible para que los humanos lo podamos entender? |
#3
|
||||
|
||||
El operador := se usa para asignar valores, no para comparaciones. Lo correcto sería:
Por cierto, bienvenido a ClubDelphi. Recuerda leer la guía de estilo y utilzar las etiquetas adecuadas para poner codigo fuente. // Saludos |
#4
|
|||
|
|||
Muchasgracias por la bienvenida, pero el error aun se mantiene no tengo idea de q puede ser
Última edición por darnnezt fecha: 26-07-2010 a las 23:40:30. |
#5
|
|||
|
|||
Cita:
Ahora, estás comparando la variable "m" y veo que no está declarada. Quizá deseas comparar con la variable "n". Cuidado que s y n son de distinto tipo. |
#6
|
|||
|
|||
GRACIAS YA EL PROGRAMA CORRE, pERO ME DI CUENTA Q SE HA CONVERTIDO EN UN BUCLE INFINITO OSEA SE KEDA PIDIENDO RESULTADO HASTA Q DA ERROR Y NUNKA DA LAS RESPUESTAS,INTENTAE
De esta manerael programa funciona solo q no da respuestas |
#7
|
||||
|
||||
intenta asi
Cita:
function AnsiCompareStr( const S1, S2: string ): Integer; function AnsiCompareText( const S1, S2: string ): Integer; o supongo que hay maneras mnas optimas de hacer lo mismo pero esta funciona (y como no tengo mucho tiempo) aqui coloqué a m el valor de 'm' pensando en que la opcion para ingresar es 'masculino'. tambien coloqué dentro del ciclo las opciones donde pedías la altura y peso, pues si al final estabas mostrando el promedio, tenias que pedir cada uno de estos datos por persona. saludos! y me cuentas si funciona.
__________________
Para una vida sana hay que ocupar 30 de 24hrs diarias...Ups! |
#8
|
|||
|
|||
Funciona A La Perfeccion Muchisimas Gracias, solo tuve q agregarle al mio que m:='m' muchas gracias
Última edición por darnnezt fecha: 27-07-2010 a las 03:15:26. |
#9
|
|||
|
|||
De esta Manera queda muy corto
Gracias a todos |
#10
|
||||
|
||||
tomalo en cuenta
claro que es mas corto,
pero siempre toma en cuenta que un usuario puede ingresar valores donde todas las personas sean mujeres. entonces tendrias una division con cero y eso genera una excepcion. tal vez esta es una practica y no se ve que afecte tanto, pero hay que acostumbrarse a ese tipo de cosas pues uno no controla lo que el usuario ingresa. en resumen, piensa hasta el minimo detalle en cuanto a manejo de errores (incluso puede que en el codigo me falte o este fuera de lugar algun manejo), con el tiempo y a medida que aumentan tus exigencias de programacion (o en el trabajo) te daras cuenta del porque tiene importancia verificar esos errores o las excepciones.
__________________
Para una vida sana hay que ocupar 30 de 24hrs diarias...Ups! |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
una ayuda con este error please | dariana20 | SQL | 3 | 14-06-2006 23:14:06 |
Error 10093 al ver un informe - Que error es este? | URBANO | Impresión | 1 | 03-02-2006 18:44:39 |
¿Por qué me da este error?Error creating cursor manejador | nuri | SQL | 2 | 01-08-2005 17:30:28 |
Ayuda con este error???? | danytorres | Varios | 1 | 27-10-2004 11:38:09 |
Me ayuda alguien con este msg de error? | NaZZ | Varios | 4 | 12-03-2004 09:31:25 |
|