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