Programa Registro

[DSR 0]

Foi realizada uma pesquisa estatística em 15 estados brasileiros para coletar dados sobre a

quantidade de crianças de 7-10 anos que estão na escola. Em cada um desses estados observouse

os seguintes aspectos:

• nome do estado;

• número de pessoas que possuem idade entre 7-10 anos no ano de 2007;

• número de pessoas na escola com idade entre 1-10 anos no ano de 2007.

Deseja-se saber:

a) Qual o maior e o menor índice de pessoas com idade entre 1-10 anos que estão na escola e

a qual estado pertencem.

B) Qual o percentual de pessoas na escola em cada estado.

c) Qual a média de pessoas com idade entre 5-10 anos em cada um dos estados.

 

program pesquisa;

uses crt;

 

type

i_pessoas = record

p_7dez : interger;

perc-est :real;

media_pess;

 

 

end;

cadastro = record

nome_do_estado : string [15];

n_p7_10 : integer;

n_p1_10 : integer;

media5_10 : real;

Var

pessoas:array [1..N] of cadastro;

x_estado: char;

i,x_p_7dez,x_p_1dez: integer;

 

Begin

 

clrscr;

writeln('****Pesquisa Estatística****');

for i:=1 to N do

begin

 

write (' nome do estado');

readln (pessoas.nome_do_estado);

write ('Pessoas entre 7 e 10 anos em 2007');

readln(pessoas.n_p7_10);

write ('pessoas na escola entre 1 e 10 anos');

readln(pessoas.n_p1_10);

[quitZAUMMM 18]

Como assim a lógica??

Registro é um tipo abstrato de dados.

 

me especifique melhor!

 

[]s