|
Процедуры и функции модуля Level1 – доступ к секторам виртуального диска
INTERFACE
USES common;
PROCEDURE fromDisk(fn:STRING); {прочитать виртуальный диск}
PROCEDURE toDisk(fn:STRING); {сохранить виртуальный диск}
PROCEDURE putSector(n:INTEGER; s:mySector); {записать s в сектор с номером n}
FUNCTION getSector(n:INTEGER):mySector; {прочитать сектор с номером n}
Процедура FROMDISK
|
Содержание задачи |
чтение текстового файла в массив |
|
Уровень сложности |
средний |
|
Модуль |
Level1 |
|
Входные параметры |
fn: STRING – имя файла на реальном диске |
|
Выходные параметры |
нет |
|
Вызываемые процедуры (функции) |
нет |
|
Глобальные переменные и константы |
массив sectors; константы dsk_bps, dsk_ns |
|
Действия |
считывает из файла содержимое виртуального диска |
|
Проверки |
наличие файла на диске |
|
Комментарии |
считывает текстовой файл в массив sectorsпротивоположна процедуре toDisk |
Процедура TODISK
|
Содержание задачи |
запись массива в текстовой файл |
|
Уровень сложности |
средний |
|
Модуль |
Level1 |
|
Входные параметры |
fn: STRING – имя файла на реальном диске |
|
Выходные параметры |
нет |
|
Вызываемые процедуры (функции) |
нет |
|
Глобальные переменные и константы |
массив sectors; константа dsk_ns |
|
Действия |
записывает в файл содержимое виртуального диска |
|
Проверки |
ошибка открытия файла |
|
Комментарии |
записывает массив sectors в текстовой файл на дискепротивоположна процедуре fromDisk |
Процедура PUTSECTOR
|
Содержание задачи |
занести в массив значение по номеру элемента с проверкой корректности последнего |
|
Уровень сложности |
низкий |
|
Модуль |
Level1 |
|
Входные параметры |
n: integer – номер сектора; s:mySector – содержимое |
|
Выходные параметры |
нет |
|
Вызываемые процедуры (функции) |
нет |
|
Глобальные переменные и константы |
массив sectors; константа dsk_ns |
|
Действия |
сохраняет указанное содержимое в виртуальный сектор с заданным номером |
|
Проверки |
0 < n <= dsk_ns ( номер сектора положителен и не превосходит максимальный) |
|
Комментарии |
выводит сообщение в случае некорректного n; сохраняет заданное содержимое в массив sectorsпротивоположна функции getSector |
Функция
GETSECTOR|
Содержание задачи |
извлечь из массива значение по номеру элемента с проверкой корректности последнего |
|
Уровень сложности |
низкий |
|
Модуль |
Level1 |
|
Входные параметры |
n: integer – номер сектора |
|
Выходные параметры |
нет (только результат функции) |
|
Тип результата |
mySector |
|
Вызываемые процедуры (функции) |
нет |
|
Глобальные переменные и константы |
массив sectors; константа dsk_ns |
|
Действия |
возвращает содержимое виртуального сектора с заданным номером |
|
Проверки |
0 < n <= dsk_ns ( номер сектора положителен и не превосходит максимальный) |
|
Комментарии |
выводит сообщение в случае некорректного n; берет элемент массива sectorsпротивоположна процедуре putSector |
Текст программы
