Urna Eletronica- Visualg

algoritmo "URNA ELETRONICA"

// Função : Eleição eletronica

// Autor : Vinicius Marques

// Data : 13/07/2014

// Seção de Declarações

var

porcentagem: real

ee, codigo_candidato, senha, votos_efetivos: inteiro

joao, maria, branco, nulo: inteiro

inicio

votos_efetivos<-0

joao<-0

maria<-0

branco<-0

nulo<-0

escreval ("Digite o numero de eleitores esperados.")

leia(ee)

limpatela

escreval("Urna aberta!")

enquanto codigo_candidato <> -12345 faca

escreval("Processo de votação")

escreval(" _______________________________________________")

escreval(" |Codigo |Nome do Candidato |")

escreval(" |_____________________|_______________________|")

escreval(" |11 | João |")

escreval(" |40 | Maria |")

escreval(" |0 | Voto em Branco |")

escreval(" |Outro Valor | Voto em Nulo |")

escreval(" |_____________________|_______________________|")

escreval(" ")

escreval ("Digite o codigo do candidato:")

leia (codigo_candidato)

se((codigo_candidato > 0) e (codigo_candidato < 11)) entao

nulo<- nulo+1

fimse

se((codigo_candidato > 11) e (codigo_candidato < 40)) entao

nulo<- nulo+1

fimse

se((codigo_candidato > 40)) entao

nulo<- nulo+1

fimse

se ((codigo_candidato)=11) entao

joao<- joao+1

fimse

se ((codigo_candidato)=40) entao

maria<- maria+1

fimse

se ((codigo_candidato)=0) entao

branco<- branco+1

fimse

votos_efetivos<- votos_efetivos+1

limpatela

se((votos_efetivos)>=(ee)) entao

escreval("_____________________________________________________________________________________________________")

escreval(" ALERTA! ")

escreval(" ")

escreval(" Todos os eleitores esperados compareceram! ")

escreval("_____________________________________________________________________________________________________")

escreval(" ")

fimse

fimenquanto

se (codigo_candidato = -12345) entao

enquanto (senha <> -35719) faca

limpatela

escreval ("Digite a senha para encerrar a sessão!")