Ir ao conteúdo
  • Cadastre-se
bielmaster48

Trabalho em pascal dando erro

Posts recomendados

Trabalho sobre eleiçoes dando erro no end; http://pastebin.com/5NTks8nc

program ELEICAO;
uses crt;
var
nulo,CandA,CandB,CandC,CandD,CandE,CandF,CandG,voto,branco,total,pv : Integer;
begin
    nulo:= 0;
    CandA:= 0;
    CandB:= 0;
    CandC:= 0;
    CandD:= 0;
    CandE:= 0;
    CandF:= 0;
    CandG:= 0;
    branco:= 0;
    CLRSCR;

  while voto <>0 do
     begin
    writeln('ELEICAO 2016');
  writeln('---------------------------------------');
  writeln ('15 - Cícero Almeida (PMDB)');
  writeln ('33 - Fernando do Village (PMN)');
  writeln ('50 - Gustavo Pessoa (PSOL) ');
  writeln ('40 - JHC (PSB) ');
  writeln ('13 - Paulão (PT)');
  writeln ('36 - Paulo Memória (PTC)');
  writeln ('45 - Rui Palmeira (PSDB)');
  writeln ('1 – Nulo  ');
  writeln ('2 – Branco ');
  writeln ('0 –  Encerra a votação Candidato');

  writeln('---------------------------------------');
  writeln;
  writeln('Insira o Voto: ');
    readln(voto);
    writeln('====================================');
  case (voto) of
    15: CandA:= CandA+1;
  33: CandB:= CandB+1;
    50: CandC:= CandC+1;
    40: CandD:= CandD+1;
    13: CandE:= CandE+1;
    36: CandF:= CandF+1;
    45: CandG:= CandG+1;
     1: nulo := nulo+1;
     2:branco:=branco+1;
     
end;
begin
  CLRSCR;
  writeln('Clasificação dos Candidatos:');
  writeln;
  total:= (CandA+CandB+CandC+CandD+CandE+CandF+CandG);
  pv:= (CandA+CandB+CandC+CandD+CandE+CandF+CandG+nulo+branco);
    writeln('Total de votos válidos:',total);
    writeln('Total de pessoas votantes:',pv);  
    writeln('Total de votos do Cícero Almeida (PMDB): ',CandA);
  writeln('Total de votos do  Fernando do Village (PMN) ',CandB);
  writeln('Total de votos do  Gustavo Pessoa (PSOL) ',CandC);
  writeln('Total de votos do  JHC (PSB): ',CandD);
  writeln('Total de votos do  Paulão (PT): ',CandE);
  writeln('Total de votos do Paulo Memoria (PTC): ',CandF);
  writeln('Total de votos do  Rui Palmeira (PSDB):',CandG);
  writeln('Votos nulos ',nulo);
  writeln('Votos brancos',branco);
  if (CandA+CandB+CandC+CandD+CandE+CandF+CandG+nulo+branco)=0 then
  begin
  writeln(' Não houve nenhum votante. Eleições Canceladas. ')
  end;
  if (CandA+CandB+CandC+CandD+CandE+CandF+CandG)=0 then
  begin
    writeln('Novas eleições serão convocadas - eleição inválida')
    end;
    readkey;
