Eleições em Linguagem Pascal

Mais um pedido do nosso leitor Cristofer.

Problema

Faça um programa de apuração de uma eleição, onde a urna devera aceitar a votação até o fiscal digitar 0.


Os códigos de votação serão os seguintes:




1 -> Candidato 1


2 -> Candidato 2


3 -> Candidato 3


4 -> Nulo


5 -> Branco

Solução

Código fonte:

Program Eleicao;


Uses Crt;


var


c1,c2,c3,n,b,t : Integer;


voto : Integer;


Begin


TextColor (14);


TextBackGround (1);


c1 := 0; c2 :=0; c3 :=0; n :=0; b :=0; t :=0;


ClrScr;


WriteLn (' Eleicao');


WriteLn (' =======');


WriteLn;


WriteLn (' 1 - Candidato 1');


WriteLn (' 2 - Candidato 2');


WriteLn (' 3 - Candidato 3');


WriteLn (' 4 - Nulo');


WriteLn (' 5 - Branco');


WriteLn;


WriteLn (' 0 - Sair da votacao');


WriteLn;

voto := 6;


while voto<>0 do


begin


GotoXY (1,12);


Write (' Voto: ');Read (voto);


if voto = 1 then c1 := c1 + 1 else


if voto = 2 then c2 := c2 + 1 else


if voto = 3 then c3 := c3 + 1 else


if voto = 4 then n := n + 1 else


if voto = 5 then b := b + 1;


GotoXY (8,12); Write (' ');


end;


t := c1+c2+c3+n+b;


WriteLn;


WriteLn;


WriteLn ('Resultado da Eleicao');


WriteLn ('====================');


WriteLn;


WriteLn (' Candidato 1: ',c1, ' votos');


WriteLn (' Candidato 2: ',c2, ' votos');


WriteLn (' Candidato 3: ',c3, ' votos');


WriteLn (' Nulos : ',n, ' votos');


WriteLn (' Brancos : ',c1, ' votos');


WriteLn (' Total : ',t, ' votos');


ReadLn;


ReadLn;


End.