Dúvida básica com arrays em procedures

13 de maio de 2012

Olá, comecei há pouco tempo o estudo da linguagem e este é um dos primeiros programas com array que faço.

Coloquei esse procedimento simples de introdução de dados, mas fica dando erro de sintaxe na linha 15, "Array inesperado". Não consegui entender o porquê disso.

Program Introduzir ;
type
	notes= record
			nome1: string;
			nome2: string;
			telr: real;
			telcm: real;
			cel: real;
			rua: string;
			nrua: integer;
			comp: string;
			mailc: string;
			mailp: string;
		 end;
procedure Introduzir (op: char; var agenda: array[1..2] of notes;  idx: integer);

	begin
	writeln('Quais dados gostaria de introduzir?');
	writeln('Digite: 1-nome1, nome2, temr, telcm, cel, nrua, comp, mailc ou mailp');
	readln(op);
	idx:=1;
	Case op of
	'1':
	 	begin
	 	writeln('Digite o dado');
	 	readln(agenda[idx].nome1);
	 	end;
	end;
	end;
var
	 agenda: array [1..2] of notes;
	 idx: integer;


 Begin
  Introduzir;
  writeln(agenda[idx].nome1);

 End.

Obrigado pela ajuda.

andreHO · 14 de maio de 2012

o nome do programa e o nome do procedimento estão iguais... por isso o erro XD

Simon Viegas · 14 de maio de 2012

Olá Rackor,

[..] mas fica dando erro de sintaxe na linha 15, "Array inesperado". Não consegui entender o porquê disso.
procedure Introduzir (op: char; var agenda: array[1..2] of notes;  idx: integer);

O erro está na assinatura da procedure. O seu compilador não aceita essa declaração do array passando a sua faixa, ou seja, usando o "[1..2]".

Você pode fazer assim:

procedure Introduzir (op: char; var agenda: array of notes; idx: integer);

Mas tem um detalhe: Independente de como você declarou a faixa do array, ao declarar assim ele vai começar sempre do "0", ou seja, em vez de "[1..2]" vai ficar "[0..1"]... resumidamente sempre ficará de "0" a "quantidade de posições -1".

PS: Caso queira usar uma faixa personalizada no precedimento, uma solução seria criar um Type e depois passar por parâmetro. Ex.:

Obs.: Têm mais outros detalhes no código, mas auto-explicativos.

PROGRAM _Introduzir;
const
  TAM = 2; //tamanho do array (não é obrigatório, é só um exemplo)
type
  notes = record
            nome1 :string;
            nome2 :string;
            telr  :real;
            telcm :real;
            cel   :real;
            rua   :string;
            nrua  :integer;
            comp  :string;
            mailc :string;
            mailp :string;
          end;
[COLOR="Blue"]  t_Agenda = array[1..TAM] of notes;[/COLOR]

procedure Introduzir (var [COLOR="Blue"]agenda:t_Agenda;[/COLOR] idx: integer);
  var
    op: char; //essa é uma variável local, não precisa receber por parâmetro
  begin

  end;
var
  agenda :t_Agenda;
  idx    :integer;
BEGIN

END.

Olá andreHO,

o nome do programa e o nome do procedimento estão iguais... por isso o erro XD

De certo modo você está certo sobre o (possível) erro de "duplicidade de identificadores" (mesmo nome para duas coisas diferentes), mas o erro anunciado é outro, ou seja, seriam dois erros diferentes e independentes (um não influencia no outro).

Obs.: A depender do programa, é possível usar desta forma. Vai depender do compilador. Por exemplo: no Turbo Pascal 7.0 e 7.1 não aceita essa duplicidade (erro nos dois casos), mas no Free Pascal sim (só erro na procedure).

Abraços