atividade 7

Prévia do material em texto

ALGORITMOS II 
 
ATIVIDADES DA AULA 07 
 
Todos os algoritmos desta atividade deverão ser enviados em um arquivo com um dos 
seguintes formatos: .doc, .docx ou .pdf. 
Obs: O VisuAlg não suporta arquivos. 
 
1. Faça um algoritmo que leia registros de um arquivo de estudantes. Cada estudante 
possui um número de identidade, nome e idade. A seguir, o algoritmo deve apresentar 
a quantidade de estudantes lidos do arquivo, e o nome e a idade do estudante mais 
velho. 
algoritmo "Leitor de arquivo" 
tipo 
Pessoa = registro 
 nome: caractere 
 idade: inteiro 
 RG: inteiro 
 
fimregistro 
var 
AGENDA arquivo de Pessoa 
estudante: Pessoa 
lidos: inteiro 
maioridade: inteiro 
inicio 
abra AGENDA leitura 
 lidos <- 0 
 maioridade <- 1 
repita 
 AGENDA.leia(estudante) 
 se estudante.RG > 0 entao 
 lidos <-lidos + 1 
fimse 
ate AGENDA.EOF 
repita AGENDA.leia(estudante) 
 se estudante.idade > maioridade 
entao 
 maioridade <- estudante.idade 
fimse 
ate AGENDA.EOF 
escreva("O total de estudantes registrados é de: ", lidos) 
escreva("O aluno de idade maior é de: ", maioridade) 
feche AGENDA 
fimalgoritmo 
 
 
2. Faça um algoritmo que leia os dados de uma pessoa, informados pelo usuário, e salve-
os em um arquivo. Os dados da pessoa são: nome, endereço, sexo e idade. A cada 
registro informado, o algoritmo deve perguntar ao usuário se deseja ler um novo 
registro. 
algoritmo "Leitor de Dados" 
tipo 
Pessoa = registro 
 nome: caractere 
 logra: caractere 
 sexo: caractere 
 idade: inteiro 
 leitura: logico 
 
fimregistro 
var 
DADOS arquivo de Pessoa 
cidadao: Pessoa 
ler: logico 
inicio 
escreva("Digite o nome:") 
 leia(cidadao.nome) 
escreva("Digite o endereço:") 
 leia(cidadao.logra) 
 escreva("Digite o sexo:") 
 leia(cidadao.sexo) 
escreva("Digite a idade:") 
 leia(cidadao.idade) 
escreva("Se deseja fazer uma nova leitura digite 1.") 
 leia(ler) 
se ler = 1 entao 
 cidadao.leitura <- VERDADEIRO 
senao 
 cidadao.leitura <- FALSO 
fimse 
abra DADOS escrita 
DADOS.escreva(cidadao) 
feche DADOS 
 
fimalgoritmo