Algotitmos atps

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

...