Escolha, vote!!! Programinha de Eleições 2006. Escolha dentre os 4 candidatos, Heloísa, Cristovam, Alckmin, Lula.

• Download votacao
• Enviar nova versão

Esconder código-fonte

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).

jogo bobo testando com case