Eleições 2006
Publicado por Ivan Rocha 14/12/2006
[ Hits: 4.883 ]
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.
Soma dois Valores e exibe o resultado
Calculadora de décimo terceiro no Lazarus
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
Como renomear arquivos de letras maiúsculas para minúsculas
Imprimindo no formato livreto no Linux
Vim - incrementando números em substituição
Efeito "livro" em arquivos PDF
Como resolver o erro no CUPS: Unable to get list of printer drivers
Linux mint está congelando/tr... (1)
Acabei de formatar meu ssd e deu erro (2)
Instalar PHP 5 no CentOS 8 (1)
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta