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

з головної програми передається ім'я набору даних і номер поточного елемента. Пошук і висновок елемента відбувається так само, як у процедурі для пошуку елемента щодо введення номеру procedure Poisk_Elem_ND. p align="justify"> 1.4 Модуль RabotaDR.tpu

Цей модуль містить три процедури, в яких відбувається обіг або перехід до роботи з іншим набором даних

Заголовок і описова частина даного модуля представлені нижче:

RabotaDR; RabotaND;

Цей модуль вимагає підключення описаного раніше модуля RabotaND, тому що в ньому описано большенство змінних, які використовуються в модулі RabotaDR. Ніяких власних змінних у модулі RabotaDR не описано. p align="justify"> У даному модулі знаходяться наступні процедури:

{Процедура для переходу до друому НД} Perehod_Drug_ND (var Filename: string ;);

{Процедура створення нового НД з усіх елементів із заданим значенням ключі-вого поля} Sozdat_ND_kl (var Filename: string; var n: integer);

{Процедура зберігання всіх елементів в іншому НД} Sohr_v_nov (var Filename: string; var n: integer);

Процедура для переходу до друому НД:

Perehod_Drug_ND; DifFilename: string;

{Висновок імені поточного набору даних} ('Ваш поточний набір даних -', Filename);

{Запит на виведення нової адреси НД} ('Введіть шлях до необхідного набору даних'); (DifFilename);

{Заміна імені старого набору даних на ім'я нового набору}: = DifFilename;

{Висновок імені поточного набору даних} ('Ваш новий набір даних -', filename);;

{end procedure Perehod_Drug_ND;}

Ця процедура дозволяє переходити від одного набору даних до другого. У процедуру з головної програми передається ім'я набору даних. У процедурі описана змінна, що містять ім'я файлу, до якого буде проводитися перехід. Спершу виводиться ім'я поточного набору даних. Потім з'являється запит на введення нового імені. Після чого зміною зі старим ім'ям присвоюється значення нового імені. Ця змінна, вже з новим ім'ям, передається назад в основну програму. p align="justify"> Процедура створення нового НД з усіх елементів із заданим значенням ключового поля:

Sozdat_ND_kl;

{Запит ключового поля} z: Tip; _tipa: byte;

{Зв'язування файлової змінної з НД на диску}

{Відкриття файлу для читання}

{Запит на введення імені файлу, який будуть збережені елементи з заданим ключовим полем}

{Зв'язування другий файлової змінної з другим НД на диску}

{Відкриття ...