Tecnico Em Info
Ensaios: Tecnico Em Info. Pesquise 860.000+ trabalhos acadêmicosPor: kueshi • 16/12/2014 • 201 Palavras (1 Páginas) • 222 Visualizações
algoritmo "semnome"
// Função :
// Autor :
// Data : 1/1/2009
// Seção de Declarações
var
alunos:vetor [0..3] de caractere
nota1:vetor[0..3] de inteiro
nota2:vetor[0..3] de inteiro
turma:vetor[0..3] de caractere
professor:vetor[0..3] de caractere
media:real
i:inteiro
inicio
// Seção de Comandos
i <-0
enquanto (i <= 3) faca
escreval ("Digite o nome do aluno")
leia(alunos[i])
escreval ("Digite a nota 1 do aluno: ",alunos[i])
leia(nota1[i])
escreval ("Digite a nota 2 do aluno: ",alunos[i])
leia(nota2[i])
escreval ("Digite a turma do aluno: ",alunos[i])
leia (turma[i])
escreval ("Digite o professor do aluno: ",alunos[i])
leia(professor[i])
media <- nota1[i]+nota2[i]/2
escreval ("A média desse aluno é: ",media)
i <- i + 1
se media >= 8 entao
escreval ("Classificado nos melhores alunos")
escreval ("Aluno: ",alunos[i])
escreval ("Média:", media)
escreval ("Turma: ",turma[i])
escreval ("Professor: ",professor[i])
senao
escreval ( "Nao classificado nos melhores alunos")
fimenquanto
fimse
fimalgoritmo
algoritmo "semnome"
// Função :
// Autor :
// Data : 1/1/2009
// Seção de Declarações
var
alunos:vetor [0..3] de caractere
nota1:vetor[0..3] de inteiro
nota2:vetor[0..3] de inteiro
turma:vetor[0..3] de caractere
professor:vetor[0..3] de caractere
media:real
i:inteiro
inicio
...