Лабораторная работа: Разработка форматов хранения данных программы. Структурирование

Процедура Erase(F) . Файл F уничтожается. Процедура Erase применима только для закрытых файлов.

Функция Eof(F):boolean . Функция возвращает значение true, если достигнут конец файла; в противном случае выходное значение равно false.

Функция IOResult:word (Input-Output-Result). Возвращает условный признак последней операции ввода-вывода. Результат равен нулю, если операция ввода-вывода завершилась успешно.

Процедура Truncate(F) . Файл усекается по текущей позиции указателя. В эту позицию записывается признак eof.

Для выполнения операций ввода-вывода в текстовых файлах используются процедуры Read ,Readln ,Write ,Writeln .

Также для текстовых файлов могут использоваться три предописанные функции, неприменимые для файлов другого типа: Eoln , SeekEoln и SeekEof .

Функция Eoln(F):boolean возвращает значение true, если во входном потоке достигнут маркер конца строки eol.

Функция SeekEoln(F):boolean пропускает все пробелы и знаки табуляции до маркера конца строки eol или до первого значащего символа и возвращает значение true, если такой маркер обнаружен.

Функция SeekEof(F):boolean пропускает все пробелы, знаки табуляции и маркеры конца строки вплоть до маркера конца файла eof или до первого значащего символа и возвращает значение true, если такой маркер обнаружен.

Все компоненты типизированного файла, в отличие от текстового файла, имеют одну и ту же длину. Это позволяет программе определить местоположение любой компоненты файла по ее номеру и осуществить прямой доступ к этой компоненте. Компоненты типизированного файла нумеруются натуральным рядом чисел 0,1,2,3,...При открытии типизированного файла его указатель устанавливается на нулевую компоненту. После выполнения каждой операциичтения или записи указатель сдвигается на следующую компоненту.

Для операций чтения и записи в типизированном файле используются процедуры Read и Write (но не Readln,Writeln).

Для типизированных файлов определены также предописанные процедура Seek и функции FileSize ,FilePos .

Процедура Seek(F,k) перемещает указатель файла F на компоненту с номером k. Переменная k должна иметь тип longint.

Функция FileSize(F):longint возвращает текущий размер файла F (количество компонент файла).

Функция FilePos(F):longint возвращает номер текущей позиции файла F.

Нетипизированные файлы применяются главным образом для высокоскоростного обмена данными между диском и памятью. Для этих файлов вместо процедур Read и Write используются процедуры BlockRead и BlockWrite .

2. Исходя из условия задачи входные данные для программы:

а) Координаты точки центра окружности;

b) Длина радиуса окружности;

c) Координаты левой верхней и нижней правой точки прямоугольника, однозначно задающие его на плоскости.

Так как количество и тип данных чётко определён в качестве файлов для ввода исходных данных будем использовать типизированные файлы, компоненты которых имеют жесткую структуру и к ним возможен прямой доступ.

Для хранения параметров окружности создадим типизированный файл circle.dat, который будет состоять из массива составных компонент имеющих три параметра: координаты x и y центра окружности и R - радиус окружности. Тип компоненты определим как запись, потому что в записи можно объединить компоненты различных типов:

CircleType = record

x : integer;

y : integer;

R : word

end;

Координаты центра окружности x и y будут определены как целые числа, которые могут принимать положительное и отрицательное значение, поэтому для них выбран тип integer. Радиус окружности R не может быть отрицательным для него выбран тип word - целое без знака, пределы изменения 0 .. 65535.

Таким образом массив окружностей будет описываться: