Trabalho em pascal dando erro

bielmaster48 · 21 de setembro de 2016

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.

Ricardov · 21 de setembro de 2016

http://forum.clubedohardware.com.br/announcement/27-poste-seus-códigos-corretamente/

Simon Viegas · 22 de setembro de 2016

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.