Работа с типизированными файлами последовательного доступа

Цель: научиться работать с файлами в программе Turbo Pascal.

Теоретические сведения:

Файловый тип переменной — это структурированный тип, представляющий собой совокупность однотипных элементов, количество которых заранее не определено.

Структура описания файловой переменной:

Var <имя переменной>: File Of <тип элемента>;

где <тип элемента> может быть любым, кроме файлового.

Для того чтобы начать запись в файл, его следует открыть для записи. Это обеспечивает процедура Rewrite (FV); где FV — имя файловой переменной. При этом указатель устанавливается на начало файла. Если в файле есть информация, то она исчезает.

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

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

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

Для организации связи между файловой переменной и внешним файлом в Турбо Паскале используется процедура назначения: Assign (<имя файловой переменной>, <внешней файл>);

Здесь <внешней файла> — строковая величина;

Работа с файлом в программе завершается его закрытием с помощью процедуры

Close (<имя файловой, переменной>).

Для определения размера файла используется функция: FileSize (<имя файловой переменной>);

Порядок выполнения работы:

1) Запустите программу Turbo Pascal.

2) Составить программу, которая создает файл, состоящий из N значений целого типа. Прочитать файл и вывести только четные элементы. Откомпилируйте программу. Проверьте правильность решения задачи.

3) Сформировать файл F, компонентами которого являются целые числа. Записать в файл C все четные числа файла F, а в файл N - все нечетные. Порядок следования чисел сохраняется. Откомпилируйте программу. Проверьте правильность решения задачи.

4) Заполнить файл последовательного доступа N действительными числами, полученными с помощью датчика случайных чисел. Найти максимальный элемент этого файла. Откомпилируйте программу. Проверьте правильность решения задачи.

5) Записать в файл f последовательного доступа N целых чисел. Получить в другом файле последовательного доступа все компоненты файла f, кроме тех, которые кратны K. Откомпилируйте программу. Проверьте правильность решения задачи.

6) Запишите полученные результаты в тетрадь. Оформите отчет о проделанной работе, который должен содержать тему, цель работы, формулировки задач с решениями.

7) Выйдите из программы Turbo Pascal.

Лабораторная работа № 16