Ajuda no Pascal

Cronosferathus · 13 de dezembro de 2009

Galera estou precisando de uma forçinha de vocês, com o seguinte exercicio:

1) Foi feita uma pesquisa entre os habitantes de uma região. Foram coletados os dados de idade,sexo (M/F) e salário. Faça um algoritmo que informa:

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

Maior e menor idade do grupo

c) Quantidade de mulheres com salário até R$ 100,00

d) Quantidade de homens

program Exercicio;

uses crt;

var  Idade, MI, MEI, qtdt, I, cont_m, cont_f, total_m, total_f : integer;
     sexo : char;
     Salario : real;


begin
 cont_m:=0;
 cont_f:=0;
 MI:=0;
 MEI:=0;
 write('Informe a quantidade do grupo:');
 readln(qtdt);
 for I:=1 to qtdt do
  begin
   writeln('Informe o sexo da ',I,' o pessoa:<m> masculino ou <f> feminino');
   readln(sexo);
   writeln('Informe a idade da ',I,'pessoa:');
   readln(Idade);
   writeln('Informe o salario da ',I,'pessoa:');
   readln(Salario);
   clrscr;
   Salario:=Salario+1
  end;
     If Idade<MI then
        MEI:=Idade;
     If Idade>MI then
        MI:=Idade;
     If sexo='m' then
       cont_m:=cont_m+1;
        If (Salario <= 100) then
         total_m:=total_m+1;
     If sexo='f' then
       cont_f:=cont_f+1;
        If (Salario <= 100) then
         total_f:=total_f+1;
 clrscr;
 writeln('Resultado:');
 writeln('A maior idade e: ',MI);
 writeln('A menor idade e: ',MEI);
 writeln('A media de salario do grupo e:',Salario/qtdt:2:2);
 writeln('A quantidade de mulheres com salario ate R$100,00 e:');
 readln(cont_f);
 writeln('A quantidade de homens com salario ate R$100,00 e:');
 readln(cont_m);
 readkey;
end.

MI = Maior Idade

MEI = Menor Idade

A media ta saindo só do ultimo salario e nao de todos, a quantidade de mulheres e de homens com salario ate R$ 100,00 não esta funcionando

A maior idade esta funcionando mas a menor também nao está.

Se poderem me dar umas dicas, para acertar esses erros ficarei grato.

Obrigado.

johnatanandressa · 14 de dezembro de 2009

A media ta saindo só do ultimo salario e nao de todos:

salario não é

salario:=salario+salario

a quantidade de mulheres e de homens com salario ate R$ 100,00 não esta funcionando

If sexo='m' and salario <=100 then        
total_m:=total_m+1;

If sexo='f' and salario <=100 then        
total_m:=total_m+1;

tente dar uma revisada com esses itens acima tudu bem

Cronosferathus · 14 de dezembro de 2009

Eu já havia testado desta maneira na parte do salario até 100,00

aí da o seguinte erro na hora de compilar,

Operator is not overloaded

johnatanandressa · 15 de dezembro de 2009


If (sexo='m') and (salario <=100) then        
total_m:=total_m+1;

If (sexo='f') and (salario <=100) then        
total_m:=total_m+1;

nem assim???

Edna Aparecida · 29 de julho de 2010

Sei que é antigo, porém estou estudando agora, preciso muito aprender por favor, o meu não rodou este que esta aqui roda, porém não termina, segue o meu aqui.

program habitantes;

{$APPTYPE CONSOLE}

uses

SysUtils;

var

n,cont,idade_maior,idade_menor,idade,sexo_f,sexo_m:integer;

quant_sal_feminino,soma_salario,salario_f,salario_m,media_sal:real;

sexo:string;

begin

writeln ('Informe a quantidade de pessoas que voce pesquisou');

readln(n);

cont:=0;

Idade:=0;

salario_f:=0;

salario_m:=0;

repeat

begin

writeln('Digite sua idade');

readln(idade);

writeln('Digite o sexo');

readln(sexo);

if sexo='f' then

begin

sexo_f:=sexo_f + idade;

end;

begin

writeln('Escreva o salario do sexo feminino');

readln(salario_f);

begin

salario_f:= salario_f + cont;

end;

if salario_f <= 100 then

begin

quant_sal_feminino:=salario_f;

end;

end

else if sexo='m' then

begin

sexo_m:=sexo_m + idade;

end;

begin

writeln('Escreva o salario do sexo masculino');

readln(salario_m);

begin

salario_m:=salario_m + cont;

end;

begin

soma_salario:= salario_f + salario_m;

media_sal:= soma_salario/n;

end;

if cont=0 then

begin

idade:=idade_menor;

idade:=idade_maior;

end;

if idade < idade_menor then

begin

idade_menor:=idade;

end;

if idade < idade_maior then

begin

idade_maior:=idade;

end;

cont:=cont + 1;

until cont=n;

begin

writeln('a quantidade de salario ate 100:', quant_sal_feminino:2:2);

writeln('a menor idade e:',idade_menor);

writeln('a maior idade e:',idade_maior);

writeln ('a quantidade de homens e:', sexo_m);

writeln ('A media dos salarios e: ',media_sal:2:2);

writeln ('A soma dos salarios e: ',soma_salario:2:2);

writeln ('tecle enter');

readln;

end;

end.

Galera estou precisando de uma forçinha de vocês, com o seguinte exercicio:
1) Foi feita uma pesquisa entre os habitantes de uma região. Foram coletados os dados de idade,sexo (M/F) e salário. Faça um algoritmo que informa:

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

Maior e menor idade do grupo

c) Quantidade de mulheres com salário até R$ 100,00

d) Quantidade de homens
program Exercicio;

uses crt;

var  Idade, MI, MEI, qtdt, I, cont_m, cont_f, total_m, total_f : integer;
     sexo : char;
     Salario : real;


begin
 cont_m:=0;
 cont_f:=0;
 MI:=0;
 MEI:=0;
 write('Informe a quantidade do grupo:');
 readln(qtdt);
 for I:=1 to qtdt do
  begin
   writeln('Informe o sexo da ',I,' o pessoa:<m> masculino ou <f> feminino');
   readln(sexo);
   writeln('Informe a idade da ',I,'pessoa:');
   readln(Idade);
   writeln('Informe o salario da ',I,'pessoa:');
   readln(Salario);
   clrscr;
   Salario:=Salario+1
  end;
     If Idade<MI then
        MEI:=Idade;
     If Idade>MI then
        MI:=Idade;
     If sexo='m' then
       cont_m:=cont_m+1;
        If (Salario <= 100) then
         total_m:=total_m+1;
     If sexo='f' then
       cont_f:=cont_f+1;
        If (Salario <= 100) then
         total_f:=total_f+1;
 clrscr;
 writeln('Resultado:');
 writeln('A maior idade e: ',MI);
 writeln('A menor idade e: ',MEI);
 writeln('A media de salario do grupo e:',Salario/qtdt:2:2);
 writeln('A quantidade de mulheres com salario ate R$100,00 e:');
 readln(cont_f);
 writeln('A quantidade de homens com salario ate R$100,00 e:');
 readln(cont_m);
 readkey;
end.
MI = Maior Idade

MEI = Menor Idade

A media ta saindo só do ultimo salario e nao de todos, a quantidade de mulheres e de homens com salario ate R$ 100,00 não esta funcionando

A maior idade esta funcionando mas a menor também nao está.

Se poderem me dar umas dicas, para acertar esses erros ficarei grato.

Obrigado.