Реферат Обробка набору даних, представленого у вигляді файлу

justify"> {реакція на натискання Команді клавіш};

{end case key of}

{ініціалізація l} a:=m to m +24 do

{виведення рядків у відповідності з натиснутою клавішею} key=# 27;

{end repeat}

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

1.5 Опис модуля poisk.tpu

У модулі poisk.tpu описана процедура poiskel і типи, необхідні для роботи з безліччю даних.

Описова частина модуля:

poisk; crt; dopsredstva=(faxmodem, modem, fax, nety);=record: byte;: string;: longint;: integer;: dopsredstva;; poiskel (imya_faila: string);

Процедура poiskel забезпечує пошук в наборі даних пошук елемента за номером і висновок цього елемента разом з головним меню. У цю процедуру передається змінна name (ім'я файлу).

Псевдокод процедури poiskel:

poiskel; fail: file of zapis;, i: byte;, nomstr, oplatastr: string;: zapis;

{промальовування робочого вікна}

{введення номера елемента}

{зв'язування файлу з нд}

{відкриття файлу}

{знаходження максимального номери і перевірка введеного номера}

{установка покажчика на початок файлу}

{читання з файлу}

{переклад даних з файлу в строкове представлення} zap.nom=n then

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

{end if} eof (fail);

{end repeat}

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

1.6 Опис модуля perehod.tpu

У модулі perehod.tpu описана процедура perehodnab.

Описова частина модуля:

perehod; perehodnab (var name: string);

Процедура perehodnab виконує перехід до роботи з іншим набором даних. З цієї процедури в головну передається змінна name (ім'я файлу).

Псевдокод процедури perehodnab:

perehodnab; fail: file;

{введення імені файлу}

{зв'язування файлу з нд}

{перевірка введення виводу};

1.7 Опис модуля udalenie.tpu

У модулі udalenie.tpu описана процедура udelenieel.

Описова частина модуля:

sozd_key; crt, vivod; x=1; y=2; kol=4; dopsredstva=(faxmodem, modem, fax, nety);=record: byte;: string;: longint;: integer;: dopsredstva;; udalenieel (name: string; nom: integer);

Процедура udelenieel видаляє дані починаючи від текущуго номера. У цю процедуру передається змінна name (ім'я файлу).

Псевдокод процедури udalenieel:

udalenieel (name: string; nom: integer);

{відкриття файлу}

{видалення файлу};.

1.8 Опис модуля sredmaxmin.tpu:

У модулі sredmaxmin.tpu описа...