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

write (TVzap.razmer: 8, '?');

write (TVzap.sr_stoimist: 16:1, '?');

writeln (k, '?');

writeln (');

{ присвоєнням поточного номер останнього показаного елемента}

numb: = numb +1;

n: = numb;

end;

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

close (file1);;

Poisk_Elem_ND;

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

assign (File1, Filename);

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

reset (File1);

{ Запит на введення номера потрібного запису}

writeln ('Введіть номер потрібного запису');

readln (n);

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

seek (File1, n-1);

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

read (File1, TVzap);

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

case TVzap.tipTelevizor of

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

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

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

end;

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

writeln (');

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

writeln ( ');

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

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

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

write (TVzap.razmer: 8, '?');

write (TVzap.sr_stoimist: 16:1, '?');

writeln (k, '?');

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

writeln ( ');

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

close (file1);

{ Прісовеніе потрібного номера поточному елементу}

N: = n +1;;

{end procedure Poisk_Elem_ND}

...