Студопедия.Орг Главная | Случайная страница | Контакты | Мы поможем в написании вашей работы!  
 

Еоf (<ФЗ>) : boolean



Функція повертає значення true, якщо досягнутий кінець файлу або false у протилежному випадку.

Дуже зручно використовувати цю функцію при організації циклічного зчитування з файлу. Розглянемо приклад: заданий файл ‘c:\myfile.dat’, що містить непусту послідовність цілих чисел. Обрахувати суму цих чисел.

var

F: file of integer; {файл цілих чисел}

S: longint; {накопичувач суми}

x:integer; {проміжна змінна для зчитування компонентів файлу}

begin

{відкриття файлу для зчитування}

Assign (F, ‘c:\myfile.dat’);

Reset(F);

S:=0;

while not EOF (F) do

begin

read(F, x);

S:=S+x;

end;

Close (F); {закриття файлу}

Writeln (‘S=’, S:10);

end.

В наведеному прикладі на початку програми файлова змінна зв’язується з вказаним у задачі файлом на диску, який відкривається для зчитування. Тіло циклу while буде повторюватися доки не буде досягнуто кінець файлу. У циклі з файлу послідовно зчитується по одному компоненту та додаються до суми. По завершенні циклу значення суми виводиться на екран.

Стандартні процедури і функції для файлів прямого доступу

Seek(< ФЗ >, N)

Процедура переміщує файловий покажчик з поточної позиції на вказану компоненту з номером N (значення N типу longint).

Filepos (< ФЗ >):longint

Функція повертає номер компоненту файлу, на який встановлений файловий покажчик.





Дата публикования: 2014-11-03; Прочитано: 209 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!



studopedia.org - Студопедия.Орг - 2014-2024 год. Студопедия не является автором материалов, которые размещены. Но предоставляет возможность бесплатного использования (0.007 с)...