Eleição simples
Publicado por Roan E. M. Franklin 06/11/2006
[ Hits: 11.037 ]
Homepage: http://www.remf.com.br
Programa em Pascal que simula uma urna eletrônica, onde o usuário pode votar no seu candidato preferido. No final mostra-se o resultado da votação.
////////////////////////////////////////////////// // // // Programa: ELEICAO 2006 // // Programador: RoaNFRaNKLiN // // E-Mail: roanedikey@hotmail.com // // Software Livre // // // ////////////////////////////////////////////////// program ELEICAO; uses crt; var opcao : char; CandA,CandB,CandC,CandD,CandE : Integer; procedure VOTOS(var op: char); const Candidatos = ['1','2','3','4','5','6']; begin CLRSCR; //Limpa a TELA writeln('ELEICAO 2006 - PROGRAMAÇÃO FREEPASCAL'); writeln('---------------------------------------'); writeln('Para finalizar o programa digite 6.'); writeln; // pula linha writeln('Selecione um Candidatos: '); // mostra na tela writeln; // pula linha writeln('1 - Candidato A'); // mostra na tela writeln('2 - Candidato B'); // mostra na tela writeln('3 - Candidato C'); // mostra na tela writeln('4 - Candidato D'); // mostra na tela writeln('5 - Candidato E'); // mostra na tela writeln('---------------------------------------'); writeln; // pula linha write('Entre com opção: '); // mostra na tela repeat readln(op); until op in Candidatos; end; procedure MostraClassificacao; begin CLRSCR; //Limpa a TELA writeln('Clasificação dos Candidatos:'); writeln; writeln('O Cadidato A: ',CandA); writeln('O Cadidato B: ',CandB); writeln('O Cadidato C: ',CandC); writeln('O Cadidato D: ',CandD); writeln('O Cadidato E: ',CandE); readkey; end; procedure Verifica; begin CLRSCR; if (CandA > CandB) and (CandA > CandC) and (CandA > CandD) and (CandA > CandE) then Writeln('O Vencedor é o Candidato A, com ',CandA, ' Votos.') else if (CandB > CandC) and (CandB > CandD) and (CandB > CandE) and (CandB > CandA) then Writeln('O Vencedor é o Candidato B, com ',CandB, ' Votos.') else if (CandC > CandD) and (CandC > CandE) and (CandC > CandA) and (CandC > CandB) then Writeln('O Vencedor é o Candidato C, com ',CandC, ' Votos.') else if (CandD > CandE) and (CandD > CandA) and (CandD > CandB) and (CandD > CandC) then Writeln('O Vencedor é o Candidato D, com ',CandD, ' Votos.') else if (CandE > CandA) and (CandE > CandB) and (CandE > CandC) and (CandE > CandA) then Writeln('O Vencedor é o Candidato E, com ',CandE, ' Votos.') else Writeln('..:: EMPATE ::..'); readkey; end; procedure Sobre; begin CLRSCR; //Limpa a TELA writeln('ELEICAO 2006 - PROGRAMAÇÃO FREEPASCAL'); writeln('---------------------------------------'); writeln('escrito por RoaNFRaNKLiN.'); writeln('E-Mail: roanedikey@hotmail.com'); writeln(' roanfranklin@yahoo.com.br'); writeln(' roanfranklin@xeideproblema.com'); writeln('---------------------------------------'); writeln('I LOVE YOU "Slackware/Linux"'); readkey; end; begin CandA := 0; CandB := 0; CandC := 0; CandD := 0; CandE := 0; repeat CLRSCR; //Limpa a TELA VOTOS(opcao); case opcao of '1': inc(CandA); '2': inc(CandB); '3': inc(CandC); '4': inc(CandD); '5': inc(CandE); end; until opcao = '6'; Verifica; MostraClassificacao; Sobre; end.
Nenhum comentário foi encontrado.
Como gerar qualquer emoji ou símbolo unicode a partir do seu teclado
Instalar e Configurar o Slackware Linux em 2025
Como configurar os repositórios do apt no Debian 12 em 2025
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Configurando o Conky para iniciar corretamente no sistema
3 configurações básicas que podem melhorar muito a sua edição pelo editor nano
Como colorir os logs do terminal com ccze
Instalação Microsoft Edge no Linux Mint 22
Como configurar posicionamento e movimento de janelas no Lubuntu (Openbox) com atalhos de teclado
firefox nao guarda meus logins nos sites (1)
Instalar debian testing (13) "por cima" do debian 12 (2)
Erro de segmentação «Segmentation fault (core dumped)» ao retornar obj... (1)