Solução Exercício 1 de Variáveis Homogêneas Compostas - Pag. 58

Este exercício foi resolvido no dia 19/01/12 as 16:30.
Enjoy


algoritmo "notas das misses"
// Função :
// Autor :
// Data : 19/01/2012
// Seção de Declarações
var
    nome:vetor[0..34] de literal
    notas:vetor[0..34,0..4] de inteiro
    nomenotas:vetor[0..4] de literal
    mn,i,j,ms,pn8:inteiro

inicio
nomenotas[0]<-"Simpatia"
nomenotas[1]<-"Beleza"
nomenotas[2]<-"Carisma"
nomenotas[3]<-"Estetica"
nomenotas[4]<-"Total"
para i de 0 ate 34 faca
  escreva("Nome da miss (",i+1,") : ")
  leia (nome[i])
  para j de 0 ate 3 faca
     escreva(nomenotas[j])
     leia(notas[i,j])
     notas[i,4]<-notas[i,4]+notas[i,j]
  fimpara
fimpara
// letra a do exercicio 1 da apostila.
mn<-0
j<- -1
para i de 0 ate 34 faca
   se mn<notas[i,4] entao
      mn<-notas[i,4]
      j<-i
   fimse
fimpara
se j<> -1 entao
  escreval("A vencedora do concurso é : ", nome[j])
fimse
// letra b do exercicio: calcular a media de simpatia.
ms<-0
para i de 0 ate 34 faca
  ms<-ms+notas[i,0]
fimpara
escreval("A média da Simpatia é : ",ms/35)
pn8<-0
para i de 0 ate 34 faca
  se notas[i,1]>8 entao
     pn8<-pn8+1
  fimse
fimpara
escreval("A porcentagem de beleza acima de 8 foi :",100*pn8/35,"%.")
fimalgoritmo