Programa em Pascal que simula uma urna eletrônica, onde o usuário pode votar no seu candidato preferido. No final mostra-se o resultado da votação.

• Download eleicao.pas
• Enviar nova versão

Esconder código-fonte

//////////////////////////////////////////////////
//                  //
//    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.

Sistemas númericos

GTK em (Free)Pascal

Forca

Método de eliminação de Gauss com pivotamento parcial

Juros

Nenhum comentário foi encontrado.