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

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

{end procedure Perehod_Drug_ND;}

Sozdat_ND_kl;

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

{Зв'язування файлової змінної з НД на диску} (File1, Filename);

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

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

{Зв'язування файлової змінної з НД на диску} (Filekl, filenamekluch);

{Відкриття файлу для запису} (Filekl);

{Запит на значення ключового поля} ('Вибіріте тип телевізора (1: Кольоровий; 2: Чорно-білий; 3: Переносний ;)'); (vibor_tipa);

{Вибір значення перечислимого типу в залежності від обраного користувачем типу} vibor_tipa of

: z: = cvet;

: z: = gherno_bel;

3: z: = perenosn;;

{Ще не досягнуто кінець файлу, пошук} not eof (file1) do

{Читання одного запису} (File1, TVzap);

{Якщо вміст ключового поля збігається з потрібним} TVzap.TipTelevizor = z then

{Запис запису в новий файл} (Filekl, TVzap);;

{Закриття файлів} (file1); (filekl);: = filenamekluch;: = 1;;

Sohr_v_nov;

{Запит ключового поля}

{Зв'язування файлової змінної з НД на диску} (File1, Filename);

{Відкриття файлу для читання} (File1); ('Ваш поточний НД -', Filename);

{Запит імені другого НД} ('Введіть ім'я НД, в який потрібно зробити копіювання:'); (filenamenov);

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

{Відкриття другого файлу} (File2);

{Перехід в кінець другого файлу} (File2, filesize (File2));

{Поки недосягнутого кінець файлу} not eof (file1) do

{Читання з першого файлу} (File1, TVzap);

{Запис у другій файл} (File2, TVzap);;

{Закриття двох файлів} (file1); (File2);: = 2;: = filenamenov;;.