Eleições em Linguagem Pascal

Mais um pedido do nosso leitor Cristofer.

Problema

Faça um programa de apuração de uma eleição, onde a urna devera aceitar a votação até o fiscal digitar 0.
Os códigos de votação serão os seguintes:

1 -> Candidato 1
2 -> Candidato 2
3 -> Candidato 3
4 -> Nulo
5 -> Branco

Solução

Código fonte:

Program Eleicao;
Uses Crt;
var
c1,c2,c3,n,b,t : Integer;
voto : Integer;
Begin
TextColor (14);
TextBackGround (1);
c1 := 0; c2 :=0; c3 :=0; n :=0; b :=0; t :=0;
ClrScr;
WriteLn (' Eleicao');
WriteLn (' =======');
WriteLn;
WriteLn (' 1 - Candidato 1');
WriteLn (' 2 - Candidato 2');
WriteLn (' 3 - Candidato 3');
WriteLn (' 4 - Nulo');
WriteLn (' 5 - Branco');
WriteLn;
WriteLn (' 0 - Sair da votacao');
WriteLn;

voto := 6;
while voto<>0 do
begin
GotoXY (1,12);
Write (' Voto: ');Read (voto);
if voto = 1 then c1 := c1 + 1 else
if voto = 2 then c2 := c2 + 1 else
if voto = 3 then c3 := c3 + 1 else
if voto = 4 then n := n + 1 else
if voto = 5 then b := b + 1;
GotoXY (8,12); Write (' ');
end;
t := c1+c2+c3+n+b;
WriteLn;
WriteLn;
WriteLn ('Resultado da Eleicao');
WriteLn ('====================');
WriteLn;
WriteLn (' Candidato 1: ',c1, ' votos');
WriteLn (' Candidato 2: ',c2, ' votos');
WriteLn (' Candidato 3: ',c3, ' votos');
WriteLn (' Nulos : ',n, ' votos');
WriteLn (' Brancos : ',c1, ' votos');
WriteLn (' Total : ',t, ' votos');
ReadLn;
ReadLn;
End.

7 comentários:

  1. - Cadastre os nomes dos 5 supermercados onde será realizada a pesquisa de preço;
    - Cadastre o noem dos 10 produos da cesta básica qie serão pesquisadas;
    - Leia os preços dos produtos pesquisados em cada supermercado;
    - Forneça o preço médio de cada produto da cesta básica nos 5 supermercados pesquisados;
    - Indique qual o menor valor de cesta básica e em qual supermercado ele ocorre.

    Desde já agradeço.

    ResponderExcluir
  2. Envie o projeto e a data de entrega para o meu -email:

    telles.wellington@bol.com.br

    ResponderExcluir
  3. leia as informaçoes a seguir:

    Registro
    cliente: numero do cliente , nome do cliente , telefone do cliente, endereço do cliente.
    registro
    conta bancaria: numero da conta , numero do cliente e saldo,

    crie um programa em pascal, que faça o cadastramento de contas,verificando se o numero do cliente titular da conta ja foi previamente cadastrada.
    se existir ,devera permitir a inclusao.caso contrario , devera mostrar a mensagem cliente nao cadastrado e abrir uma tela que permita o cadastramento.
    o programa deve mostrar, ao final todas as contas cadastrada, alem do nome e telefone do titular.

    ResponderExcluir
  4. Ola estou estudando uma apostila de programação e passei a ter alguns problemas em arquivos, quando eu coloco os codigos que a apostila passa nos exemplos o mesmo da o seguinte erro: => erro sintatico na 3...
    => of não esperado!
    eu estava usando o pascal zim. O codigo era o seguinte:

    program CRIA_ARQUIVO_INTEIRO;
    var
    ARQUIVO_INT : file of integer;
    begin
    assign(ARQUIVO_INT, ‘ARQINT.XXX’);
    rewrite(ARQUIVO_INT);
    close(ARQUIVO_INT);
    end.

    poderia me ajudar com esse pequeno problema???
    desde ja agradeço!
    Doug Morhaat

    ResponderExcluir
  5. Me ajuda por favor com esse progrma dos animais eu presciso desses 2 pontos para passasr na unidade, me ajuda! pelo amor de Deus.


    Construa um programa que seja capaz de concluir qual dentre os animais se-guintes foi escolhido, através de perguntas e respostas. Animais possíveis: leão, cavalo, homem, macaco, morcego, baleia, avestruz, pingüim, pato, á-guia, tartaruga, crocodilo e cobra.

    Exemplo: É mamífero ? Sim.

    É quadrúpede ? Sim.

    É carnívoro ? Não.

    É herbívoro ? Sim.

    Então o animal escolhido foi o cavalo.

    envia uma resposta para o meu e-mail por favor ainda hj
    henrique-souza1936@hotmail.com

    ResponderExcluir
  6. Caros Leitores,

    Gostaria muito de ajudar a todos, mas o tempo não é muito, pois tenho outras atividades, pois devido a falta de doação e de patrocínio eu tenho que me empenhar em outras atividades para me manter.

    Atenciosamente
    Prof. Wellington Telles

    ResponderExcluir
  7. Tem um erro alí no final:
    "WriteLn (' Nulos : ',n, ' votos');
    >>>>>>>>>WriteLn (' Brancos : ',c1, ' votos'); //não seria, "[...]Brancos : ',b, ' votos'[...]"
    WriteLn (' Total : ',t, ' votos');
    ReadLn;
    ReadLn;
    End. "

    ResponderExcluir