end;
begin
  CLRSCR;
  if (CandA > CandB) and (CandA > CandC) and (CandA > CandD) and (CandA > CandE) and (CandA > CandF) and (CandA > CandG) then
  Writeln('O Vencedor é o Candidato Cícero Almeida,com ',CandA, ' Votos.')
  else
  if (CandB > CandC) and (CandB > CandD) and (CandB > CandE) and (CandB > CandA) and (CandB > CandF) and (CandB > CandG) then
  Writeln('O Vencedor é o Candidato Fernando do Village, com ',CandB, ' Votos.')
  else
  if (CandC > CandD) and (CandC > CandE) and (CandC > CandA) and (CandC > CandB) and (CandC > CandF) and (CandC > CandG) then
  Writeln('O Vencedor é o Candidato Gustavo Pessoa, com ',CandC, ' Votos.')
  else
  if (CandD > CandE) and (CandD > CandA) and (CandD > CandB) and (CandD > CandC) and (CandD > CandF) and (CandD > CandG) then
  Writeln('O Vencedor é o Candidato JHC, com ',CandD, ' Votos.')
  else
  if (CandE > CandA) and (CandE > CandB) and (CandE > CandC) and (CandE > CandD) and (CandE > CandF) and (CandE > CandG) then
  Writeln('O Vencedor é o Candidato Paulão, com ',CandE, ' Votos.')
  else
    if (CandF > CandA) and (CandF > CandB) and (CandF > CandC) and  (CandF > CandD) and (CandF > CandE) and (CandF > CandG) then
    Writeln('O Vencedor é o Candidato Paulo Memoria , com ',CandF, ' Votos.')
    else
    if (CandG > CandA) and (CandG > CandB) and (CandG > CandC) and  (CandG > CandD) and (CandG > CandE) and (CandG > CandF) then
    Writeln('O Vencedor é o Candidato  Rui Palmeira , com ',CandG, ' Votos.')
    else
  Writeln('..:: EMPATE ::..');
  writeln('Havera segundo turno');
    readkey;
end;
end.

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá.

 

Faltou o begin do while.

 

Abaixo seu código reidentado.

 

program ELEICAO;
uses
  CRT;
var
  nulo,CandA,CandB,CandC,CandD,CandE,CandF,CandG,voto,branco,total,pv : Integer;
