Описание процедуры InputRecord

Процедура формирует массив записей mas[i]. Окончание ввода контролируется нажатием клавиш: ESC (код #27) и ENTER (код #13). При нажатии клавиши ESC формирование массива записей заканчивается. В случае, если массив записей пустой или число записей i превышает заданное ColRec, процедура OutMessageXY(X, Y: byte; Str1, Str2:string) выводит сообщение об этом Str1, Str2 на экран дисплея, начиная с позиции X, Y.

Описание процедуры OutRecord (MaxElem:integer)

Процедура реализует вывод значений элементов массива записей. В случае, если массив записей пустой или число записей превышает заданное, процедура OutMessageXY(x, y: byte; Str1, Str2:string) выводит сообщение об этом на экран дисплея.

Описание процедуры Zapros1

Процедура рассчитывает суммарное количество товара, поступившего за определенный год. В цикле по i, которое изменяется от 1 до MaxElem (количество элементов в массиве записей) проверяется значение переменной mas[i].dmg.year. Если оно равно заданному god, то определяется суммарное значение количества поступившего товара, которое запоминается в переменной Sum. Строки базы данных, соответствующие нужному году, выводятся на экран. В аномальных случаях через процедуру OutMessageXY(x, y: byte; Str1, Str2:string) выводятся аварийные сообщения.

Не нашли, что искали? Воспользуйтесь поиском: