Pages

15 de nov. de 2010

Lista 5 – Ex6

Exercício 5-6

Escreva algoritmo que leia os nomes e conceitos dos alunos de uma turma de tamanho máximo

60. O algoritmo deverá, para todos os alunos lidos, colocar em uma matriz o nome do aluno na

primeira coluna e sua situação na segunda coluna: "aprovado", se o conceito do aluno for superior

a 0; "reprovado" caso contrário. Os conceitos vão de 0 a 4, estando reprovados os alunos cujo

conceito é o 0. O algoritmo pára de ler quando o nome informado for "fim" ou tenham sido lidos o

nome e o conceito de 60 alunos (tamanho máximo da turma).

algoritmo "semnome"

var

nome: vetor [1..60] de literal

conceito: vetor [1..60] de real

mat: vetor [1..60,1..3] de literal

i: inteiro

Inicio

i <- 1

Repita

Escreva("Informe o Nome ",i, " : ")

Leia(nome[i])

Se(nome<>"fim")entao

mat[i,1] <- nome[i]

Escreva("Conceito (0-4): ")

Leia(conceito[i])

Enquanto (conceito[i] < 0) ou (conceito[i] > 4) FACA

Escreval("O conceito deve estar entre 0 e 4.")

Escreva("Conceito (0-4): ")

Leia(conceito[i])

Fimenquanto

mat[i,2] <- conceito[i]

Se(conceito[i]>0)entao

mat[i,3] <- "Aprovado"

Senao

mat[i,3] <- "Reprovado"

Fimse

Fimse

i <- i + 1


 

Ate(nome[i]= "fim") ou (i > 60)

Fimalgoritmo

Copiado de http://apenaspaulino.blogspot.com/

0 comentários:

Postar um comentário