Przykłady

Program Przykl_1, który tworzy na dyskietce zdefiniowany plik o

nazwie plik1.dan z zapisanymi w nim pięcioma liczbami całkowitymi.

PROGRAM Przykl_1;

VAR

f :FILE OF integer;

LiczbaWpisywanaDoPliku :integer;

Licznik :byte;

BEGIN

ASSIGN(f,’A:plik1.dan’);

REWRITE(f);

FOR Licznik:=1 TO 5 DO

BEGIN

WRITE(‘Proszę

podac liczbe calkowita: ‘);

READ(LiczbaWpisywanaDoPliku);

WRITE(f, LiczbaWpisywanaDoPliku);

END;

CLOSE(f);

END.

Odczytu zawartości pliku plik1.dan dokonuje program Przykl_2:

PROGRAM Przykl_2;

USES

Crt;

VAR

f :FILE OF integer;

liczba :integer;

BEGIN

ClrScr;

ASSIGN(f,’b:plik1.dan’);

RESET(f);

Write(‘W pliku zapisane sa nastepujace liczby: ‘);

WHILE NOT EOF(f) DO

BEGIN

READ(f,liczba);

Write(liczba);

END;

CLOSE(f);

READLN;

END.