u ^. next;;: = res;; (u: PToy): String;: Real;: =-maxint; u <> nil do ^. Price> max then: = u ^. Price;: = u ^. Name;;: = u ^. next;;; (Dir: String; U: Ptoy): Boolean;: file of RToy; not CanCreateFile (dir) then: = False;;; (f1, Dir); (f1); (f1);: = true ;; disposing (var u: PToy);: ptoy; (p); not (u ^. next = nil) do: = u ^. next; (u);: = p;; (p);: = nil;; reverse (var list: PToy);: Ptoy; (list ^, u); ^. next: = nil;: = list ^. next; list <> nil do (list ^, u),: = list ^. next;;: = u;; (Dir: String; var u: PToy): Boolean;: Rtoy;: file of RToy; not FileExists (dir) then: = False;;; (u); (f1, Dir) ; (f1); not eof (f1) do (f1, r); (r, u);; (u);: = true; (f1);; (Dir: String; u: PToy);: file of RToy; (f1, Dir); (f1); not (u = nil) do (f1, u ^);: = u ^. next;; (f1);; (u: PToy): integer;: integer;: = 0; u <> nil do (i);: = u ^. next;;: = i;; swap (var r1, r2: PToy);: RToy;: PToy;: = r1 ^;: = r1 ^. next; ^: = r2 ^; ^. next: = p;: = r2 ^. next; ^: = x; ^. next: = p;; (var p: PToy; f: PToy);: pToy;: RToy;: = p ^. next; t <> nil then ^. price> t ^. price then (p, t); (f, f) (p ^. next, f);; (var p: PToy; f: PToy);: pToy;: RToy;: = p ^. next; t <> nil then ^. Name> t ^. Name then (p, t), (f, f) (p ^. Next, f),, (var p: PToy; f: PToy),: pToy;: RToy;: = p ^. next; t <> nil thenp ^. KolVo> t ^. KolVo then (p, t); (f, f) (p ^. Next, f);;. br/>
5.6 Інструкція з експлуатації програми
Запустити файл program5.6 pas через середовище розробки Pascal ABC, виконати і слідувати дії відповідно меню (цифра перед кожним пунктом відповідає введенню цифри для виконання команди).
5.7 Результати проведених розрахунків та їх аналіз
Логіка роботи програми докладно описана в пункті "Розробка алгоритму і його опис", тому відразу наведемо результати тестування. На малюнках 5.5-5.25 наведена робота програми і описана за допомогою пояснювальних підписів до малюнків. br/>В
Малюнок 5.5 - Головне меню програми
В
Малюнок 5.6 - Відкриття бази даних з файлу та виведення на екран
В
Малюнок 5.7 - Додавання нового запису
В
Малюнок 5.8 - Висновок відсортованих списку по назві
В
Малюнок 5.9 - Пошук по ціні
В
Малюнок 5.10 - Збереження бази даних у файл
Висновок
В результаті виконання роботи було розроблено 5 програм різного рівня: на обчислення суми ряду, обробку одновимірних масивів, обробку матриць, роботу з файлами і структурою даних "стік". Всі вони були розроблені в середовищі PascalABC. Для кожного завдання наведено лістинг програми, блок-схема алгоритму, дано словесний опис логіки роботи, а також скріншоти - результати тестування програм на працездатність. При написанні...
