у з процедури передається ім'я нового набору даних і номер поточного елемента. p align="justify"> У процедурі створюється і відкривається для запису новий набір даних, потім у нього вводиться завдання кількості записів. Після створення НД він закривається, а поточним елементом стає останній введений елемент. p align="justify"> Процедура додавання елемента в кінець набору даних:
Dobavit_ND;: = n +1;
{Зв'язування файлової змінної з НД на диску}
{Відкриття файлу для читання}
{Пошук кінця файлу}
{Цикл для запису даних, який буде виконаються поки користувач не введе В«NoВ»} Otv2 <> 'No' do
{Введення даних}
{Запис одного запису в НД} (File1, TVzap);
{Запит на закінчення заповнення} ('Продовжити заповнення? (Yes No)'); (Otv2);;
{Присвоєння номера поточного елемента}: = numb;
{Закриття файлу};
{end procedure Dobavit_ND}
У процедуру з головної програми передається ім'я набору даних. У головну програму з процедури передається номер поточного елемента. p align="justify"> У процедурі відбувається відкриття набору даних, потім перебування його кінця стандартною процедурою seek, після чого відбувається запис елементів в кінець НД. Після кожного записаного елемента виводиться запит на закінчення запису. p align="justify"> Процедура для просмотру набору даних:
Prosmotr_ND;
{Зв'язування файлової змінної з НД на диску} (File1, Filename);
{Відкриття файлу для читання} (File1);
{Висновок імені поточного набору даних}
{Висновок шапки таблиці}
{Поки не закінчиться файл - висновок елементів у таблицю} not eof (File1) do
{читання одного запису з файлу} (File1, TVzap);
{Вибір рядка залежно від значення перечислимого типу} TVzap.tipTelevizor of: k: = 'Кольоровий'; _bel: k: = 'Чорно-білий';: k: = 'Переносний';;
{Висновок вмісту запису} ('?',
{Висновок нижньої межі таблиці}
{Присвоєння поточного номер останнього показаного елемента};
{Закриття файлу} (file1);;
У процедуру з головної програми передається ім'я набору даних. У головну програму з процедури передається номер поточного елемента. Після відкриття набору даних процедура виводить його ім'я, потім шапку таблиці. Следуюющіе дії виконуються в циклі, котороий буде виконаються поки не закінчиться даний набір даних. Залежно від значення змінної перечислимого типу в полі tipTelevizor оператором cas...
