Enter F1
В
F3
В
Схема 5 - Вибір режиму роботи
В
немає
В
Так
В
Вхід
Вниз
В
Схема 6 - Події після натискання Enter
3 січня
В
В
2
В
В
В
немає
В
Так
В
В В
Так
В В
немає
В
Схема 7 - Пошук
Так
Ні
В
Схема 8 - Допомога
В
Пошук наступного товару, схема 1000
br/>
Операції p> з товарами
В
В
Пересування
В
В В
PageDown PageUp
В
ESC
В
Схема 9 - Висновок товару на екран
Схема 10 - Висновок загальної кількості товарів
В
В В
Схема 11 - Знайти перший товар
В
Схема 12 - Додати код товару до списку
Так
В
немає
В
Схема 13 - Пошук наступного товару
В
Ні
В
Так
В
Схема 14 - Додавання нового товару
Ні
В
Так
В
Схема 15 - Видалення товару
В
За товаром За підрозділу
В
Схема 16 - Звіт по товарах
Додаток 6 Лістинг програми
program parfum;
uses crt;
type {Список в якому містяться код товарів}
integ = ^ int;
int = record
nomer: integer; {Код товару}
next: integ; {Посилання на наступний елемент}
end;
var Nach: integ; {Початок списку}
tek: integ; {Поточний елемент списку}
d: integ; {Змінна для роботи зі списком}
i: integer; {Лічильник}
ch: char; {Введення з клавіатури}
Rozd: string; {Обраний розділ}
nabor: integer; {Лічильник числа елементів меню}
men: array [1 .. 16] of integer; {Масив виведення елементи Головного меню}
strok, stolb: integer; {Пункти меню}
lom: integer; {Змінна для роботи з Головним меню}
vof: boolean; {Мінлива вказує що масив квітів вже заповнений}
Razdel: integer; {Мінлива яка вказує відкриту главу}
PodRazd: integer; {Мінлива яка вказує відкритий підрозділ}
MRazdel: integer; {Мінлива яка вказує відкрито розділ}
stek: text; {Файл в який додається код товару}
{KodStek: integer;}
ScetRP: integer; {Лічильник позицій у зазначеному розділі та підрозділі}
hod: integer; {Ходи вгору вниз у списку}
kolvo: integer; {Кількість елементів у списку}
Text1, Text2, Text3, Text4: string...
