p>
: insertsortbykolvo (toy, toy);;;
: ('Список всіх іграшок:'); (toy);;
: break;; false;.
Додатковий модуль
unitUShop; = ^ RToy; = record: String;// Названіеігрушкі: Real;// Ценаігрушкі: Integer;// Наіменованіеігрушкі, MaxAge: Integer;// Возрастниеграніци: PToy;;
// Створює початковий елемент списку (var L: PToy);
// Ставить елемент в початок списку (x1: RToy; varlist: PToy);
// Вставляє елемент х1 на місце pos в списку list
// Нумерацияэлементовсединицыins (x1: RToy; pos: Integer; varlist: PToy);
// Із списку list отримати елемент з номером num (list: PToy; num: integer): PToy;
// Видалити з списку list елемент з номером posdel (pos: Integer; varlist: PToy);
// Перевантажені процедури ініціалізації іграшки (var R: RToy); (var R: RToy; n: String; p, min, max, kol: Integer);
// Функцііпоіскаігрушкі (U: PToy; name: String): Ptoy;// поіменного (U: PToy; min, max: Integer): PToy;// Повозрасту (U: PToy; p: Integer): PToy;// поценнее
// Поискименисамойдорогойигрушки (u: PToy): String;
// Создатьновуюбазуданних (Dir: String; U: Ptoy): Boolean;
// СчітатьспісокізБД (Dir: String; var u: PToy): Boolean;
// Сохранітьстеквбазуданних (Dir: String; u: PToy); (var p: PToy; f: PToy); (var p: PToy; f: PToy); (var p: PToy; f : PToy); disposing (var u: PToy); (u: PToy): integer; (var R: RToy);. Name: = 'Toy';. Price: = 0;. MinAge: = 0;. MaxAge: = 100;. KolVo: = 0;; (var L: PToy); (L); ^. next: = NIL; (l ^);; (x1: RToy; varlist: PToy);: PToy; (u);. next: = nil; ^: = x1; ^. next: = list;: = u;; (var R: RToy; n: String; p, min, max, kol: Integer);. Name: = n;. Price: = p;. MinAge: = min;. MaxAge: = max;. KolVo: = kol;; (list: PToy; num: integer): PToy;: PToy;: integer; (u);: = list; i: = 2 to num do: = u ^. next;;: = u;; INS (x1: RToy; pos: Integer; varlist: PToy);, x: PToy; = +1 then (x1, list),;, (u), (x),: = GetByNumber (list, pos-1); ^: = x1; ^. next: = u ^. next; ^. next: = x;; del (pos: Integer; varlist: PToy); = 1 then: = list ^. next (list, pos-1) ^. next: = GetByNumber (list, pos +1);; (U: PToy; name: String): Ptoy;: PToy; (res);: = nil; u <> nil do (lowercase (name), lowercase ( u ^. Name))> 0 then (u ^, res);: = u ^. next;;: = res;; (U: PToy; min, max: Integer): PToy;: PToy; (res);: = nil; u <> nil do (u ^. MinAge <= min) and ( u ^. MaxAge> = max) then (u ^, res);: = u ^. next;;: = res;; (U: PToy; p: Integer): PToy;: PToy; (res);: = nil; u <> nil do (u ^. Price = p) then (u ^, res);: = u ^. next;;: = res;; (U: PToy; p: Integer): PToy;: PToy; (res);: = nil; u <> nil do (u ^. KolVo = p) then (u ^, res);: = ...
