Algoritmo em Pascal - cadastro dos moradores

[Gunter_ 0]

Aeee galera me ajuda aee

tenho que terminar esse programa lembrando que é em Pascal

mas nã consigo fazer o resto dele que é

 

1) Você esta fazendo uma pesquisa entre os habitantes de uma pequena vila. Escreva um programa que colete os dados de idade, sexo (M/F) e salário de todos as pessoas que desejam participar da pesquisa (para encerrar a entrada de dados entre a idade menor ou igual a zero). Após coletar todos os dados informe:

 

 

a. A média de salário do grupo

 

b. Maior e menor idade do grupo

 

c. A percentagem do total de mulheres com salário até R$ 300,00

 

d. A quantidade de homens

 

 

Program pessoas;varsexo: char;contM, contF,total: integer;nome,sair,valor_sair:char;totalhome,cadastro,idade,PorcentgemMasc:real;beginClrscr;contM := 0;total:=0;repeat     write('O numero de Pessoas a Cadastrar');     read(cadastro);	write('Informe seu Nome');	read(nome);	write('Informe sua Idade');   read(idade);		writeln('Digite o sexo '); readln(sexo); total:=total+1;      if sexo = 'm' then      begin      contM := contM + 1;        end;until sexo <>sair;{agora calcula a porcentagem}totalhome:=contM;   WRITELN('= O total de Homems é:',totalhome); end.

[Kandrade 7]

Para os requisitos iniciais faça isso:

 

escrever ("Digite a idade")leia (idade)enquanto (idade > 0) façaleia (nome)// ler o restante dos dados...// apos o processamento voce deve ler novamente a idadeleia (idade)fim_enquanto

Não escrevi em Pascal, pois nunca programei em pascal e desconheço a sintaxe do loop while para essa linguagem.

 

Aqui voce conta o número de homens.

Voce precisará também contar o número de mulheres e mais o número de mulheres que ganham menos ou igual a R$300

 

if sexo = 'm' thenbegincontM := contM + 1;end;

Pode ficar mais ou menos assim:

 

if sexo = 'f' thenbegin   contF := contF + 1;   if salario <= 300 then   begin	  contF300 = contF300 + 1   end;end;

Para achar a menor e a maior idade voce acha muito tópico aqui no fórum sobre isso.

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Carina Zani 0]

Var  Idade : array [1..1000] of integer;

Sexo: array [1..1000] of char;

Salario: array[1..1000] of real;

I: integer;

J: integer;

totalSalario: real;

maiorIdade: integer;

menorIdade: integer;

mulheresPobres: integer;

percentMulheresPobres: real;

media: real;

 

Begin

i := 1;

j := 1;

totalSalario := 0;

maiorIdade := 0;

menorIdade := 200;

mulheresPobres := 0;

 

write ('Digite a Idade:');

readln (idade);

write ('Digite o sexo:');

readln (sexo);

write ('Digite o salário:');

readln (salario);

 

while idade > 0 do

begin

write ('Digite a Idade:');

readln (idade);

write ('Digite o sexo:');

readln (sexo);

write ('Digite o salário:');

readln (salario);

i := i + 1;

end;

 

 

while j < i do

totalSalario := totalSalario + salario[j];

 

if idade[j] > maiorIdade then

begin

maiorIdade := idade[j];

end;

 

if idade[j] < menorIdade then

begin

menorIdade := idade[j];

end;

 

if sexo[j] = 'F' then

if salario[j] <= 300 then

begin

mulheresPobres := mulheresPobres + 1;

end;

 

 

media := totalSalario / i;

writeln ('A media é :', media);

 

percentMulheresPobres := (mulheresPobres / i) * 100;

writeln ('O percentual de mulheres pobre é ', percentmulherespobres);

 

End.

 

Fiz assim e ainda nao funciona muito bem, mas já um caminho ... rs.

[quitZAUMMM 18]

Carina Zani agradecemos a ajuda, + se possível tente contribuir com fóruns mais recentes ;D

 

[]s