• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Rui__

Um erro que eu nao vejo.. :\

8 mensagens neste tópico

uses crt;

type livro = record
     Titulo : string;
     Editora : string;
     AnoEdicao : integer;
     Autor : string;
     Paginas : Integer;
     ISBN : integer;
end;

const nlivros = 10;

procedure printlivros (Ls : array[1..nlivros] of livro;
  var i : integer;
          begin
               for i:=1 to nlivros do
                   printlivro (ls[i]);
          end;

function printtitulos (Ls : array of livro) : livro;
  var i :integer;
         begin
              for i:=1 to nlivros do
                  writeln (Ls[i].Titulo);
              end;
         end;


Alguem pode me dizer onde está o erro??
No Dev-Pascal 1.9.2 aparece-me este erro 
Fatal: Syntax error, OF expected but [ found

----------------------------------------------

EDIT: Adicionado o GeSHi - (Overrun)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

 procedure printlivros (Ls : array[1..nlivros] of livro;

E tambem

function printtitulos (Ls : array of livro) : livro;

abraços

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

mas sem dizeres qual e a linha do erro e dificil ajudar-te

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

mas sem dizeres qual e a linha do erro e dificil ajudar-te

ta ali em cima...sao o procedure e a function... eu n sei o q se passa...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ali na printlivros não falta fechares os parêntesis antes do ponto e virgula?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

não podes fazer isso assim, tens que alterar o código para :

type livro = record
     Titulo : string;
     Editora : string;
     AnoEdicao : integer;
     Autor : string;
     Paginas : Integer;
     ISBN : integer;
end;

const nlivros = 10;

type meuArray array[1..nlivros] of livro;

e depois deves passar como parâmetro o meuArray para as funções e procedimentos

Eu não tenho aqui o Pascal, e já estou muito esquecido...mas acho que é assim

EDIT: tens uma opção para inserires código com o GeSHi, basta clicares no botão [inserir código] e por code=pascal.Assim o código fica mais legível.

Ass: bk@ero

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

type meuArray array[1..nlivros] of livro;

e depois deves passar como parâmetro o meuArray para as funções e procedimentos

segundo isto, pode usar o código original...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora