n="justify"> {Proverka na vihod za granicy menu};
# 13 {Enter}: i:=poz;
# 27: halt ;;
{end case vibor of}
{Призначення кольору тексту і фону поточного рядка}
{Висновок поточного пункту меню} i=poz ;;
1.3 Опис модуля funkcii.tpu
У модулі funkcii.tpu описані процедури які реалізують запити, і типи необхідні для роботи з безліччю даних.
Описова частина модуля:
unit funkcii; crt;=(Gosudarst, akcionern, chastnii);=record: string [20] ;: longint ;: real ;: Vid ;;=array [1..30] of bank ; Sozdanie (var mas: F; var KolvoElm: integer); DobavVkon (var mas: F; var KolvoElm: integer); Porsmotr (mas: F; KolvoElm: integer); Poisk (mas: F; KolvoElm: integer); Perehod (var mas: F; var KolvoElm: integer); UdalenieOtVibran (var mas: F; var KolvoElm: integer); DobavVfail (mas: F; KolvoElm: integer);
Процедура Sozdanie (var mas: F; var KolvoElm: integer) створює новий масив даних.
Формальними параметрами цієї процедури є масив з даними (mas) типом (F), описаним в розділі типів і кількістю елементів у масиві (KolvoElm).
Псевдокод процедури Sozdanie:
: integer;: char;
{Призначення кольору тексту і фону}:=0;:=1; i=1 do
{Підрахунок кількості елементів};
{Введення нового елемента}
{Запит на введення ще елемента} ;;;
Процедура DobavVkon (var mas: F; var KolvoElm: integer) додає записи в кінець масиву, кількість записів коригує користувач. Формальними параметрами цієї процедури є масив з даними (mas) типом (F), описаним в розділі типів і кількістю елементів у масиві (KolvoElm).
Псевдокод процедури DobavVkon:
var: integer;
{Призначення кольору тексту і фону}
{прирощення лічильника кількості елементів}
{Введення Назви предмета}
{Введення номера курсу}
{Введення чавсов на рік}
{Запит на введення ще одного предмета} (i); i=2 ;;
Процедура Porsmotr (mas: F; KolvoElm: integer) виводить масив записів у вигляді таблиці. Формальними параметрами цієї процедури є масив з даними (mas) типом (F), описаним в розділі типів і кількістю елементів у масиві (KolvoElm).
Псевдокод процедури Porsmotr:
, k, j: integer;, x: longint;: char;
{Призначення кольору тексту і фону}
{висновок шапки таблиці} i:=1 to KolvoElm do
{Висновок першого стовпчика}
{додаток пробілами}
{Висновок другого стовпчика}
{Підрахунок кількості символів в числі} (k);:=x div 10;:=z; (x lt; 10) and (x lt; gt; 0) then (k);:=0 ;; x=0;
{додаток пробілами}
{Висновок третій стовпчика}
{Підрахунок кількості символів в числі}
{додаток пробілами}
{Висновок четвертий стовпчика}
;
{end for i:=1 ..}
{Висновок закінчення таблиці};
Процедура Poisk (mas: F; KolvoElm: integer) виводить елемент по введеному номеру. Формальними параметрами цієї процедури є масив з даними (mas) типом (F), описаним в розділі типів і кількістю елементів у масиві (KolvoElm).
Псевдокод процедури Poisk:
var, k, j: integer;, x: longint;: char;
{Призначення кольору тексту і фону}
{висновок шапки таблиці}
{Запит на введення елемента}
{Висновок першого стовпчика}
{додаток пробілами}
{Висновок другого стовпчика}
{Підрахунок кількості символів в числі} (k);:=x div 10;:=z; (x lt; 10) and (x lt; gt; 0) then (k);:=0 ;; x=0;
{додаток пробілами}
{Висновок третій стовпчика}
{Підрахунок кількості символів в числі}
{додаток пробілами}
{Висновок четвертий стовпчика}
{Висновок закінчення таблиці}
;
Процедура perehod (var mas: F; var KolvoElm: integer) Поміщає новий символ після обраного. Форм...