¿Necesito Ayuda con Turbo Pascal?
hola necesito ayuda con pascal
tengo una tarea ya hice lo basico
con ciclo for
para que me ingrese 5 nombres
las edades
el sexo de las personas
el estado civil
y si practica algún deporte ¿si/no?
esto ya lo tengo hecho...
pero el profesor me pide que al finalizar debe desplazar que de esas 5 personas, cuantos mayores y menores de edad
cuantos hombres y mujeres
cuantos solteros y casados se encontraron
y cuantos practican algún deporte...
mas bien una clasificacion de esos datos
writeln ('se encontraron 3 mayores de edad');
writeln ('se encontraron 2 menores de edad');
writeln ('se encontraron 4 hombres');
writeln ('se encontraron 1 mujer');
writeln ('se encontraron 3 solteros');
writeln ('se encontraron 2 casados');
esos son los mensajes que tiene que mostrar pero no se como operar para que me clasifique esos datos asi
ayudenme porfavor!!!
Comments
jejeje mira es facil aki te lo pongo :
Program registro;
uses crt;
var
nombre:string;
edad,sex,scivil,res,casado,soltero,mayoredad,menoredad,hombres,mujeres,i,depor:integer;
begin
For i:=1 to 5 do
begin
Writeln('Escriba su nombre');
readln(nombre);
writeln('escriba su edad');
readln(edad);
If edad >= 18 then
begin
mayoredad:=mayoredad + 1;
end
else
begin
menoredad:=menoredad + 1;
end;
writeln('Escriba 1 si es homber, 2 si es mujer');
readln(sex);
case sex of
1: begin
Hombres:=hombres+1;
end;
2: begin
mujeres:=mujeres+1;
end;
end;
writeln('escriba 1 si es soltero, 2 si es casado');
readln(scivil);
case scivil of
1: begin
soltero:=soltero+1;
end;
2: begin
casado:=casado+1;
end;
end;
Writeln('¿Practica algun deporte?');
writeln('1-si');
writeln('2-no');
readln(res);
if res = 1 then
begin
depor:=depor+1;
end;
end;
writeln('Se encontraron ',mayoredad,' mayores de edad');
writeln('Se encontraron ',menoredad,' menores de edad');
writeln('Se encontraron ',hombres,' hombres');
writeln('Se encontraron ',mujeres,' mujeres');
writeln('Se encontraron ',soltero,' solteros');
writeln('Se encontraron ',casado,' casados');
writeln('Se encontraron ',depor,' que hacen deporte');
readkey;
end.