Eleição simples
Publicado por Roan E. M. Franklin 06/11/2006
[ Hits: 10.759 ]
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.
Método de eliminação de Gauss com pivotamento parcial
Nenhum comentário foi encontrado.
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
Como adicionar módulo de saúde da bateria dos notebooks Acer ao kernel... (19)
material de assembly x64 [RESOLVIDO] (3)
Como configurar o Openvpn do pfSense para entregar da memsa faixa de I... (1)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba