Реферат Основи алгоритмізації та програмування

Вік'); ();; (list: PToy); list <> nil do ('Назва:', list ^. Name); ('Ціна:', list ^. Price); ('Вік : від ', list ^. MinAge,' до ', list ^. MaxAge); (' Кількість: ', list ^. KolVo);;: = list ^. next;;; (list: RToy); ('Назва:', list. Name); ('Ціна:', list. Price); ('Вік: від', list. MinAge, 'до', list. MaxAge ); ('Кількість:', list. KolVo);;;

// Підготовка початкової бази даних (toy); (toy2); (toy ^, 'Лялька', 100, 3, 4,5); (toy2 ^, 'Спайдермен', 150, 5 , 14,12); (toy2 ^, toy); (toy2 ^, 'Плюшевиймедведь', 120, 3, 5,8); (toy2 ^, toy); (toy2 ^, 'Радіоуправляемаямашінка', 1500, 12, 18 , 3); (toy2 ^, toy);; (mIndex); mIndex of

:; ('Введіть вартість і вікові межі'); (x, a, b);

// Іграшки для дітей від 3х до 5-ти років: = posByAge (toy, 3,5); ('Іграшки, які підходять дітям у віці від 3 до 5-ти років:'); toy2 <> nil do ('', toy2 ^. Name);: = toy2 ^. next;;

// Найдорожча іграшка ('Самаядорогаяігрушка:', mostExpensive (toy));

// іграшки, які за вартістю не перевищують Х рублів і підходять дитині віком від А до В лет.: = posByAge (toy, a, b);: =''; toy2 <> nil dotoy2 ^. price <= X then: = s + toy2 ^. Name + chr (13);: = toy2 ^. next;; ('Іграшки, які за вартістю не перевищують', x, 'рублів і підходять дитині віком від', a, 'до', b, 'років:'); length (s)> 0 then (' ', s) (' Відсутні ');;

: ('Введітепуть'); (s), not MakeNewDBFile (s, toy) then ('При запису нової бази даних відбулася помилка') ('База даних успішно створена');;

: ('Введітепуть'); (s); (s, toy) then (toy) ('При читанні бази даних відбулася помилка');;

: ('Введітепуть'); (s); (s, toy);;

: ('Введіть назву іграшки'); (s); ('Введіть вартість іграшки'); (X); ('Введіть вікові межі'); (A, B); ('Введіть кількість іграшок '); (kolvo), (' Введіть номер '); (N), (toy2), (toy2), (toy2 ^, s, x, a, b, kolvo), (toy2 ^, n, toy );;

: ('Введітеномер'); (N); (N, toy);;

: ('Іскатьпо:'); (0); (SMIndex); of

: ('Введітеназваніе'); (s);: = posToy (toy, s);;

: ('Введітецену'); (x);: = posByPrice (toy, x);;

: ('Введітеколічество'); (KolVo);: = posByKolVo (toy, KolVo);;

: ('Введіть вікові межі'); (A, B);: = posByAge (toy, a, b);;; (toy2);;

: ('Сортувати за:'); (1);; (smindex); of

: insertsortbyname (toy, toy);

: insertsortbyprice (toy, toy);