Eleição simples
Publicado por Roan E. M. Franklin 06/11/2006
[ Hits: 10.964 ]
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.
Operações simples e avançadas com matrizes
Nenhum comentário foi encontrado.
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Criando uma VPC na AWS via CLI
Tem como instalar o gerenciador AMD Adrenalin no Ubuntu 24.04? (16)
Arch Linux - Guia para Iniciantes (2)
Problemas ao instalar o PHP (11)
Tenho dois Link's ( IP VÁLIDOS ), estou tentando fazer o failover... (0)