Em uma eleição presidencial, existem quatro candidatos. Os votos são informados através de código. Os códigos utilizados são: 1,2,3,4 votos para os candidatos; 5 voto nulo e 6 voto em branco
Elabore um algoritmo que calcule e escreva:
- Total de votos para cada candidato;
- Total de votos nulos;
- Total de votos brancos;
- Percentual dos votos brancos e nulos sobre o total.
Como finalizador do conjunto de votos tem-se o valor 0 (zero).
Pseudocódigo:
programa exercicio7
var
inteiro: cand1, cand2, cand3, cand4, branco, nulo, total, voto;
percentual: real;
inicio
cand1 ← 0;
cand2 ← 0;
cand3 ← 0;
cand4 ← 0;
nulo ← 0;
branco ← 0;
escreva "Deseja votar? Sim = 1 / Nao = 0";
leia (voto);
enquanto (voto <> 0) faça
escreva ("Candidatos: 1, 2, 3 e 4");
escreva ("Voto Nulo: 5");
escreva ("Voto Branco: 6);
escreva ("Insira o Voto: ");
escreva ("====================================");
escolha (voto)
1: cand1 ← cand1+1;
2: cand2 ← cand2+1;
3: cand3 ← cand3+1;
4: cand4 ← cand4+1;
5: nulo ← nulo+1;
6: branco ← branco+1;
fim_escolha;
fim_enquanto;
escreva ("Total Candidato 1 = ", cand1);
escreva ("Total Candidato 2 = ", cand2);
escreva ("Total Candidato 3 = ", cand3);
escreva ("Total Candidato 4 = ", cand4);
escreva ("Total Nulos = ", nulo);
escreva ("Total Brancos = ", branco);
total ← (cand1 + cand2 + cand3 + cand4 + nulo + branco);
escreva ("Total de votos = ", total);
percentual ← ((branco + nulo) / total) * 100);
escreva ("Percentual Brancos e Nulos = ", percentual);
fim.
Pascal:
// Autor: Rafael Oliveira
// Data: 12/05/2010
Program exercicio7;
uses crt;
var
cand1, cand2, cand3, cand4, branco, nulo, total, voto : integer;
percentual : real;
Begin
cand1 := 0;
cand2 := 0;
cand3 := 0;
cand4 := 0;
nulo := 0;
branco := 0;
writeln('Deseja votar? Sim = 1 / Nao = 0');
readln(voto);
while (voto <> 0) do
begin
writeln('Candidatos: 1, 2, 3 e 4');
writeln('Voto Nulo: 5');
writeln('Voto Branco: 6');
writeln('Insira o Voto: ');
readln(voto);
writeln('====================================');
case (voto) of
1: cand1:= cand1+1;
2: cand2:= cand2+1;
3: cand3:= cand3+1;
4: cand4:= cand4+1;
5: nulo:= nulo+1;
6: branco:= branco+1;
end;
end;
clrscr;
writeln('Resultado:');
writeln('Total Candidato 1 = ', cand1, ' votos');
writeln('Total Candidato 2 = ', cand2, ' votos');
writeln('Total Candidato 3 = ', cand3, ' votos');
writeln('Total Candidato 4 = ', cand4, ' votos');
writeln('Total Nulos = ', nulo, ' votos');
writeln('Total Brancos = ', branco, ' votos');
total:= (cand1 + cand2 + cand3 + cand4 + nulo + branco);
writeln('Total de votos = ', total);
percentual := ((branco + nulo) / total) * 100;
writeln('Percentual brancos e nulos = ', percentual:3:0, '%');
writeln('Pressione para fechar');
readkey;
End.