Exercício 02 Registro - Pascal

2) Foi realizada uma pesquisa entre 20 habitantes de uma cidade. De cada habitante foram coletados
os dados: idade, sexo, renda familiar e número de filhos.
Faça um programa que leia esses dados,
armazenando-os em um vetor. Calcule e mostre a média de salário entre habitantes, a menor e a maior
idade do grupo e a quantidade de mulheres com mais de dois filhos.

Program Reg02 ;
uses crt;
Const MAX=2;
Type dados=record
       idade:integer;
       sexo:char;
       rend_fam:real;
       filho:integer;
     End;
  tipo_dados=array[1..MAX] of dados;   
var
 habitantes:tipo_dados;
 i:integer;   
   
procedure preenche(var habitantes:tipo_dados); 
var
 i:integer;
 Begin
  for i := 1 to MAX do
   Begin
    Write(i,' Informe Idade         : ');
    readln(habitantes[i].idade);
    Write(i,' Informe Sexo          : '); 
    readln(habitantes[i].sexo);
    Write(i,' Informe Renda Familiar: ');
    readln(habitantes[i].rend_fam);
    Write(i,' Informe N Filhos      : ');
    readln(habitantes[i].filho);
    Writeln;
   End;    
 End;
 
function media_salario(habitantes:tipo_dados):real;    {média de salário entre habitantes}
var 
i:integer;
media:real;
 Begin
   for i:= 1 to MAX do
   Begin
     media:= media + habitantes[i].rend_fam;     
   End;   
  media_salario:=media/MAX;   
 End;
 
procedure idade(habitantes:tipo_dados); {a menor e a maior idade do grupo}
 var
  i,maior,menor:integer;
 Begin 
    maior:=habitantes[1].idade;
    menor:=habitantes[1].idade;
   for i := 1 to MAX do                           
    Begin
     if habitantes[i].idade > maior then
      maior:=habitantes[i].idade;
     if habitantes[i].idade < menor then
      menor:=habitantes[i].idade;
     End; 
   Writeln('Maior Idade: ',maior);
   Writeln('Menor Idade: ',menor);    
 End;
 
function filhos(habitantes:tipo_dados):integer;    { quantidade de mulheres com mais de dois filhos}
 var
  mais_filhos:integer;
 Begin
   for i := 1 to MAX do
    Begin
     if (habitantes[i].sexo ='f') and (habitantes[i].filho > 2) then
       mais_filhos := mais_filhos + 1;
    End;   
   filhos := mais_filhos; 
 End;
         
 Begin
   preenche(habitantes);
   clrscr;
   Writeln('Media de Salarios: ',media_salario(habitantes):0:2);
   idade(habitantes);
   Writeln('Mulheres Com Mais de 2 Filhos: ',filhos(habitantes));
 End.

Categories: Pascal , Programação