LISTAS DE EXERCÍCIOS - LISTA 4

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

####################################################################################
####################################################################################
####################################################################################
####################################################################################
####################################################################################
################################ #############################
################################ LISTA 4 #############################
################################ #############################
####################################################################################
####################################################################################
####################################################################################
####################################################################################
####################################################################################
####################################################################################
####################################################################################
####################################################################################
##################################### EXERCÍCIO 1##################################
####################################################################################
####################################################################################
####################################################################################
algoritmo "Notas"
// Função : Mostrar notas que estão acima da média
// Autor : Victor S. Del Penho
// Data : 2011
var
Nome: vetor [1..4] de caracter
Nota: Vetor [1..4] de Real
Media, Soma: Real
i,n: Inteiro
inicio
Soma <- 0
Para i de 1 ate 4 passo 1 faca
 escreval ("Digite o nome do ",i,"° aluno:")
 leia (Nome[i])
 escreval ("===================================================================")
 escreval ("Digite a nota do ",i,"° aluno:")
 leia (Nota[i])
 escreval ("===================================================================")
 escreval ("")
 Soma <- Soma + Nota[i]
fimpara
Media <- Soma/4
escreval ("===================================================================")
escreval ("A Média da turma foi:", Media)
escreval ("===================================================================")
para i de 1 ate 4 passo 1 faca
 se (Nota[i] > Media) entao
 escreval ("O(A)", Nome[i] , "está ACIMA da média da turma.")
 senao
 escreval ("O(A)", Nome[i] , "está ABAIXO da média da turma.")
 fimse
fimpara
fimalgoritmo
####################################################################################
####################################################################################
####################################################################################
##################################### EXERCÍCIO 2##################################
####################################################################################
####################################################################################
####################################################################################
algoritmo "APROVADO / REPROVADO"
// Função : Mostrar se aluno foi aprovado ou não
// Autor : Victor S. Del Penho
// Data : 2011
var
Nome: vetor [1..4] de Caracter
Nota: vetor [1..4] de Real
i, NAprovado, NReprovado: inteiro
Soma, Media: Real
inicio
para i de 1 ate 4 passo 1 faca
 escreval ("Digite o nome do aluno(a):")
 leia (Nome[i])
 escreval ("===================================================================")
 escreval ("Digite a nota:")
 leia (Nota[i])
 escreval ("===================================================================")
 Soma <- Soma + Nota[i]
fimpara
Media <- Soma / 4
para i de 1 ate 4 passo 1 faca
 se (Nota[i] >= Media) entao
 escreval ("O(A) aluno(a) ", Nome[i], " está APROVADO.'")
 NAprovado <- NAprovado + 1
 senao
 NReprovado <- NReprovado + 1
 fimse
fimpara
escreval ("O número de aprovados é igual a", NAprovado)
escreval ("===================================================================")
escreval ("O número de aprovados é igual a", NReprovado)
escreval ("===================================================================")
escreval ("O número de aprovados é igual a", NAprovado/10*100,"%")
escreval ("===================================================================")
escreval ("O número de aprovados é igual a", NReprovado/10*100,"%")
escreval ("===================================================================")