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

e просіходіт привласнення змінної До определнного значення (кольоровий, чорно-білий або переносний). Після чого просіходіт висновок елементів на екран. Наприкінці змінної, що містить номер поточного елемента, присвоюється значення останнього елемента і набір даних закривається. p align="justify"> Процедура для пошуку елемента щодо введення номеру

Poisk_Elem_ND;

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

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

{Запит на введення номера потрібного запису} ('Введіть номер потрібного запису'); (n);

{Пошук потрібної запису} (File1, n-1);

{Читання запису з файлу} (File1, TVzap);

{Присвоєння змінній k значення залежно від значеніея змінної перечислимого типу}

{Висновок шапки таблиці}

{Висновок елемента}

{Висновок нижньої межі таблиці}

{Закриття файлу}

{Прісовеніе потрібного номера поточному елементу}: = n +1;;

{end procedure Poisk_Elem_ND}

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

procedure Vivod_Tek;

{ Присвоєння виведеному номером номер поточного елемента}

numb: = n;

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

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

{ Пошук потрібної запису}

seek (File1, numb-1);

{ Читання запису з файлу}

{ Присвоєння змінній k значення залежно від значеніея змінної перечислимого типу}

{ Висновок шапки таблиці}

{ Висновок елемента}

{ Висновок нижньої межі таблиці}

{ Закриття файлу} (file1);;

У процедуру ...