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

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

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;

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

write (File1, TVzap);

writeln ('Продовжити заповнення? (Yes No)');

readln (Otv2);

end;

n: = numb;

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

close (File1);;

{end procedure Dobavit_ND}

Prosmotr_ND;

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

assign (File1, Filename);

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

reset (File1);

{ Висновок імені поточного набору даних}

writeln ('Ваш набір даних:', Filename);

numb: = 1;

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

writeln (' writeln ('? #? Назва? Розмір? Ср.стоімость? Тип?');

writeln ( ');

{ Поки не закінчиться файл - висновок елементів у таблицю}

while not eof (File1) do

begin

{ читання одного запису з файлу}

Read (File1, TVzap);

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

case TVzap.tipTelevizor of

cvet: k: = 'Кольоровий';

gherno_bel: k: = 'Чорно-білий';

perenosn: k: = 'Переносний';

end;

{ Висновок вмісту запису}

write ('?', numb: 5, '?');

write (TVzap.nazvanie: 18, '?');

...