Eleições 2006
Publicado por Ivan Rocha 14/12/2006
[ Hits: 4.786 ]
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 feita no Lazarus (Delphi 7 para Linux)
Função Fatorial Recursiva em Ada 95
Calculadora de décimo terceiro no Lazarus
Agora temos uma assistente virtual no fórum!!! (247)
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
Agora temos uma assistente virtual no fórum!!! (247)
iso de sistema 32 bit em atividade (12)
Como adicionar módulo de saúde da bateria dos notebooks Acer ao kernel... (27)