Exercício 08 Repeat - 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 repeat08;

uses crt;
var
branco,nulo,dilma,plinio,serra,marina:integer;
sair,opcao,cont:integer;
Begin
    repeat    
        Writeln('E L E I C A O');
        Writeln('Dilma  ---- 1');
        Writeln('Serra  ---- 2');
        Writeln('Plinio ---- 3');
        Writeln('Marina ---- 4');
        Writeln('Nulo   ---- 5');
        Writeln('Branco ---- 6');        
        Write('Opcao: ');
        readln(opcao);    
            if not((opcao>=1) and (opcao<=6)) then
                 Begin 
                    repeat
                        Writeln('Opcao Invalida!');
                        Writeln('Digite Novamente');
                        Write('Opcao: ');
                        readln(opcao);
                    until (opcao>=1) and (opcao<=6);                              
                  End;    
               clrscr;
        
          if opcao=1 then
            dilma:=dilma+1
          else if opcao=2 then
                serra:=serra+1
            else if opcao=3 then
                    plinio:=plinio+1
                else if opcao=4 then
                        marina:=marina+1
                    else if opcao=5 then
                            nulo:=nulo+1
                        else if opcao=6 then
                                branco:=branco+1;                                                        
     cont:=cont+1;                                                          
            Writeln('Sair -------- 0');
            Writeln('Continuar --- 1');                                          
            Write('Opcao: ');
            readln(sair);        
    clrscr;
    until (sair=0);
  Writeln('Dilma  ',dilma,' votos ',dilma/cont*100:0:0,'%');    
  Writeln('Serra  ',serra,' votos ',serra/cont*100:0:0,'%');
  Writeln('Plinio ',plinio,' votos ',plinio/cont*100:0:0,'%');
  Writeln('Marina ',marina,' votos ',marina/cont*100:0:0,'%');
  Writeln('Nulo   ',nulo,' votos ',nulo/cont*100:0:0,'%');    
  Writeln('Branco ',branco,' votos ',branco/cont*100:0:0,'%');      
End.

Categories: Pascal , Programação