TrabalhosGratuitos.com - Trabalhos, Monografias, Artigos, Exames, Resumos de livros, Dissertações
Pesquisar

Algoritmos

Por:   •  8/4/2015  •  Trabalho acadêmico  •  472 Palavras (2 Páginas)  •  318 Visualizações

Página 1 de 2

algoritmo "semnome"

// Função :

// Autor :

// Data : 17/11/2014

// Seção de Declarações

var

mesNascimento,i:inteiro

mes: vetor [0..11]de caracter

soma: vetor [0..11] de inteiro

procedimento construtor()

inicio

             mes[0]<-"Janeiro"

             mes[1]<-"Fevereiro"

             mes[2]<-"Março"

             mes[3]<-"Abril"

             mes[4]<-"Maio"

             mes[5]<-"Junho"

             mes[6]<-"Julho"

             mes[7]<-"Agosto"

             mes[8]<-"Setembro"

             mes[9]<-"Outubro"

             mes[10]<-"Novembro"

             mes[11]<-"Dezembro"

fimprocedimento

funcao mesesPreenchidos():logico

var x:inteiro

inicio

      x<-0

       para i de 0 ate 11 faca

            se soma[i]>0 entao

               x<-x+1

            fimse

       fimpara

       se x =12 entao

          retorne VERDADEIRO

       senao

            retorne FALSO

       fimse

fimfuncao

procedimento registrarAluno(mesNascimento:inteiro)

inicio

             soma[mesNascimento]<-soma[mesNascimento]+1

fimprocedimento

procedimento exibirQtdeAluniosPorMesNascimento()

var i :inteiro

inicio

             escreval("Quantidade de alunos por meses do ano:")

             para i de 0 ate 11 faca

                  escreval(mes[i]," ",soma[i])

             fimpara

fimprocedimento

inicio

      construtor()

     

      repita

            escreva("Informe o seu mês de nascimento: ")

            leia(mesNascimento)

           

            registrarAluno(mesNascimento)

      ate mesesPreenchidos()

     

      exibirQtdeAluniosPorMesNascimento()

fimalgoritmo

...

Baixar como (para membros premium)  txt (1.6 Kb)   pdf (30.6 Kb)   docx (10.3 Kb)  
Continuar por mais 1 página »
Disponível apenas no TrabalhosGratuitos.com