Ficheiros de Entrada em Pascal “Standard”:

Ficheiros de Entrada em Pascal “Standard”:

Problema:

O ficheiro numeros contem uma lista de números reais, um

por cada linha, dos quais pretendemos calcular a média.

Programa:

program

media (numeros, output);

var

numeros : text;

n : integer;

x, soma : real;

begin

reset(numeros);

n:= 0;

soma:= 0;

while not

eof(numeros) do

begin

readln(numeros, x);

n:= n + 1;

soma:= soma + x

end;

writeln('Média dos números = ', soma/n)

end.

O Ficheiro números foi indicado na Cabeça do Programa e

declarado como Variável do Tipo text.

A Instrução reset( ) abre o Ficheiro para Modo de Leitura.

A Função eof( ), de argumento do tipo text e resultado do tipo

boolean, é inicializada a false pelo reset( ) do Ficheiro e só se
torna true no Fim do Ficheiro.

A Instrução de Leitura indica o Ficheiro de onde os dados são lidos.

Reflexão: 
Consegui perceber como se abre um ficheiro e como se fecha, também consegui perceber a função eof quando é utilizada.