Описание процедур и функций

Procedure InitMenu; - процедура инициализации верхней строки меню.

function InitFile:boolean; - функция чтения данных из файла. Возвращает True, если файл прочитан успешно, false, если при попытке чтения произошла ошибка. Ошибки могут возникать либо при попытке открыть несуществующий файл, либо при попытке чтения файла, структура которого не соответствует требуемой.

procedure InitError; - процедура вывода сообщения об ошибке при чтении файла данных.

Procedure InitDialog; - ввод шаблона кроссворда и слов в режиме диалога

Function InitMenuUp:boolean; - функция вывода выпадающего меню ДАННЫЕ. Возвращает true, если входные данные были заданы, false в противном случае.

procedure pop(var top:ref; a:integer); - добавление в стек номеров использованных слов, top – указатель на вершину стека, a – номер слова.

function push(var top:ref):integer; - извлечение из стека номеров использованных слов, top – указатель на вершину стека. Функция возвращает номер последнего добавленного слова.

Procedure Test; - процедура проверки возможности создания кроссворда на основе заданного шаблона с использование заданного набора слов.

Procedure PrintError; - вывод сообщения о невозможности составить кроссворд.

Procedure PrintRez; - вывод кроссворда.

function testword:boolean; - проверка, можно ли вписать слова в шаблон,

возвращает true – если возможно, false в противном случае.

function newword(i:integer;l:integer):integer; - функция осуществляет выбор из списка слов не занятого слова подходящей длины, функция возвращает номер слова в списке, i - с какого по счету слова в списке начинать поиск, l - длина искомого слова.

Procedure Init; - процедура инициализации экрана, верхней строки меню и организации работы с меню.

procedure TestError; - процедура вывода сообщения об ошибке при попытке вызова процедуры нахождения варианта построения кроссворда при незаданных начальных условиях.

Разработка алгоритма

Общий алгоритм

5 .2 Частные алгоритмы

Алгоритм проверки возможности составления кроссворда

1. Инициализация массива варианта построения кроссворда (в каждую ячейку в поле ch заносим символ ‘#’, в поле numberWord – значение 0).

2. Подсчет количества слов определенной длины в шаблоне и в списке.

3. Если для заданной длины слов в списке меньше, чем слов в шаблоне, то кроссворд составить невозможно, иначе слов для составления кроссворда хватает.

4. Если слов хватает, то проверить возможность вписать слова в ячейки.

Дата добавления: 2015-12-08