Trabalho faculdade (pascal)

[Alex Bandeira]

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

 

 

 

 

 

 

 

[Pedro Math.pi]

@Alex Bandeira

Você precisa saber os dados dos eleitores ou só precisa fazer 30 votos?

Se for só os 30 votos, coloque seu código dentro de um laço de repetição de 30 posições. Somente isso.

Agora se você quer os nomes de quem votou em quem, você precisará de um array que armazene os nomes e os votos de quem votou.

[Alex Bandeira]

5 horas atrás, Math.Pi disse:

@Alex Bandeira

Você precisa saber os dados dos eleitores ou só precisa fazer 30 votos?

Se for só os 30 votos, coloque seu código dentro de um laço de repetição de 30 posições. Somente isso.

Agora se você quer os nomes de quem votou em quem, você precisará de um array que armazene os nomes e os votos de quem votou.

 

estou com os seguintes problemas para terminar esse algoritmo:

1º cadastrar os eleitores e também os candidatos.(28 eleitores+2 candidatos ),sabendo que os candidatos são eleitores também totalizando 30 eleitores.

 

 2º saber quem votou em quem