begin
nulo:= 0;
CandA:= 0;
CandB:= 0;
CandC:= 0;
CandD:= 0;
CandE:= 0;
CandF:= 0;
CandG:= 0;
branco:= 0;
CLRSCR;
while voto <>0 do
  begin
  writeln('ELEICAO 2016');
  writeln('---------------------------------------');
  writeln ('15 - Cícero Almeida (PMDB)');
  writeln ('33 - Fernando do Village (PMN)');
  writeln ('50 - Gustavo Pessoa (PSOL) ');
  writeln ('40 - JHC (PSB) ');
  writeln ('13 - Paulão (PT)');
  writeln ('36 - Paulo Memória (PTC)');
  writeln ('45 - Rui Palmeira (PSDB)');
  writeln ('1 – Nulo  ');
  writeln ('2 – Branco ');
  writeln ('0 –  Encerra a votação Candidato');
  writeln('---------------------------------------');
  writeln;
  writeln('Insira o Voto: ');
  readln(voto);
  writeln('====================================');
  case (voto) of
    15: CandA:= CandA+1;
    33: CandB:= CandB+1;
    50: CandC:= CandC+1;
    40: CandD:= CandD+1;
    13: CandE:= CandE+1;
    36: CandF:= CandF+1;
    45: CandG:= CandG+1;
    1: nulo := nulo+1;
    2:branco:=branco+1;
    end;
  {begin} //begin de que[1]
  CLRSCR;
  writeln('Clasificação dos Candidatos:');
  writeln;
  total:= (CandA+CandB+CandC+CandD+CandE+CandF+CandG);
  pv:= (CandA+CandB+CandC+CandD+CandE+CandF+CandG+nulo+branco);
  writeln('Total de votos válidos:',total);
  writeln('Total de pessoas votantes:',pv);  
  writeln('Total de votos do Cícero Almeida (PMDB): ',CandA);
  writeln('Total de votos do  Fernando do Village (PMN) ',CandB);
  writeln('Total de votos do  Gustavo Pessoa (PSOL) ',CandC);
  writeln('Total de votos do  JHC (PSB): ',CandD);
  writeln('Total de votos do  Paulão (PT): ',CandE);
  writeln('Total de votos do Paulo Memoria (PTC): ',CandF);
  writeln('Total de votos do  Rui Palmeira (PSDB):',CandG);
  writeln('Votos nulos ',nulo);
  writeln('Votos brancos',branco);
  if (CandA+CandB+CandC+CandD+CandE+CandF+CandG+nulo+branco)=0 then
    begin
    writeln(' Não houve nenhum votante. Eleições Canceladas. ')
    end;
  if (CandA+CandB+CandC+CandD+CandE+CandF+CandG)=0 then
    begin
    writeln('Novas eleições serão convocadas - eleição inválida')
    end;
  readkey;
  {end;} [1]
  {begin} //begin de que? [2]
  CLRSCR;
  if (CandA > CandB) and (CandA > CandC) and (CandA > CandD) and (CandA > CandE) and (CandA > CandF) and (CandA > CandG) then
    Writeln('O Vencedor é o Candidato Cícero Almeida,com ',CandA, ' Votos.')
  else
    if (CandB > CandC) and (CandB > CandD) and (CandB > CandE) and (CandB > CandA) and (CandB > CandF) and (CandB > CandG) then
      Writeln('O Vencedor é o Candidato Fernando do Village, com ',CandB, ' Votos.')
    else
      if (CandC > CandD) and (CandC > CandE) and (CandC > CandA) and (CandC > CandB) and (CandC > CandF) and (CandC > CandG) then
        Writeln('O Vencedor é o Candidato Gustavo Pessoa, com ',CandC, ' Votos.')
    else
      if (CandD > CandE) and (CandD > CandA) and (CandD > CandB) and (CandD > CandC) and (CandD > CandF) and (CandD > CandG) then
        Writeln('O Vencedor é o Candidato JHC, com ',CandD, ' Votos.')
    else
      if (CandE > CandA) and (CandE > CandB) and (CandE > CandC) and (CandE > CandD) and (CandE > CandF) and (CandE > CandG) then
        Writeln('O Vencedor é o Candidato Paulão, com ',CandE, ' Votos.')
    else
      if (CandF > CandA) and (CandF > CandB) and (CandF > CandC) and  (CandF > CandD) and (CandF > CandE) and (CandF > CandG) then
        Writeln('O Vencedor é o Candidato Paulo Memoria , com ',CandF, ' Votos.')
    else
      if (CandG > CandA) and (CandG > CandB) and (CandG > CandC) and  (CandG > CandD) and (CandG > CandE) and (CandG > CandF) then
        Writeln('O Vencedor é o Candidato  Rui Palmeira , com ',CandG, ' Votos.')
    else
      Writeln('..:: EMPATE ::..');
  writeln('Havera segundo turno');
  readkey;
  {end;} [2]
  end; //begin while
END.

 

Compartilhar este post


Link para o post
Compartilhar em outros sites
Este tópico está parado há muito tempo. Certifique-se que a sua mensagem tem a ver com o tema sendo discutido. Obrigado.

Junte-se à conversa

Você pode postar agora e cadastrar-se depois. Se você tem uma conta, faça o login para postar.

Visitante
Responder

×   Você colou conteúdo com formatação.   Restore formatting

  Só é possível ter até 75 emoticons.

×   O link foi automaticamente convertido para mostrar o conteúdo.   Clique aqui para mostrá-lo como link comum

×   Seu texto anterior foi restaurado.   Limpar o editor

×   You cannot paste images directly. Upload or insert images from URL.






Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

GRÁTIS: minicurso “Como ganhar dinheiro montando computadores”

Gabriel TorresGabriel Torres, fundador e editor executivo do Clube do Hardware, acaba de lançar um minicurso totalmente gratuito: "Como ganhar dinheiro montando computadores".

Você aprenderá sobre o quanto pode ganhar, como cobrar, como lidar com a concorrência, como se tornar um profissional altamente qualificado e muito mais!

Inscreva-se agora!