¿Cómo puedo separar en hombres y mujeres en el programa que he creado?

Tengo una duda con un programa lo que pasa es que se me pide un programa en que ingrese algunas preguntas, dentro de las cuales esta el sexo, si es masculino me muestre la cantidad de varones y el promedio de edad de estos y lo mismo para las mujeres. El problema esta en que no se hacer la diferencia para hombres y mujeres. Aquí te va el programa para que me lo revises. Gracias
program curso_por_sexo;
uses
wincrt;
var
nom:string[20];
edad,cant1,cant2,cant,sum1,sum2:real;
resp,sexo:char;
prom1,prom2:real;
begin
resp:='s';
cant1:=0;
cant2:=0;
sum1:=0;
sum2:=0;
while(resp='S') or (resp='s') do
begin
writeln('INGRESE EL NOMBRE DEL ALUMNO/A:');
readln(nom);
writeln('INGRESE LA EDAD DEL ALUMNO/A:');
readln(edad);
writeln('INGRESE EL SEXO DEL ALUMNO, (M/F)');
readln(sexo);
writeln('¿DESEA CONTINUAR INGRESANDO DATOS? : S/N ');
readln(resp);
if sexo='m' then
begin
cant1:=cant1+1;
sum1:=sum1+edad;
end
else
cant2:=cant2+1;
sum2:=sum2+edad
end;
prom1:=sum1/cant1
prom2:=sum2/cant2
writeln('LA CANTIDAD DE ALUMNOS ES:',cant1:3:1);
writeln('LA EDAD PROMEDIO DE VARONES ES:',prom1:3:1);
writeln('LA CANTIDAD DE ALUMNAS ES:',cant2:3:1);
writeln('LA EDAD PROMEDIO DE DAMAS ES:',prom2:3:1);
end.

1 respuesta

Respuesta
1
Tu programa esta muy bien solo lo que debías de hacer es modificar un if, eso es lo que creo porque así funciona correcto en teoría la manera que tu la hiciste esta bien pero lo más conveniente seria que le hagas con los if independientes.. para más referencia mira el código si no lo entiendes no tienes más que preguntarme ok.. adiós..
program curso_por_sexo;
uses
crt;
var
nom:string[20];
edad,cant1,cant2,cant,sum1,sum2:real;
resp,sexo:char;
prom1,prom2:real;
begin
clrscr;
resp:='s';
cant1:=0;
cant2:=0;
sum1:=0;
sum2:=0;
while(resp='S') or (resp='s') do
begin
writeln('INGRESE EL NOMBRE DEL ALUMNO/A:');
readln(nom);
writeln('INGRESE LA EDAD DEL ALUMNO/A:');
readln(edad);
writeln('INGRESE EL SEXO DEL ALUMNO, (M/F)');
readln(sexo);
writeln('¿DESEA CONTINUAR INGRESANDO DATOS? : S/N ');
readln(resp);
if (sexo='m') or(sexo='M') then
begin
cant1:=cant1+1;
sum1:=sum1+edad;
end;
if (sexo='F') or(sexo='f') then
begin
cant2:=cant2+1;
sum2:=sum2+edad;
end;
end;
prom1:=sum1/cant1;
prom2:=sum2/cant2;
writeln('LA CANTIDAD DE ALUMNOS ES:',cant1:3:1);
writeln('LA EDAD PROMEDIO DE VARONES ES:',prom1:3:1);
writeln('LA CANTIDAD DE ALUMNAS ES:',cant2:3:1);
writeln('LA EDAD PROMEDIO DE DAMAS ES:',prom2:3:1);
readln;
end.
Espero que lo hayas entendido el problemas de esta página es que no hay como escribir textos largos bueno adiós y suerte.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas