br/>
Цей модуль містить п'ять процедур для роботи з набором даних. p align="justify"> Заголовок і описова частина даного модуля представлені нижче:
unit RabotaND; menumod;
{ Специфікація файлу }
Tip = (cvet, gherno_bel, perenosn);
Televizor = record
nazvanie: string;
razmer: integer;
sr_stoimist: real;
TipTelevizor: Tip;
end;
var
File1, Filekl, Filenov: File of Televizor;
FileName, Filenamekluch, filenamenov, FilenamenovND: string;
TVzap: Televizor;
n: integer;
otv1, punkt, Otv, tek, numb: byte;
otv2, k: string;
answ: char;
У модулі описана специфікація файлу і наступні змінні:
File1, Filekl, Filenov - Змінні файлового типу
FileName, Filenamekluch, filenamenov, FilenamenovND - Змінні, що містять імена файлів.
TVzap - Змінна типу запис
N - Змінна, яка використовується для позначення поточного елемента з НД.
Процедури, які містяться в модулі:
{Процедура для виведення поточного елемента} 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;
{Введення імені нового набору даних}
{Зв'язування файлової змінної з НД на диску}
{Відкриття файлу для запису}
{Введення кількості записів (kol)} i: = 1 to kol do
{Введення даних}
{Запис одного запису в НД} (File1, TVzap);;
{Закриття файлу}
{Зміна імені файлу};
{end procedure Sozdat_ND}
У процедуру з головної програми передається тільки ім'я старого набору даних. У головну програм...
