Ir ao conteúdo
  • Cadastre-se
Charles Diogo123

Pascal Algoritmo Masculino e feminino

Recommended Posts

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)

Editado por Simon Viegas
Inserir tag CODE (botão <> que fica na barra de ferramentas)
  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

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.

 

Editado por Simon Viegas
  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×