Exercício 01 Registro - Pascal

1) A prefeitura de uma cidade fez uma pesquisa entre os seus habitantes, coletando dados sobre o salário, idade e número de filhos.

Faça um algoritmo que leia esses dados de 20 pessoas, calcule e mostre:
a. A média de salário da população;
b. A média do número de filhos;
c. O maior salário.

Program Re01 ;
Const MAX=20;
Type dados=record
      salario:real;
      idade,filho:integer;
    End;  
 tipo_dados=array[1..MAX] of dados;    
var
  pesq:tipo_dados;
  med_sal,med_fi,maior:real;
 
procedure ler(var pesq:tipo_dados);
var
 i:integer;
 Begin
  for i := 1 to MAX do
   Begin
    Write(i,' Informe Salario: ');
    readln(pesq[i].salario);
    Write(i,' Informe Idade: ');
    readln(pesq[i].idade);
    Write(i,' Informe N Filhos: ');
    readln(pesq[i].filho);  
    Writeln; 
   end;    
 End;
 
function med_salario(pesq:tipo_dados): real; 
var
 i:integer;
 media:real;
  Begin
   for i:=1 to MAX do
    Begin
     media:= media + pesq[i].salario;
    end;  
   media:= media/MAX; 
   med_salario:= media;
  End;
  
function med_filho(pesq:tipo_dados):real; 
var
 i:integer;
 media:real;
  Begin
    media :=0;
   for i:=1 to MAX do
    Begin
     media:= media + pesq[i].filho;
    end;  
   media:= media/MAX; 
   med_filho:= media;
  End;  
  
function M(pesq:tipo_dados):real; 
var
 i:integer;
 maior:real;   
  Begin
    maior:=pesq[1].salario;
   for i:=1 to MAX do
    Begin
     if (pesq[i].salario > maior) then
      maior:=pesq[i].salario;     
    end;  
   M:= maior;
  End;  
 
{   Programa Principal  }
 Begin
  ler(pesq);
  med_sal:= med_salario(pesq);
  med_fi:= med_filho(pesq);
  maior:= M(pesq);
  Writeln('Media de Salario: ',med_sal:0:2);
  Writeln('Media de Filhos: ',med_fi:0:3);
  Writeln('Maior Salario: ',maior:0:2);
  
 End.

Categories: Pascal , Programação