Eleições 2006
Publicado por Ivan Rocha 14/12/2006
[ Hits: 4.785 ]
Homepage: http://homes.dcc.ufba.br/~ivan062/bahia
Escolha, vote!!! Programinha de Eleições 2006. Escolha dentre os 4 candidatos, Heloísa, Cristovam, Alckmin, Lula.
program votacao; uses crt; var votos, op, escolha, fim, senha, c1, c2, c3, c4, c5, c6: integer; p1, p2, p3, p4, p5, p6, v1, v2, v3, v4{, v5, v6}: real; begin fim:=0; votos:=0; c1:=0; c2:=0; c3:=0; c4:=0; c5:=0; c6:=0; writeln; writeln('Eleicoes 2006!!!'); writeln('Escolha seu candidato!!!'); repeat {writeln('Votos Computados: ', votos);} writeln('1- LULA;'); writeln('2- Alckimin;'); writeln('3- Helosa Helena;'); writeln('4- Cristovam Buarque;'); writeln('5- Branco;'); writeln('6- Nulo;'); writeln('0- Finaliza a Eleicao.'); writeln; write('Candidato: '); read(escolha); case escolha of 1: begin write('Confirma candidato LULA (1/sim;2/nao)? '); readln(op); if (op=1) then begin c1:= c1+1; votos:=votos+1; end; end; 2: begin write('Confirma candidato Alckimin (1/sim;2/nao)? '); readln(op); if (op=1) then begin c2:= c2+1; votos:=votos+1; end; end; 3: begin write('Confirma candidata Helosa Helena (1/sim;2/nao)? '); readln(op); if (op=1) then begin c3:= c3+1; votos:=votos+1; end; end; 4: begin write('Confirma candidato Cristovam Buarque (1/sim;2/nao)? '); readln(op); if (op=1) then begin c4:= c4+1; votos:=votos+1; end; end; 5: begin write('Confirma voto em Branco (1/sim;2/nao)? '); readln(op); if (op=1) then begin c5:= c5+1; votos:=votos+1; end; end; 6: begin write('Confirma voto Nulo (1/sim;2/nao)? '); readln(op); if (op=1) then begin c6:= c6+1; votos:=votos+1; end; end; 0: begin write('Digite a senha de Mesario: '); read(senha); if senha= 1234 then fim:= 10; end; end; clrscr; writeln('Votos Computados: ',votos); until fim=10; {escolha=0;} {write('Digite a senha de Mesario: '); read(senha); if senha = 1234 then begin} p1:=(c1*100)/votos; p2:=(c2*100)/votos; p3:=(c3*100)/votos; p4:=(c4*100)/votos; p5:=(c5*100)/votos; p6:=(c6*100)/votos; v1:=(c1*100)/(votos-(c5+c6)); v2:=(c2*100)/(votos-(c5+c6)); v3:=(c3*100)/(votos-(c5+c6)); v4:=(c4*100)/(votos-(c5+c6)); {v5:=(c1*100)/votos; v6:=(c1*100)/votos;} writeln; writeln('Fim de Eleicao!'); writeln; writeln('*Total de votos: '); writeln('LULA: ',c1); writeln('Alckimin: ',c2); writeln('Helosa Helena: ',c3); writeln('Cristovam Buarque: ',c4); writeln('Brancos: ',c5); writeln('Nulos: ',c6); writeln; delay(5000); writeln('*Percentual de votos: '); writeln('LULA: ',p1:4:2); writeln('Alckimin: ',p2:4:2); writeln('Helosa Helena: ',p3:4:2); writeln('Cristovam Buarque: ',p4:4:2); writeln('Brancos: ',p5:4:2); writeln('Nulos: ',p6:4:2); writeln; delay(5000); writeln('*Percentual de votos validos: '); writeln('LULA: ',v1:4:2); writeln('Alckimin: ',v2:4:2); writeln('Helosa Helena: ',v3:4:2); writeln('Cristovam Buarque: ',v4:4:2); {end else write('Senha invalida! Encerramento por questao de seguranca!');} end.
calculo da somatoria da diagonal principal
Cáculo de Fatorial, utilizando-se de Repeat - Until
Atenção a quem posta conteúdo de dicas, scripts e tal (1)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
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
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
ASRock H310CM-HG4 vs Linux (2)
pacotes 32 bit no void 64 bit (1)
erro ao clonar repo github (7)
Como adicionar módulo de saúde da bateria dos notebooks Acer ao kernel... (26)
[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