Vitinho Radikal

Algoritmo "votação" Var // Seção de Declarações das variáveis contador,chapa01,chapa02,controle, nulo,branco:inteiro senha,iniciavotacao,votacao:caractere nome:vetor [0..1] de caractere seguimento:vetor [0..1] de caractere Inicio // Seção de Comandos, procedimento, funções, operadores, etc... //controle<-1 repita escreval ("Digite a Senha. {SAIR=s}") leia(senha) se (senha="1505") então escreval("usuário logado") escreval("================================") senão escreval("senha incorreta") fimse ate senha="1505" repita limpatela escreval("Digite 1 para iniciar a votação ou 0 para encerrar a votação") leia(iniciavotacao) se (iniciavotacao="1") então limpatela escreval("VOTAÇÃO INICIADA") escreval("================================") escreval("Digite o nome") leia(nome[contador]) escreval("Digite o seguimento") leia(seguimento[contador]) escreval("Digite {1} para CHAPA01 ou {2} para CHAPA02") leia(votacao) se (votacao="1") então chapa01<-chapa01+1 contador<-contador+1 senao se (votacao="2") então chapa02<-chapa02+1 contador<-contador+1 senao se (votacao="n")então nulo<-nulo+1 contador<-contador+1 senao se (votacao="")então branco<-branco+1 contador<-contador+1 fimse fimse fimse fimse fimse ate iniciavotacao="0" limpatela escrevaL("==================================") escrevaL("CHAPA01 RECEBEU ",chapa01," votos") escrevaL("CHAPA02 RECEBEU ",chapa02," votos") escrevaL("NULOS ",nulo," votos") escrevaL("BRANCOS ",branco," votos") se (chapa01>chapa02) então escrevaL("==================================") escrevaL("CHAPA 01 FOI ELEITA") escrevaL("==================================") senao se (chapa01<chapa02) então escrevaL("==================================") escrevaL("CHAPA 02 FOI ELEITA") escrevaL("==================================") senao se (chapa01=chapa02) e (chapa01<>0) então escrevaL("==================================") escrevaL("VOTAÇÃO EMPATADA") escrevaL("==================================") senao se (chapa01=0) e (chapa02=0) então escrevaL("==================================") escrevaL("NINGUÉM FOI ELEITO") escrevaL("==================================") fimse fimse fimse fimse para controle de 0 ate 1 passo 1 faca escreval(nome[controle]," ",seguimento[controle]) fimpara Fimalgoritmo