Aula 19 - 22/06/11

1- Faça um programa que leia 10 nomes de alunos e guarde em uma lista.

Algoritmo "Exercício Vetores 1"

var
a,b:inteiro
nome:caracter
nomes: vetor [1..10] de caracter
inicio
para a de 1 ate 10 faca
escreval ("Digite o nome do aluno: ")
leia (nome)
nomes[a]<- nome
fimpara
escreval ("***********************************************")
para b de 1 ate 10 faca
escreval (b," nome: ",nomes[b])
fimpara
fimalgoritmo


2- Faça um programa que leia 10 nomes de alunos e sua media final e guartde em listas . Ao final, listar o nome do aluno e sua media , mostrando "aprovado" se a media for maior ou igual a 7.0 ou 'reprovado' caso contrario.

Algoritmo "Exercícios Vetores 2"

var
a,b:inteiro
nome:caracter
nomes: vetor [1..10] de caracter
medias: vetor [1..10] de real
mediafinal:real
inicio
para a de 1 ate 10 faca
   escreval ("Digite o nome do aluno: ")
   leia (nome)
   escreval ("Digite a media final do aluno: ")
   leia (mediafinal)
   nomes[a]<- nome
   medias[a]<- mediafinal
fimpara
escreval ("***********************************************")
para b de 1 ate 10 faca
   escreval (b," nome: ",nomes[b])
   se (medias[b] >= 7) entao
      escreval ("Aprovado")
   senao
      escreval ("Reprovado")
   fimse
fimpara
fimalgoritmo



3- Faça um programa que leia 50 valores reais e guarde em um vetor. Ao final, mostrar a soma e a media dos valores lidos.


Algoritmo "Exercício Vetores 3"

var
numero: vetor [1..50] de real
media,soma,n:real
a:inteiro
inicio
soma <- 0
para a de 1 ate 50 faca
escreval ("Escreva um numero: ")
leia (n)
numero[a]<- n
soma <- soma + numero[a]
fimpara
media <- soma / 50
escreval ("A Soma dos valores lidos é: ",soma)
escreval ("A media dos valores lidos é: ",media)
fimalgoritmo



4- Faça um programa que calcule a media (nota 1 + nota 2)/2) de 10 alunos e guarde em um vetor . Percorra o vetor e mostre as medias. Ao final mostre a media geral da turma.


Algoritmo "Exercício Vetores 4"

var
media: vetor [1..10] de real
nota1,nota2,mediadoaluno,mediageral:real
a,b,c:inteiro
inicio
para a de 1 ate 10 faca
escreval ("Aluno",a)
escreval ("Digite a primeira nota do aluno: ")
leia (nota1)
escreval ("Digite a segunda nota do aluno: ")
leia (nota2)
mediadoaluno <- (nota1 + nota2) / 2
media[a]<- mediadoaluno
fimpara
para c de 1 ate 10 faca
escreval ("A media do aluno ",c," é ",media[c])
fimpara
para b de 1 ate 10 faca
mediageral <- mediageral + media[b] / 10
fimpara
escreval ("A media geral da turma é: ",mediageral)
fimalgoritmo




5- Faça um programa que mostre o mes do ano de acordo com o numero (de 1 a 12) informado pelo usuário.

Algorirmo "Exercício Vetores 5"

var
mes: vetor [1..12] de caracter
numero :inteiro
inicio
mes[1] <- "Janeiro"
mes[2] <- "Fevereiro"
mes[3] <- "Março"
mes[4] <- "Abril"
mes[5] <- "Maio"
mes[6] <- "Junho"
mes[7] <- "Julho"
mes[8] <- "Agosto"
mes[9] <- "Setembro"
mes[10] <- "Outubro"
mes[11] <- "Novembro"
mes[12] <- "Dezembro"
escreval ("Digite um numero de 1 ate 12 para informar o mes corespondente ao numero: ")
leia (numero)
enquanto (numero < 1) ou (numero > 12) faca
escreval ("Digite um numero de 1 ate 12 para informar o mes correspondente ao numero: ")
leia (numero)
fimenquanto
escreval ("O numero digita corresponde ao mes de: ",mes[numero])
fimalgoritmo


Nesta aula aprendemos sobre VETORES, eu acabei me surpreendendo como eu não tive dificuldade com vetores, consegui resolver essas 5 questões em pouco tempo, acho que treinar um pouco em casa esta me deixando mais ligado nessa matéria, vou continuar treinando. Podemos dizer também que a explicação do professor melhorou e muito, não condeno ele por sua explicação porque é uma matéria difícil de ensinar, pois cara pessoa pensa de um jeito diferente de resolver cada problema, mais vamos la estou bem animado por não estar com tanta dificuldade como no começo do curso.