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

mr.oculus

o que é " EOF"

4 mensagens neste tópico

estava olhando uns tutoriais e tentando entender os programas e me deparei com esse exemplo ai.

O que é um EOF?

program sequencial;

type
endereco = record

                  rua : string[40];
                  numero : integer;
                  CEP : real; end;

cadastro = record

                  nome : string[30];
                  ender : endereco;
                  CPF: real;
                  Sexo : char;
                  nascimento : real;
                  rg : real; end;

arqcad = file of cadastro;

var

      arq_in, arq_out : arqcad;
      reg: cadastro; 

begin

      assign(arq_out,'sample.dat'); {associando nome interno com nome externo}
      rewrite(arq_out); {abrindo arquivo para gravação}
      write('Nome: ');
      readln(reg.nome);
      while (reg.nome <> 'fim') do
            begin
                  write('Rua: ');
                  readln(reg.ender.rua);
                  write('Numero: ');
                  readln(reg.ender.numero);
                  write('CEP: ');
                  readln(reg.ender.CEP);
                  write('CPF: ');
                  readln(reg.CPF);
                  write('Sexo(M/F): ');
                  readln(reg.Sexo);
                  write('Data de Nascimento(dd/mm/aaaa): ');
                  readln(reg.nascimento);
                  write('RG: ');
                  readln(reg.rg);
                  write(arq_out,reg); {grava registro após o último registro do arquivo}
                  readln(reg.nome); end; close(arq_out);
      assign(arq_in,'sample.dat'); {associando nome interno com nome externo}
      reset(arq_in); {abrindo arquivo para leitura}
      read(arq_in,reg);
      while (not EOF(arq_in)) do
            begin
                  write(reg.ender,rua,' ');
                  write(reg.ender.numero,' ');
                  write(reg.ender.CEP,' ');
                  write(reg.CPF,' ');
                  write(reg.Sexo,' ');
                  write(reg.nascimento,' ');
                  writeln(reg.rg,' '); end; writeln('O número de registros do arquivo é: ',filesize(arq_in)); 

end.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Mais precisamente umq constante que significa o fim de um ficheiro.

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