Em uma eleição presidencial, existem quatro candidatos. Os votos são informados através de código. Os dados utilizados para a escrutinagem obedecem à seguinte codificação: - 1, 2, 3 e 4 = voto para os respectivos candidatos; - 5 voto nulo; - 6 voto em branco;
Um exemplo da net, pode suar como base
//////////////////////////////////////////////////
// //
// Programa: ELEICAO 2006 //
// Programador: RoaNFRaNKLiN //
// E-Mail: roanedikey@hotmail.com //
// Software Livre //
// //
//////////////////////////////////////////////////
program ELEICAO;
uses crt;
var
opcao : char;
CandA,CandB,CandC,CandD,CandE : Integer;
procedure VOTOS(var op: char);
const
Candidatos = ['1','2','3','4','5','6'];
begin
CLRSCR; //Limpa a TELA
writeln('ELEICAO 2006 - PROGRAMAÇÃO FREEPASCAL');
writeln('---------------------------------------');
writeln('Para finalizar o programa digite 6.');
writeln; // pula linha
writeln('Selecione um Candidatos: '); // mostra na tela
writeln; // pula linha
writeln('1 - Candidato A'); // mostra na tela
writeln('2 - Candidato B'); // mostra na tela
writeln('3 - Candidato C'); // mostra na tela
writeln('4 - Candidato D'); // mostra na tela
writeln('5 - Candidato E'); // mostra na tela
writeln('---------------------------------------');
writeln; // pula linha
write('Entre com opção: '); // mostra na tela
repeat
readln(op);
until op in Candidatos;
end;
procedure MostraClassificacao;
begin
CLRSCR; //Limpa a TELA
writeln('Clasificação dos Candidatos:');
writeln;
writeln('O Cadidato A: ',CandA);
writeln('O Cadidato B: ',CandB);
writeln('O Cadidato C: ',CandC);
writeln('O Cadidato D: ',CandD);
writeln('O Cadidato E: ',CandE);
readkey;
end;
procedure Verifica;
begin
CLRSCR;
if (CandA > CandB) and (CandA > CandC) and (CandA > CandD) and (CandA > CandE) then
Writeln('O Vencedor é o Candidato A, com ',CandA, ' Votos.')
else
if (CandB > CandC) and (CandB > CandD) and (CandB > CandE) and (CandB > CandA) then
Writeln('O Vencedor é o Candidato B, com ',CandB, ' Votos.')
else
if (CandC > CandD) and (CandC > CandE) and (CandC > CandA) and (CandC > CandB) then
Writeln('O Vencedor é o Candidato C, com ',CandC, ' Votos.')
else
if (CandD > CandE) and (CandD > CandA) and (CandD > CandB) and (CandD > CandC) then
Writeln('O Vencedor é o Candidato D, com ',CandD, ' Votos.')
else
if (CandE > CandA) and (CandE > CandB) and (CandE > CandC) and (CandE > CandA) then
Writeln('O Vencedor é o Candidato E, com ',CandE, ' Votos.')
else
Writeln('..:: EMPATE ::..');
readkey;
end;
procedure Sobre;
begin
CLRSCR; //Limpa a TELA
writeln('ELEICAO 2006 - PROGRAMAÇÃO FREEPASCAL');
writeln('---------------------------------------');
writeln('escrito por RoaNFRaNKLiN.');
writeln('E-Mail: roanedikey@hotmail.com');
writeln(' roanfranklin@yahoo.com.br');
writeln(' roanfranklin@xeideproblema.com');
writeln('---------------------------------------');
writeln('I LOVE YOU "Slackware/Linux"');
readkey;
end;
begin
CandA := 0;
CandB := 0;
CandC := 0;
CandD := 0;
CandE := 0;
repeat
CLRSCR; //Limpa a TELA
VOTOS(opcao);
case opcao of
'1': inc(CandA);
'2': inc(CandB);
'3': inc(CandC);
'4': inc(CandD);
'5': inc(CandE);
end;
until opcao = '6';
Verifica;
MostraClassificacao;
Sobre;
end.
Para escrever sua resposta aqui, entre ou crie uma conta.
Compartilhar