Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Программирование на Pascal / Delphi / Основы программирования и алгоритмические языки [33].DOC
Скачиваний:
33
Добавлен:
02.05.2014
Размер:
434.18 Кб
Скачать

П.1.4. Описание программы и алгоритмов Описание главной программы

Сначала очищается экран, затем в цикле REPEAT - UNTIL выводится главное меню через обращение к функции MainMenu. Условие выхода из цикла - MainMenu = TRUE.

Алгоритм выполнения функции MainMenu

Эта функция реализует главное меню в программе. Передвигая курсор (стрелки ??) по строкам меню, выбираем необходимый режим работы. В начальном положении курсор находится в начале первой строки. Коррекция положения курсора при его перемещении вниз или вверх по строкам меню реализуется с помощью процедуры UpDown.

В бесконечном цикле REPEAT...UNTIL FALSE анализируется код нажатой клавиши (Ch), если он равен #32 (код клавиши пробел) или #13 (код клавиши ENTER), то в зависимости от того, на какой строке находится курсор (номер строки запоминается в переменной I, число выводимых строк меню равно 8), управление передается следующим процедурам, используя оператор CASE:

case i of

1: InputRecord; {Создать массив записей}

2: OutRecord(MaxElem); {Вывести данные на экран}

3: Zapros1; {Вычислить общее количество товаров за определенный год}

4: KeyRec; {Вывести содержимое записи по ключу}

5: AddRecord; {Добавить запись}

6: ChangeDel(true); {Изменить запись}

7: ChangeDel(false); {Удалить запись}

8: begin

Mainmenu := true;

exit;

end;

Если курсор находится на 8 строке и нажата клавиша ENTER или пробел, функция Mainmenu получает значение true, управление передается в основную программу и программа завершает свою работу.

Алгоритм выполнения процедурыUpDown (var Vari: integer; Im: byte)

Процедура реализует коррекцию положения курсора при его движении по строкам меню (стрелки ?? ). Через переменную Im в процедуру передается число выведенных строк на экран (в нашем случае 8), переменная VarI фиксирует строку, на которой находится курсор, - GotoXY (1,VarI).

В этой процедуре обрабатываются расширенные ASCII-коды клавиш (см. Прил. 4).

Если курсор движется вверх (т.е. нажимаем клавишу ? - код #72) и находится на первой строке (vari=1), то переменной vari присваивается значение im. Тем самым, курсор перемещается на последнюю строку экрана.

Иначе номер строки уменьшается на единицу и курсор передвигается вверх на одну строку.

Аналогично, если курсор находится в последней строке меню и движется вниз (код клавиши ? #80 и переменная vari равна Im), переменной vari присваивается значение 1 (курсор перемещается в первую строку меню).

Иначе значение переменной vari увеличивается на единицу (vari := vari+1) и курсор передвигается вниз.

Описание процедурTopT и EndT

Процедуры выводят верхнюю или нижнюю часть «шапки» базы данных, для чего используются стандартные операторы вывода. Рамка таблицы выводится с помощью символов псевдографики (см. Табл. П.6.3. «кодировка символов по стандарту ASCII» - [5]).

Описание процедурыInputFields(var Rec: RecType)

Процедура осуществляет ввод значения элементов полей записи Rec. Переменным Rec.naimt, Rec.stoimt, Rec.kolt, Rec.dmg.year, Rec.dmg.month, Rec.dmg.day присваиваются значения. Корректность вводимых значений обеспечивается следующими процедурами:

  • Procedure InputReal(Var R: Real; Width: Byte; Inv: String) контролирует ввод вещественных данных R (ширина поля Width) с проверкой на допустимый символ и со строкой приглашения Inv;

  • Procedure InputNumber(Var Number: Real; NumberMin, NumberMax: LongInt; Width: Byte; Inv: String) контролирует ввод целочисленных данных Number (ширина поля Width) с проверкой диапазона [NumberMin .. NumberMax] и со строкой приглашения Inv;

  • Procedure InputString(Var S: String; LenNaimt: byte; Inv: String) контролирует ввод строки символов S с проверкой количества введенных символов [1..LenNaimt] и со строкой приглашения Inv.

Все эти процедуры предварительно выводят максимальное количество возможных позиций для данного поля цветом Color на фоне Fon (процедура OutPutString).