Eleição simples
Publicado por Roan E. M. Franklin 06/11/2006
[ Hits: 11.009 ]
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.
programa que te ajuda em matematica
Operações simples e avançadas com matrizes
Nenhum comentário foi encontrado.
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Título: Descobrindo o IP externo da VPN no Linux
Armazenando a senha de sua carteira Bitcoin de forma segura no Linux
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Instalando Brave Browser no Linux Mint 22
vídeo pra quem quer saber como funciona Proteção de Memória:
Encontre seus arquivos facilmente com o Drill
Mouse Logitech MX Ergo Advanced Wireless Trackball no Linux
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Remoção de propaganda com o programa Comskip[AJUDA] (1)
Linux Lite Demorando Muito Para Ligar (0)
PC não liga no filtro de linha (3)