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

(Mas [i]);;

{end for}: = 1; (x, 1); (DarkGray); (0);

{Підсвічування першого поля меню} (Blue); (15); (Mas [1]);: = punkt;: = Readkey; Otv = # 0 then Otv: = Readkey;

{end If}

{Реакція на натиснення клавіш} Otv of

{Натискання клавіші esc}

# 27: begin

punkt: = 0; (0);

{Натискання клавіші enter}

# 13: begin (1, 1, 80, 25); (black); (10);;;;

{Натискання клавіші вниз}

# 80: If punkt

{end If}

{Натискання клавіші ввверх}

# 72: If punkt> 1 then punkt: = punkt-1punkt: = k;

{end If};

{Промальовування поля меню в результат-ний колір} (x, pred); (DarkGray); (yellow); (Mas [pred]);

{Підсвічування наступного обраного поля меню} (x, punkt); (Blue); (15); (Mas [punkt]); False

{end Repeat};.

Лістинг модуля RabotaND:

unit RabotaND;

menumod;

{ Специфікація файлу}

Tip = (cvet, gherno_bel, perenosn);

Televizor = record

nazvanie: string;

razmer: integer;

sr_stoimist: real;

TipTelevizor: Tip;

end;

var

File1, Filekl, File2: File of Televizor;

FileName, Filenamekluch, filenamenov, FilenamenovND: string;

TVzap: Televizor;

n: integer;

otv1, punkt, Otv, tek, numb: byte;

otv2, k: string;

answ: char;

{ Процедура для виведення поточного елемента} Vivod_Tek (var Filename: string; n: integer);

{ Процедура створення нового набору даних} Sozdat_ND (var Filename: string; var n: integer);

{ Процедура додавання елемента в кінець набору даних} Dobavit_ND (var Filename: string; var n: integer);

{ Процедура для просмотру набору даних} Prosmotr_ND (var Filename: string; var n: integer);

{ Процедура для пошуку елемента щодо введення номеру} Poisk_Elem_ND (var Filename: string; var n: integer);

Sozdat_ND; i, kol: integer;

{ Введення ...