Mega_Sena_(Estrutura_Homogênea)_Prof_Eolisses

Prévia do material em texto

Algoritmo: G:\Estudos\02 - Faculdade IESPLAN\Aulas\Aula 07 - 05 junho\Matriz_MegaSena.alg
Data: 07/06/2012
 1 algoritmo "Mega_Sena"
 2 // Faculdade IESPLAN
 3 // Curso de Engenharia Civil
 4 // Disciplina: Métodos Computacionais
 5 // Autor : Prof. EOLISSES F. LEOPOLDINO
 6 // Função : Estrutura Homogênea
 7 // Data : 05/06/2012
 8 var
 9 Mega_sena : vetor [1..3,1..6] de inteiro
 10 contador, tamanho, x, y, z, dezena : inteiro
 11 inicio
 12 escreval("***** DADOS ESTATÍSTICOS DA MEGA-SENA *****")
 13 escreval("===========================================")
 14 //-------
 15 escreval("")
 16 escreval("Entre com 36 números da mega-sena: ")
 17 escreval("")
 18 escreval("")
 19 escreval("")
 20 //-----------------> Inicializa as variáveis de controle do vetor
 21 x <- 1
 22 y <- 1
 23 //-----------------> Recebe as dezenas do usuário
 24 para x de 1 ate 3 faca
 25 para y de 1 ate 6 faca
 26 escreva("Jogo",x,") Mega_sena[",x,",",y,"]=")
 27 leia(Mega_sena[x,y])
 28 fimpara
 29 escreval("---------------------------------")
 30 fimpara
 31 //-----------------> Inicializa as variáveis de controle do vetor
 32 x <- 1
 33 y <- 1
 34 //-----------------> Imprime quadro com as dezenas escolhidas
 35 escreval("")
 36 escreval("Cartão da Mega-Sena")
 37 escreval("")
 38 escreval("|----+----+----+----+----+----|")
 39 escreva("|")
 40 para x de 1 ate 3 faca
 41 para y de 1 ate 6 faca
 42 //------------> Verifica se é a última dezena escreva("|")
 43 se (y = 6) entao
 44 se Mega_sena[x,y] > 9 entao
 45 escreval(Mega_sena[x,y], " |")
 46 senao
 47 escreval(Mega_sena[x,y], " |")
 48 fimse
 49 senao
 50 se Mega_sena[x,y] > 9 entao
 51 escreva(Mega_sena[x,y], " |")
 52 senao
 53 escreva(Mega_sena[x,y], " |")
 54 fimse
 55 fimse
 56 fimpara
 57 escreval("|----+----+----+----+----+----|")
 58 se x < 3 entao
 59 escreva("|")
 60 fimse
 61 fimpara
 62 //---------------> Contagem da incidência das dezenas
 63 escreval("")
 64 escreval("**** NÚMERO DE VEZES EM QUE UM NÚMERO APARECE NOS JOGOS *****")
 65 escreval("=============================================================")
 66 escreval("")
 67 para z de 1 ate 60 faca
 68 contador <- 0
 69 para x de 1 ate 3 faca
 70 para y de 1 ate 6 faca
 71 se (Mega_sena[x,y] = z) entao
 72 contador <- contador + 1
 73 fimse
 74 fimpara
 75 fimpara
 76 se contador <> 0 entao
 77 escreval("Nr ",z," = ",contador)
 78 fimse
 79 fimpara
 80 //---------------
 81 fimalgoritmo