uses crt;
type registro = record
idade, salario, numeroDeFilhos: integer;
{Aqui pode-se declarar variáveis de tipos
diferentes como real, string, dentre outras.
Ex: nome: string;}
end;
var
arquivo: array [1..3] of registro;
i, salarioTotal, numeroTotalDeFilhos, salarioAcimaDeMilReais : integer;
begin
// Site: http://programjm.blogspot.com.br/
// Autor: João Matheus Santos Assis
{
Esse programa trabalha com o uso de registro,
que é uma ferramenta poderosa, pois trabalha
com conjuntos de dados, estando logicamente
ou não relacionados.
}
// Inicializando os contadores com zero.
salarioTotal := 0;
numeroTotalDeFilhos := 0;
salarioAcimaDeMilReais := 0;
writeln ('=>ESTUDO DAS CONDICOES SOCIO_ECONOMICAS DE UMA POPULACAO');
writeln;
// Coleta das informações para o banco de dados.
for i := 1 to 3 do begin
writeln ('Entrevistado numero ' ,i);
write (' Idade.............: ');
readln (arquivo[i].idade);
write (' Salario R$........: ');
readln (arquivo[i].salario);
write (' Numero de filhos..: ');
readln (arquivo[i].numeroDeFilhos);
// Incrementando os contadores.
salarioTotal := salarioTotal + arquivo[i].salario;
numeroTotalDeFilhos := numeroTotalDeFilhos + arquivo[i].numeroDeFilhos;
if (arquivo[i].salario > 1000) then
salarioAcimaDeMilReais := salarioAcimaDeMilReais + 1;
writeln;
end;
writeln;
// Analise dos dados obtidos sobre uma dada população.
write ('Media do salario da populacao R$........................: ');
writeln (salarioTotal / 3 : 4:2);
write ('Media do numero de filhos...............................: ');
writeln (numeroTotalDeFilhos / 3 : 4:2);
write ('Percentual de pessoas com salario superior a R$ 1000,00.: ');
writeln (salarioAcimaDeMilReais / 3 * 100 : 4:2, ' %');
readkey;
end.
Palavras-chaves: registro-idade-salário-número/de/filhos-pascal.
Artigos relacionados em Pascal:
- Calculando o IMC em Pascal
- Tabela ASCII em Pascal
- Desenhando um quadrado em Pascal
- Desenhando um triângulo em Pascal
- Calculadora Simples em Pascal
- Simulador do Jogo da Mega Sena em Pascal
- Determinante da matriz em Pascal
 |
Feito no Dev-Pascal 1.9.2 | Executável
|
