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

disasterpiece

Ajuda para compreender programa

2 mensagens neste tópico

Preciso de ajuda para compreender o que faz o seguinte código:

program ficheiros_dados;

type registo=record

              nome : string[15];

              idade:integer;

            end;

var

  f:file of registo;

  aluno:registo;

  n:integer;

begin

  assign(f,'dados.dat');

  reset(f);

  Write('xpto:');

  readln(n);

  seek(f,n);

  read(f,aluno);

  writeln(aluno.nome);

  writeln(aluno.idade);

  close(f);

  readln;

end.

Estou um pouco esquecido de Pascal e apenas queria saber se alguém me podia explicar o que faz este programa. Obrigado pelo apoio que me possa vir a ser dado.  ;)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Assim de repente diria que não faz nada...

Abre um ficheiro, lê input do utilizador para pesquisar uma posição no ficheiro, escreve no ecrã duas linhas vazias e volta a pedir input ao utilizador antes de terminar...

Se queres saber em detalhe o que o programa faz, vê na documentação as funções que estão a ser usadas...

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