Exercício 08 While - Pascal

8) Em uma eleição presidencial existem quatro candidatos. Os votos são informados por código. Os
dados utilizados para a contagem obedecem à seguinte codificação:

 1, 2, 3, 4 = voto para os respectivos candidatos;
 5 = voto nulo;
 6 = voto em branco.
Elabore um algoritmo que calcule e escreva:
a) O total de votos para cada candidato e seu percentual sobre o total;
b) O total de votos nulos e seu percentual sobre o total;
c) O total de votos em branco e seu percentual sobre o total.
Como finalizador do conjunto de votos, tem-se o valor 0.

Program while08;
uses crt;
var
 nul,branco,lula,dilma,serra,plinio: integer;
 res,opcao,cont: integer; 
 Begin
  res:= 1; 
    While res=1 do 
    Begin
     cont:= cont + 1;
     WriteLn('1 ----- Lula');
     WriteLn('2 ----- Dilma');
     WriteLn('3 ----- Serra');
     WriteLn('4 ----- Plinio');
     WriteLn('5 ------------ Nulo');
     WriteLn('6 ------------ Branco');     
     Write('Opcao: ');
     readln(opcao);
      if (opcao = 1) then
       lula:= lula + 1
      else if (opcao = 2) then
       dilma:= dilma + 1 
      else if (opcao = 3) then
       serra:= serra + 1 
      else if (opcao = 4) then
       plinio:= plinio + 1
      else if (opcao = 5) then 
       nul:=nul+1
      else if (opcao = 6) then 
       branco:=branco + 1;      
     clrscr;   
   Writeln('Continuar --- 1');  
   Writeln('Sair ---------0');  
   Write('Opao: ');
   Readln(res);
    end; 
    Writeln('Lula   ',lula,' ',lula/cont*100:3:0,'%'); 
    Writeln('Dilma  ',dilma,' ',dilma/cont*100:3:0,'%'); 
    Writeln('Serra  ',serra,' ',serra/cont*100:3:0,'%'); 
    Writeln('Plinio ',plinio,' ',plinio/cont*100:3:0,'%'); 
    Writeln('   Nulo   ',nul,' ',nul/cont*100:3:0,'%'); 
    Writeln('   Branco ',branco,' ',branco/cont*100:3:0,'%');
    Writeln('               by Marcus Vinicius');  
 End.

Categories: Pascal , Programação