Ir ao conteúdo
  • Cadastre-se
bielmaster48

Trabalho em pascal dando erro

Recommended Posts

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.

 

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





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

×