Aula 19 – 22.06.2011 Logica e Algoritmos

Aula 19 – 22.06.2011 Logica e Algoritmos

 

Vetores, Hoje a aula seria sobre VETORES, não entendi nada, pois acabei chegando atrasado na aula, e pedi para o professor me dar uma breve explicada, e ele disse para eu sentar então com um colega que teria entendido do assunto.
Acabei não entendo nada.

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

algoritmo "aula19_01"
var
n:vetor [1..10] de caracter
x:inteiro
inicio
para x de 1 ate 10 faca
escreva("Digite o nome do aluno",x,": ")
leia(n[x])
fimpara
fimalgoritmo

2- Faça um programa que leia 10 nomes de alunos e suas medias finais, e guarde em listas. Ao final, listar o nome do aluno e sua media mostrando "Aprovado" se a média for maior ou igual a 7, ou "Reprovado" caso contrario.

algoritmo "aula19_02"
var
x:inteiro
nome,r:vetor[1..10] de caracter
media:vetor[1..10] de real
inicio
para x de 1 ate 10 faca
escreva("Digite o nome do aluno",x,": ")
leia(nome[x])
escreva("Digite a média do ",nome[x],": ")
leia(media[x])
se (media[x] >= 7) entao
r[x]<-"Aprovado"
senao
r[x]<-"Reprovado"
fimse
limpatela
fimpara
para x de 1 ate 10 faca
escreval("O aluno ",nome[x]," tirou",media[x],", ele foi ",r[x],".")
fimpara
fimalgoritmo

3- Faça um programa que leia 50 valores reais e guarde os em um vetor. Ao final mostre a soma e a média dos valores lidos.

algoritmo "aula19_03"
var
x,soma:inteiro
v:vetor[1..50] de real
media:real
inicio
soma<-0
para x de 1 ate 50 faca
escreva("Digite um valor real: ")
leia(v[x])
soma<-soma+v[x]
fimpara
limpatela
media<-soma/50
escreva("A soma total foi",soma," e a média foi",media,".")
fimalgoritmo



4- Faça um programa que calcule a media ((nota1+nota2)/2) de 10 alunos e guarde em um vetor, percorra o vetor e mostre as medias. Ao final mostre a media geral do turno.

algoritmo "aula19_04"
var
n1,n2,soma,media_t:real
media:vetor[1..10] de real
x:inteiro
inicio
soma<-0
para x de 1 ate 10 faca
escreval("Digite as notas do aluno",x)
leia(n1)
leia(n2)
media[x]<-((n1+n2)/2)
escreval("Média do aluno",x," é",media[x],".")
soma<-soma+media[x]
fimpara
media_t<-soma/10
escreval("******************************")
escreva("Média da turma é",media_t,".")
fimalgoritmo

5- Faça um programa que mostre o mês do ano de acordo com o número (de 1 a 12) informado pelo usuário.

algoritmo "aula19_05"
var
mes:vetor [1..12] de caracter
m: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"
escreva("Digite um numero que representa o mês: ")
leia(m)
escreva(mes[m])
fimalgoritmo