Atividade 7 - Algoritmos II

Prévia do material em texto

ALGORITMOS II
ATIVIDADES DA AULA 07
ALUNO: RHUAN PABLO DA SILVA
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 "Registro de Alunos"
tipo
aluno = registro
nome: caractere
ident,idade: inteiro
fimregistro
var
CADASTRO arquivo de aluno
cad: aluno
contador, maior: inteiro
inicio
abra CADASTRO leitura
contador <- 0
maior <- 1
repita
CADASTRO.leia(cad)
se cad.ident > 0 entao
contador <-contador + 1
fimse
ate CADASTRO.EOF
repita
CADASTRO.leia(cad)
se cad.idade > maior entao
maior <- cad.idade
fimse
ate CADASTRO.EOF
escreva("Total de alunos registrados é de: ", contador)
escreva("Aluno de idade maior é de: ", maior)
feche CADASTRO
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 "Dados"
tipo
usuario = registro
nome, end, sexo: caractere
idade, leitura: inteiro
fimregistro
var
DADOS arquivo de usuario
cad: usuario
inicio
escreva("Digite o nome: ")
leia(cad.nome)
escreva("Digite o endereço: ")
leia(cad.end)
escreva("Digite o sexo: ")
leia(cad.sexo)
escreva("Digite a idade: ")
leia(cad.idade)
escreva("Digite 1 para cadastrar outro usuario.")
leia(repetir)
se repetir = 1 entao
cad.leitura <- VERDADEIRO
senao
cad.leitura <- FALSO
fimse
abra DADOS escrita
DADOS.escreva(cad)
feche DADOS
fimalgoritmo