Program A;

End.

Close(fx)

End;

Write(Fx,X)

Begin

Rewrite(Fx);

Begin

Assign(FX,’d:\1.dat’);

For I:=1 To 20 Do

Write ('?'); ReadLn(X);

Для чтения элементов файла с его начала следует открыть файл для чтения. Это делает процедура Reset (FV). В результате указатель устанавливается на начало файла. При этом вся информация в файле сохраняется. Схема выполнения процедуры:

До:

эл.0

эл.1

…..

эл.N

м.к.

­

RESET(FV);

После:

эл.0

эл.1

…..

эл.N

м.к.

­

Чтение из файла осуществляется процедурой READ (FV, V); где V — переменная того же типа, что и файл FV. Значение текущего элемента файла записывается в переменную v; указатель смещается к следующему элементу.

До:

эл.0

эл.1

…..

эл.К

эл.К+1

….

эл.N

м.к.

­

READ(FV,V);

После:

эл.0

эл.1

…..

эл.К

эл.К+1

….

эл.N

м.к.

­

Доступ к элементам файла может быть последовательным или прямым. В стандартном Паскале реализован только последовательный доступ.

Принцип последовательного доступа: для того чтобы прочитать n-ю запись файла, сначала нужно прочитать все предыдущие записи с 1-й по (n-1)-ю.

Пример 2. В переменной х получить 10-й элемент символьного файла Fx.

Var Fx: File Of char;

Дата добавления: 2013-12-13