Erro Inesperado ao tentar compilar o programa.

Thiago Garrocho · 3 de julho de 2011

Boa noite amigos, estou criando um programa comum de pascal utilizando registro e vetor. Quando tento rodar o programa dá um erro vou postar meu código:

Program exemplo;
uses crt;
const max=3;

type treg=record
		  matricula:integer;
		  nome:string;
		  salario:real;
		end;
	tvet=array[1..max] of treg;

var	vetor:tvet;
	i, total, matricula:integer;
	op:char;
	achou:boolean;

Begin
  total:=0;
	  repeat
	  	clrscr;
	  	writeln('------------------');
	  	writeln('1 - Cadastro');
	  	writeln('2 - Consulta');
	  	writeln('3 - Excluir');
	  	writeln('4 - Sair');
	  	writeln('------------------');
	  	op:=readkey;
	  	Case op of
	  		'1':if total = max then
	  			begin
	  				clrscr;
	  				writeln('Todas as matricula já cadastradas');
	  				readkey;
	  			end
	  		    else
	  		     begin
	  		     	clrscr;
	  		     	writeln('Matricula:');
	  		     	readln(matricula);
	  		     	i:=1;
	  		     	achou:=false;
	  		     	while (achou=false) and (i<=total) do
	  		     	   begin
	  		     		if matricula = veto[i].matricula then
	  		     			achou:=true
	  		     		else
	  		     			i:=i+1;
	  		     	   end;
	  		     		if achou = true then
	  		     	   		begin
	  		     	   			clrscr;
	  		     	   			writeln('Matricula já cadastrada!');
	  		     	   			readkey;
	  		     	   		end
	  		     	   	else
	  		     	   		begin
	  		     	   			clrscr;
	  		     	   			vetor[total+1].matricula:=matricula;
	  		     	   			writeln('Nome:');
	  		     	   			readln(vetor[total+1].nome);
	  		     	   			writeln('Salario:);
	  		     	   			readln(vetor[total+1].salario);
	  		     	   			total:=total+1;
	  		     	   			readkey;
	  		     	   		end;  		     	   					  		     		  		     	   		
	  		     end;    
		end;
	  until op='4';

End.

O erro que está dando é ERRO NA LINHA 68, '4', não esperado!?!?

como assim '4' não esperado? pior que eu refiz o programa e não deu esse erro, só em uma tentativa está dando isso... se alguem poder verificar o código, ainda não terminei o numero '2' e '3' ...

aí descobri o erro.. está ali:

vetor[total+1].matricula:=matricula;

writeln('Nome:');

readln(vetor[total+1].nome);

writeln('Salario:);

readln(vetor[total+1].salario);

total:=total+1;

readkey;

querendo ou não foi o fórum aqui que me ajudou, pois ali em cima apareceu um smile, que não era pra aparecer se o código estivesse certo rsrs.. flws. deu certinho agora

rockzilla2109 · 3 de julho de 2011

Ah então conseguiu resolver o problema?

Se sim então por gentileza modifique o titulo do topico acrescentando a palavra 'RESOLVIDO', ou avise os moderadores, conforme diz o comunicado de gandalfnho

https://www.clubedohardware.com.br/forums/forum/178-pascaldelphi/:

- Não abandone seu tópico. Avise se conseguiu resolver ou não seu problema e se possível diga a solução encontrada, assim ajudará outros membros do fórum que possam ter o mesmo problema. Assim que tiver solucionado, use o botão Denunciar no seu post para avisar a moderação que o tópico pode ser fechado como Resolvido.

Se tiver mais problemas pode postar que tentaremos ajudá-lo.