ерехід від одного НД до іншого і показані результати до (малюнок 9) і після (малюнок 10) переходу.
файл сортування масив копіювання
Малюнок 9 - НД до переходу
Рисунок 10 - Результат після переходу
2.6 Видалення елементів починаючи від обраного
Для видалення елементів починаючи від поточного потрібно вибрати в меню пункт «Видалення починаючи від обраного елемента» а потім, потрібно ввести номер елемента починаючи з якого хочете все видалити. На прикладі показаний НД до (рисунок 12) і після (малюнок 13) видалення.
Малюнок 11 - До видалення
Рисунок 12 - Після видалення
2.7 Додавання всіх елементів в кінець іншого МД
Для додавання всіх елементів поточного НД в інший, потрібно вибрати в меню пункт «Додавання в кінець іншого НД», після цього програма надасть вам можливість ввести ім'я файлу, де зберігатися іншою НД, після чого додасть туди дані , і сповістить про вдалому додаванні. На прикладі показаний результат завершився додавання.
Малюнок 13 - Додавання
Висновок
Підсумком виконання даної курсової роботи є написання програмного комплексу з обробки набору даних. В результаті написання програмного комплексу, я закріпив свої знання з основ алгоритмізації та програмування, поглибив свої знання з алгоритмічного мови Pascal, отримав досвід розробки програмних комплексів і на практиці освоїв основи модульного програмування. Всі умови даної курсової роботи були дотримані. Всі запити виконуються коректно.
Список використаних джерел
MathCAD 7.0./Керівництво користувача./В.К. Савелін./BHV-Київ, 1998.
Турбо Паскаль 7.0/А. Колесніков./В.Гінзбург./BHV/Київ, 1996.
Бородич, Ю.С. Паскаль для персональних комп'ютерів.- Мінськ: Вища школа, 1991.
Додаток А
Текст головної програми
uses menu, Funkcii, crt;: f;: char;, poz: integer; (mas) ;; (black); (white); (poz); poz of
: Sozdanie (mas, KolvoElm);
: DobavVkon (mas, KolvoElm);
: Porsmotr (mas, KolvoElm);
: Poisk (mas, KolvoElm);
: Perehod (mas, KolvoElm);
: UdalenieOtVibran (mas, KolvoElm);
: DobavVfail (mas, KolvoElm);
: halt ;; (poz=8) or (poz=2) or (poz=6); (poz=2) or (poz=6) then (mas, KolvoElm);.
Додаток Б
Текст модуля реалізації меню (menu)
menu; crt, Funkcii; glavn (var poz: integer); glavn (var poz: integer) ;, k: integer;: char;: array [1..10] of string [40 ];
[1]:= Sozdanie MD raquo ;; [2]:= Dobavlenie Novih el-v v konec raquo ;; [3]:= Prosmotr vseh el-v raquo ;; [4]: ??= Poisk el-ta po nomery raquo ;; [5]:= Perehod Kdrugomy MD raquo ;; [6]:= Udalenie nachinaya ot vibanogo el-ta raquo ;; [7] := Dobavlenie v konec drugogo MD raquo ;; [8]:= EXIT raquo ;;
(1,1,80,25); (white) ;;
(black); (white); i:=1 to 8 do (1, i); (MasMenu [i]) ;;
{end for i:=1 ..} (yellow); (red);:=1; (1, poz); (MasMenu [poz]);
:=readkey; (black); (white); i:=1 to 8 do (1, i); (MasMenu [i]) ;;
{end for i:=1 ..}:=0; vibor of
# 72 {vverh}: begin
{Prisvoenie stroke znach menshe na 1}:=poz - 1;
{Proverka na vihod za granicy menu} poz lt; 1 then:=8 ;;
# 80 {vniz}: begin
{Prisvoenie stroke znach bolshe na 1}:=poz + 1;
{Proverka na vihod za granicy menu} poz gt; 8 then:=1 ;;
# 13 {Enter}: i:=poz;
# 27: halt ;;
{end case vibor of} (yellow); (red); (1, poz); (MasMenu [poz]); i=poz ;;.
Додаток В
Текст модуля реалізації всіх запитів (Funkcii)
funkcii; crt;=(Gosudarst, akcionern, chastnii);=record: string [20] ;: longint ;: real ;: Vid ;;=array [1..30] of bank; Sozdanie (var mas: F; var KolvoElm: integer); DobavVkon (var mas: F; var KolvoElm: integer); Porsmotr (mas: F; KolvoElm: integer); Poisk (mas: F; KolvoElm: integer); Perehod ( var mas: F; var KolvoElm: integer); UdalenieOtVibran (var mas: F; var KolvoElm: integer); DobavVfail (mas: F; KolvoElm: integer);
