n="justify"> {ініціалізація long}
{підсвічування першого поля меню}
{ініціалізація l}
{визначення коду натиснутою клавіші}
{реакція на натискання командних клавіш}
{промальовування поля меню в початковий колір}
{підсвічування наступного обраного поля меню} false
{end repeat};
{процедура відключення курсора} cursor_off;
{процедура включення курсору} cursor_on;
{процедура очищення екрана} stir;
{промальовування робочого вікна}
{ініціалізація полів меню}
{виклик процедури відключення курсора}
{висновок меню} long of
{виклик процедур у відповідності з обраним пунктом меню}
: begin
{очищення екрана і включення курсору}
{виклик процедури створення нд}
{очищення екрана і відключення курсора}
{висновок меню};
: begin
{очищення екрана і включення курсору}
{виклик процедури додавання елементів в кінець нд}
{очищення екрана і відключення курсора}
{висновок меню};
: begin
{очищення екрана}
{виклик процедури виведення нд}
{очищення екрана}
{висновок меню};
: begin
{включення курсору}
{виклик процедури пошуку елемента}
{відключення курсора};
: begin
{очищення екрана і включення курсору}
{виклик процедури переходу до роботи з іншим нд}
{очищення екрана і відключення курсора}
{висновок меню};
: begin
{очищення екрана і включення курсору}
{виклик процедури створення нд по ключовому полю}
{очищення екрана і відключення курсора}
{висновок меню};
: begin
{очищення екрана і включення курсору}
{виклик процедури додавання всіх ел-тів в іншій нд}
{очищення екрана і відключення курсора}
{висновок меню};; long=kolvo;
{end repeat};.
1.2 Опис модуля sozd.tpu
програмний модуль дані файл
У модулі sozd.tpu описана процедура sozdanienab і типи створюваного безлічі даних.
Описова частина модуля:
unit sozd; dopsredstva=(faxmodem, modem, fax, nety);=record: byte;: string;: longint;: integer;: dopsredstva;; sozdanie_nd;
Процедура sozdanienab створює новий набір даних.
Псевдокод процедури sozdanienab:
procedure s...
