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
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
pt,a,p,ah,prome1,prome2:real;
f,m,s:string;
hombre,c1,N:integer;
begin
a:=0;
p:=0;
pt:=0;
hombre:=0;
N:=0;
N:=strtoint(inputbox('IGRESE EL NUMERO DE PERSONAS',' N:',''));
a:= strtofloat(inputbox('IGRESE LA ALTURA DE LA PERSONA M',' A:',''));
p:=strtofloat(inputbox('INGRESE EL PESO DE LA PERSONA KG ',' P:',''));
for c1:=1 to n do
begin
s:=string(inputbox('INGRSE EL SEXO DE LA PERSONA',' S:',''));
if (s = m) then
begin
hombre:=hombre+1;
ah:=ah+a;
end;
end;
pt:=pt+p;
prome1:= pt/n;
prome2:=ah/hombre;
Showmessage(' EL PESO DE LA POBLACION TOTAL '+FLOATTOSTR(prome1));
showmessage('EL PROMEDIO DE LA ALTURA DE LOS HOMBRE ES '+FLOATTOSTR(prome2));
De esta manerael programa funciona solo q no da respuestas
