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

імені нового набору даних}

writeln ('Введіть ім'я нового набору даних:');

readln (FilenamenovND);

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

assign (File1, FilenamenovND);

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

rewrite (File1);

{ Введення кількості записів}

write ('Кількість записів:');

readln (kol);

numb: = 1;

for i: = 1 to kol do

begin

{ Введення даних}

write ('Назва телевізора:');

readln (TVzap.nazvanie);

write ('Розмір телевізора:');

readln (TVzap.razmer);

write ('Середня вартість:');

readln (TVzap.sr_stoimist);

write ('Тип телевізора (1: Кольоровий; 2: Чорно-білий; 3: Переносний):');

readln (otv1);

case otv1 of

1: TVzap.TipTelevizor: = cvet;

2: TVzap.TipTelevizor: = gherno_bel;

3: TVzap.TipTelevizor: = perenosn;

end;

numb: = numb +1;

n: = numb;

{ Запис одного запису в НД}

write (File1, TVzap);

end;

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

close (File1);

{ Зміна імені файлу}

Filename: = FilenamenovND;;

{end procedure Sozdat_ND}

Dobavit_ND;

numb: = n +1;

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

assign (File1, Filename);

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

reset (File1);

{ Пошук кінця файлу }

seek (File1, filesize (File1));

while Otv2 <> 'No' do

begin

{ Введення даних }

write ('На...