Eleições 2006
Publicado por Ivan Rocha 14/12/2006
[ Hits: 4.931 ]
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.
controle de notas de um aluno com registro e array
Programa lê nome (básico) - Pascal para iniciantes
Transformação entre as escalas térmicas Kelvin, Fahrenheit e Celcius
Tocador de vídeo no Lazarus (Delphi 7 para Linux).
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
VMs e Interfaces de Rede desapareceram (12)
Instalação do drive do adaptador wiffi (7)