Варіант-12

Дата добавления: 2015-07-23; просмотров: 553; Нарушение авторских прав

1. Створити текстовий файл. Визначити скільки рядків файлу мають довжину, більшу, рівну і меншу, чим задане значення k.

2. Дано файл цілих чисел. Створити файл дійсних чисел, компонентами якого будуть середнє арифметичне кожної п’ятірки підряд записаних чисел. Остання група може мати менше п’яти значень.

Лабораторна робота № 10

Типизовані файли

Мета: навчитись користуватися засобами мови програмування для збереження даних у типізованому файлі.

Теоретичний матеріал

Опис процедур та функцій для роботи з файлом подано у наступній таблиці:

Процедура/Функція	Опис
Assign(файлова змінна, ім'я файлу);	Встановити зв'язок між фізичним та логічним файлами. ім'я файлу - це константа, або ідентифікатор константи або змінної типу String, значенням яких має бути ім'я фізичного файлу, вказане відповідно до правил операційної системи. Наприклад, Assign(f, 'letter, txt');.
Reset(файлова змінна);	Відкрити існуючий файл. При відкриванні покажчик позиції вказує на початок файлу.
Rewrite(файлова змінна);	Створити і відкрити новий файл. Якщо файл із вказаним іменем існує, то він вилучається і на його місці створюється новий порожній файл. При відкриванні покажчик позиції вказує на початок файлу.
Close(файлова змінна);	Закрити файл. При закриванні покажчик позиції вказує на кінець файлу і відбувається записування до файлу ознаки кінця файлу.
Eof(файлова змінна): Boolean	Функція повертає значення True, якщо покажчик позиції вказує на кінець файлу або файл порожній; в протилежному випадку функція повертає значення False.
ChDir(S: String);	Змінити поточний каталог (папку).
MkDir(S: String);	Створити каталог (папку).
RmDir(S: String);	Вилучити порожній каталог (папку).
GetDir(D : Byte; var S: String);	Визначити повний шлях до поточного каталогу (папки). Змінній S надасться повний шлях до поточного каталогу (папки) для вказаного жорсткого диску D; змінна D може набувати значень: 0 - поточний диск, 1 – диск А:, 2 - диск В:, 3 - диск С: і т.д.
Erase(файлова змінна);	Вилучити закритий файл.
Rename(файлова змінна);	Перейменувати закритий файл.

<== предыдущая лекция	\|	следующая лекция ==>
Erase(f:file).	\|	Типизовані файли