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.
