Реферат Практична обробка безлічі даних, що представляють собою масив покажчиків на записи

'Номер поточного елемента -' , n-1); (1,13); ('Зміст поточного елемента:'); (1,14);

tek: = n-1;

Vivod_Tek (FileName, tek); (2,2);

{Висновок меню} _Meny (mas, punkt);

textcolor (LightCyan);

{Виконання процедур залежно від обраного пункту} punkt of

: {Створення нового НД та його перегляд}

begin

Sozdat_ND (FileName, n);

Prosmotr_ND (FileName, n);

end;

: {Додавання нових елементів в кінець НД та його перегляд}

begin

Dobavit_ND (FileName, n);

Prosmotr_ND (FileName, n);

end;

: {Перегляд всіх елементів НД}

Prosmotr_ND (FileName, n);

: {Пошук елемента}

Poisk_Elem_ND (FileName, n);

: {Перехід до роботи з іншим НД та перегляд його вмісту}

begin

Perehod_Drug_ND (FileName);

Prosmotr_ND (FileName, n);

end;

: {Створення нового НД з усіх елементів із заданим значенням ключі-вого поля.}

begin

Sozdat_ND_kl (FileName, n);

Prosmotr_ND (FileName, n);

end;

: {Збереження всіх елементів в іншому НД}

Sohr_v_nov (FileName, n);; ('Для повернення натисніть Enter, для виходу натисніть Esc');

answ: = Readkey;

{Цикл виконується до того, як буде натиснуто ESC} answ = # 27;.

Лістинг модуля menumod:

menumod;

crt;

Massiv = array [1 .. 7] of string; mas: massiv;

My_Meny (Mas: Massiv; var punkt: byte);

My_Meny; x = 1; = 1;

k = 7; i, pred, Max_dlin: integer;: char;, y1: byte;

{Ініціалізація змінних}

; pred: = 0; max_dlin: = 0;

{визначення максимальної довжини рядка} i: = 1 to k dolength (Mas [i])> max_dlin then max_dlin: = length (Mas [i]);

{end if}

{end for}

{Доповнення всіх рядків до максимальної} i: = 1 to k dolength (Mas [i]) <> max_dlin do Mas [i]: = Mas [i] + '';

{end while}

{end for}

{Розрахунок координат X1 і Y1}: = max_dlin + x +3;: = k + y +3;

{Промальовування меню} (x, y, x1, y1); I: = 1 to k do (x, i);...