Olá pessoal preciso de ajuda com um trabalho da faculdade, estou desenvolvendo uma URNA ELETRÔNICA em PASCAL, fiz a urna que mostra os candidatos,votos vencedor ; porém não estou conseguindo cadastrar eleitores e dizer quem votou em quem , segue abaixo o que meu professor quer e o que já fiz até agora:
Desenvolva um software para urna eletrônica em linguagem pascal, com o intuito de eleger o representante de sala. O software deve conter cadastro de candidatos e eleitores com seu código e nome no sistema, os candidatos também tem direito a voto e cada pessoa só poderá votar uma única vez. Deverá apresentar uma matriz com o total de votos de cada candidato e outra o candidato e o nome de que recebeu os votos.
program UrnaEletronica;
uses crt;
var Voto, Alibaba, Alcapone, Brancos, Nulos : integer;
Cont, Conf : char;
Corrige : boolean;
begin
clrscr;
writeln('ELEICÕES UNCISAL 2016- ADS 2º PERIODO');
writeln('---------------------------------------');
writeln('Para finalizar o programa digite 6.');
writeln; // pula linha
writeln('Selecione um Candidatos: '); // mostra na tela
writeln; // pula linha
writeln('1 - Alibaba'); // mostra na tela
writeln('2 - Alcapone'); // mostra na tela
writeln('00 - Branco'); // mostra na tela
writeln('5 - Nulo'); // mostra na tela
writeln('---------------------------------------');
writeln; // pula linha
write('Entre com opção: '); // mostra na tela
Cont := 'S';
Alibaba := 0; Alcapone := 0; Brancos := 0; Nulos := 0;
while UpCase(Cont) = 'S' do
begin
repeat
Corrige := false;
writeln('Digite seu voto');
readln(Voto);
case Voto of
1 : begin
writeln('voce votou em Alibaba. Confirma seu voto (S/N)?');
readln(Conf);
if UpCase(Conf) = 'S'
then
begin
Alibaba := Alibaba + 1;
writeln('Voto confirmado! Obrigado!');
end
else
Corrige := true;
end;
2 : begin
writeln('voce votou em Alcapone. Confirma seu voto (S/N)?');
readln(Conf);
if UpCase(Conf) = 'S'
then
begin
Alcapone := Alcapone + 1;
writeln('Voto confirmado! Obrigado!');
end
else
Corrige := true;
end;
00 : begin
writeln('voce votou em branco. Confirma seu voto (S/N)?');
readln(Conf);
if UpCase(Conf) = 'S'
then
begin
Brancos := Brancos + 1;
writeln('Voto confirmado! Obrigado!');
end
else
Corrige := true;
end;
5: begin
writeln('voce anulou seu votou. Confirma seu voto (S/N)?');
readln(Conf);
if UpCase(Conf) = 'S'
then
begin
Nulos := Nulos + 1;
writeln('Voto confirmado! Obrigado!');
end
else
Corrige := true;
end;
end; until Corrige = false;
writeln('Novo eleitor (S/N)?');
readln(Cont);
end;
writeln('Resultado da eleicao');
writeln(' Alibaba: ', Alibaba);
writeln(' Alcapone: ', Alcapone);
writeln(' Brancos: ', Brancos);
writeln(' Nulos: ', Nulos);
writeln;
writeln; write('Candidato eleito: ');
if Alibaba > Alcapone then
writeln('Alibaba')
else
if Alibaba < Alcapone then
writeln('Alcapone')
else
writeln('Eleicao empatada');
Readln;
end.
FALTA O CADASTRO DE ELEITORES(30) E QUEM VOTOU EM QUEM
ME AJUDEM POR FAVOR