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