="Знайти елемент за номером»; [5]:=«Перейти до роботи з іншим НД»; [6]:=« Видалення елементів, починаючи від поточного »; [7]: =« Перегляд елементів і обчислення середнього, мінімуму і максимуму »; [8]:="Вихід" ;; _off; (mas, x, y, kolvo, long) ; long of
: begin; _on;;; _off; (mas, x, y, kolvo, long);;
: begin; _on; (name);; _off; (mas, x, y, kolvo, long);;
: begin; (name);; (mas, x, y, kolvo, long);;
: begin_on; (name); _off;;
: begin; _on; (name);; _off; (mas, x, y, kolvo, long);;
: begin; _on; (name, nom);; _off; (mas, x, y, kolvo, long);;
: begin; _on; (name);; _off; (mas, x, y, kolvo, long);;;
{end case} long=kolvo;
{end repeat}.
Текст модуля sozd.tpu:
sozd; dopsredstva=(faxmodem, modem, fax, nety);=record: byte;: string;: longint;: integer;: dopsredstva;; sozdanienab; sozdanienab; fail: file of zapis;: zapis;, n, tg: integer;: string; («введіть ім'я файлу»); (name); (fail, name); (fail); («введіть кількість елементів»); (n) ; i:=1 to n do («введіть прізвище»); ??(zap.familiya); («введіть оплату»); (zap.oplata); («введіть номер»); (zap.nomerATS); («виберіть додатковий засіб»); («1 - факс-модем»); («2 - модем»); («3 - факс»); («4 - нету»); (tg) ; (tg <1) or (tg> 4) then («помилка, введіть заново»); (tg>=1) and (tg <= 4);
{end repeat} tg of
: zap.sredstva:=faxmodem;
: zap.sredstva:=modem;
: zap.sredstva:=fax;
: zap.sredstva:=nety;;
{end case}. nom:=i; (fail, zap);;
{end for} (fail);;;.
Текст модуля dobavlenie.tpu:
unit dobavlenie; vivod; dopsredstva=(faxmodem, modem, fax, nety);=record: byte;: string;: longint;: integer;: dopsredstva;; dobavleniek (name: string); dobavleniek; fail: file of zapis;: zapis;, n, tg, max: integer;, oplatastr: string; (fail, name); (fail); (fail, zap); zap.nom> max then:=zap . nom; eof (fail);
{end repeat} (fail, max); («введіть кількість додаються елементів»); (n); i:=max +1 to n + max do («введіть прізвище») ; (zap.familiya); («введіть оплату на місяць»); (zap.oplata); («введіть номер»); (zap.nomerATS); («виберіть додаткові кошти»); («1- факс-модем »); (« 2 - модем »); (« 3 - факс »); (« 4 - відсутня »); (tg); (tg <1) or (tg> 4) then («помилка, введіть заново»); (tg>=1) and (tg <= 4);
{end repeat} tg of
: zap.sredstva:=faxmodem;
: zap.sredstva:=modem;
: zap.sredstva:=fax;
: zap.sredstva:=nety;;
{end case}. nom:=i; (fail, zap);;
{end for} (name); (fail);;.
Текст модуля vivod.tpu:
unit vivod; crt; dopsredstva=(faxmodem, modem, fax, nety);=record: byte;: string;: longint;: integer;: dopsredstva;; vivodnab (name: string); vivodnab; stroka: array [1 .. 50] of string [80];: integer;: zapis;, oplatastr, nomerATSstr: string;: file of zapis;, m, a, l: integer;: char; (fail, name); (fail);:=3; [1]:=«???...
