Pascal/Delphi Algoritmo Masculino e feminino

[Charles Diogo123]

Faça um algoritmo que mostre a quantidade de pessoas que são do sexo masculino e feminino e a soma das idades de cada sexo e mostre a porcentagem de pessoas do sexo feminino e masculino e o total de pessoas usadas no algoritmo.

 

Eu só consegui fazer o algoritmo somando as idades de cada sexo, alguém poderia ajudar  a terminar o exercício?

var

cont,soma_f,soma_m,idade, soma: integer;
sexo: string;

Begin
For cont:= 1 to 5 do
begin
Writeln('Informe o sexo (com a letra minuscula):');
read(sexo);
Writeln('Informe a idade:');
read(idade);
if (sexo='m') then
soma_m:= soma_m + idade
else if (sexo='f') then
soma_f:= soma_f + idade;
end;
Writeln('Soma das idades do sexo masculino: ',soma_m);
Writeln('Soma das idades do sexo feminino: ',soma_f);

end.

 

(FIZ O ALGORITMO NO PASCALZIM)

[Simon Viegas]

Olá.

 

A sugestão é tentar separar bens as partes. Por exemplo, no seu código.. qual parte não está conseguindo fazer? você já implementou a "soma das idades". Qual próxima parte estava fazendo e onde está as sua dúvida ou dificuldade?

 

 

Para adiantar, segue um modelo:

program FCdH;
{
Faça um algoritmo que mostre a quantidade de pessoas que são do sexo masculino
e feminino e a soma das idades de cada sexo e mostre a porcentagem de pessoas
do sexo feminino e masculino e o total de pessoas usadas no algoritmo.
}
var
  //dados das pessoas
  sexo  :string;
  idade :integer;
  
  //dados estatísticos
  qtdMasc,             //quantidade de pessoas do sexo masculino
  qtdFemi,             //quantidade de pessoas do sexo masculino
  somaMasc,            //soma das idades das pessoas do sexo masculino
  somaFemi :integer;   //soma das idades das pessoas do sexo feminino
  
  //variáveis auxiliares
  cont: integer;
begin
for cont:=1 to 5 do
  begin
  //leitura dos dados da pessoa
  write  ('Sexo : ');
  readln(sexo);
  write  ('Idede: ');
  readln(idade);
  
  //parte dos processamentos dos dados
  if (sexo='m') or (sexo='M') then
    begin
    qtdMasc :=qtdMasc  + 1;
    somaMasc:=somaMasc + idade;
    end
  else
    if (sexo='f') or (sexo='F') then
      begin
      qtdFemi :=qtdFemi  + 1;
      somaFemi:=somaFemi + idade;
      end;
end;
//exibe os resultados
writeln('Quantidade masculinos    : ',qtdMasc);
writeln('Quantidade femininos     : ',qtdFemi);
writeln('Soma das idades masculino: ',somaMasc);
writeln('Soma das idades feminino : ',somaFemi);
writeln('Porcentagem masculino    : ',(qtdMasc/5)*100:3:0,'%'); //calcula a porcentagem já na hora de exibir
writeln('Porcentagem masculino    : ',(qtdFemi/5)*100:3:0,'%'); //calcula a porcentagem já na hora de exibir

readln;
end.