Eleições 2006
Publicado por Ivan Rocha 14/12/2006
[ Hits: 5.014 ]
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.
Calculadora Empresarial (Baseada nas fórmulas de Logística)Lazarus
Metodo de Ordenacion : Burbuja
Customizar a Instalação do Linux Debian com Preseed
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
Bora fazer um teste? mbti (14)
Aprendendo mais sobre Linux com livro (7)