Федеральне агентство з освіти
Державна освітня установа
Вищої професійної освіти
Тульський державний університет
КАФЕДРА
АВТОМАТИЗОВАНИХ
ІНФОРМАЦІЙНИХ І КЕРІВНИКІВ СИСТЕМ
на тему
"Автоматизована система обробки структур даних"
Студент гр. | ______________ | ||
(Індекс групи) | (Підпис і дата) | (Ініціали та прізвище) |
Керівник | ______________ | ______________ | ______________ |
(Посада та вчений ступінь) | (Підпис і дата) | (Ініціали та прізвище) |
ТУЛА 200 ...
Зміст
Введення
1. Технічне завдання
1.1 Призначення розробки
1.2 Вимога до програми
1.3 Стадії та етапи розробки
2. Опис програми
2.1 Функціональне призначення
2.2 Опис логічної структури
2.3 Вхідні і вихідні дані
3. Інструкція з експлуатації програми
3.1 Призначення програми
3.2 Виконання програми
3.3 Опис контрольного прикладу
Висновок
Бібліографічний список
Програми
Введення
Завдання розробки програмного забезпечення систем різного призначення є основним завданням програмування. Курсова робота передбачає виконання всіх основних стадій та етапів розробки програм і програмної документації відповідно до існуючих державних і галузевих стандартів.
Основна мета роботи полягає в закріпленні навичок самостійного використання теоретичного матеріалу та практичного досвіду для вирішення задач проектування та розробки ПЗ систем різного призначення.
У даній роботі розглянуті і реалізовані чотири завдання, об'єднані в єдину систему. Три завдання містять обробку масивів даних, а четверта передбачає роботу з файлами і використання записів.
Як інструментальний засіб була обрана мова структурного програмування Паскаль, який є досить простим і зручним, а також популярним засобом розробки такого виду програмного забезпечення.
У курсовій роботі наведено тексти програмного коду з докладним описом, а також технологія роботи створених програмних засобів з виведенням результатів.
1. Технічне завдання
1.1 Призначення розробки
Необхідно вирішити чотири завдання:
Дана дійсна матриця розміру mxn, причому 1 ≤ m ≤ 20; 1 ≤ n ≤ 40. Визначити числа b 1, ..., bm, рівні відповідно найменшим значенням елементів рядків.
Назвемо допустимим перетворенням матриці перестановку двох рядків або двох стовпців. Дана дійсна квадратна матриця порядку n. З допомогою допустимих перетворень домогтися того, щоб один з елементів матриці, що володіє найбільшим за модулем значенням, розташовувався в лівому верхньому кутку матриці.
У масиві X (m, n) кожен елемент (крім граничних) замінити сумою безпосередньо примикають до нього елементів по вертикалі, горизонталі та діагоналях.
Ввести та зберегти у файлі дані наступної структури: № квитанції, найменування товару, дата надходження товару, термін, на який зданий товар, вартість товару. Організувати перегляд вихідних даних і вивести список товарів, відсортований за датою надходження (по зростанню, метод бульбашки) із зазначенням № квитанції, найменування товару та дати надходження. Введення і виведення даних організувати у вигляді таблиць. Налагодження програми виробляти на прикладі файлу, що складається не менше ніж з 15 записів.
На другому етапі необхідно об'єднати ці завдання в єдиний програмний комплекс, орієнтований на обробку оперативних і зовнішніх структур даних.
Програмний комплекс повинен мати модульну структуру, тобто кожна підзадача повинна бути реалізована незалежно від інших і використовувати стандартні програмні модулі мови програмування Паскаль.
1.2 Вимога до програми
Основні функції, які має виконувати дана програмний засіб:
Зручний запуск з єдиної програмного середовища
Введення і обробка двовимірних масивів даних: пошук найменших і найбільших значень матриці, перестановка рядків і стовпців матриці, обчислення суми елементів, що примикають до поточного.
Введення та збереження даних у файлі.
Сортування даних різного типу.
Вхідними даними програмного комплексу є матриці розміру mxn і nxn, файл з даними різних типів.
Вихідні дані - матриці розміру m, nxn, nxm, файл з даними різних типів.
Для розробки програмного комплексу була обрана мова Паскаль і середовище розробки Турбо Паскаль.
Паскаль - це один з найбільш поширених мов програмування 80-90х років, що підтримує найсучасніші методології проектування програм (низхідний, модульне проектування, структурне програмування), має свою досить багату історію розвитку.
Нове життя мови дала фірма Борланд, що розробила на його базі сімейство Паскаль - систем, званих Турбо Паскалем. Інтегрована середовище, забезпечує багатовіконну розробку програмної системи, великий набір вбудованих у неї засобів компіляції та відлагодження, доступний для роботи через легко освоюване меню, - все це забезпечує високу продуктивність праці програміста, недосяжну при роботі зі старими середовищами.
Мова Турбо Паскаль добре підходить для навчання програмуванню.
1.3 Стадії та етапи розробки
Технічне завдання. (1-2 тижні)
На стадії технічного завдання проводиться постановка завдання, визначаються загальні вимоги до програми, виконується техніко-економічне обгрунтування розробки програми, визначаються вхідні і вихідні дані, обирається мова програмування, визначаються вимоги до технічних засобів.
Ескізний проект. (1 тиждень)
На стадії ескізного проекту уточнюються методи розв'язання задачі, визначається структура вхідних та вихідних даних, розробляється загальний опис алгоритму розв'язання задачі.
Технічний проект. (1-2 тижні)
У рамках технічного проекту проводиться детальна розробка алгоритму рішення задачі, визначаються форми представлення вхідних і вихідних даних, розробляється структура програми, остаточно визначається конфігурація технічних засобів.
Робочий проект. (6-7 тижнів)
На стадії робочого проектування проводиться програмування завдання, налагодження програми, складання тестів для випробування програми, розробляється документація згідно з ЕСПД. Заключним етапом робочого проектування є проведення випробування програми на контрольному прикладі, здійснення коригування програми за результатами випробувань.
- Впровадження. (2-3 тижні). На стадії впровадження здійснюється передача програми і програмної документації в експлуатацію, оформлення акта про впровадження програми.
2. Опис програми
2.1 Функціональне призначення
Найменування програми: Автоматизована система обробки структур даних.
Призначення програми: Обробка табличних даних, робота з файлами, обробка даних різних типів.
Мова програмування: Мова структурного програмування Паскаль.
Спеціальне програмне забезпечення: Середовище програмування Турбо Паскаль фірми Borland.
Функціональні обмеження на використання програми: Ні. Працює на всіх типах персональних комп'ютерів.
2.2 Опис логічної структури
Програмний комплекс запускається за допомогою файлу menu. Exe. При запуску ми бачимо головне меню програми, що складається з п'яти пунктів: Задача1, Задача2, Задача3, Задача4, Вихід.
Блок-схема алгоритму програми з урахуванням тексту програми на мові Паскаль у Додатку виглядає наступним чином:
Опишемо підпрограми, які представлені в блок-схемі алгоритму:
vvod (A_, m_, n_) - введення матриці розміру m на n і виведення її на екран;
obrab (A_, m_, n_, b_) - пошук найменших значень рядків матриці;
vyvod (A_, b_, m_, n_) - висновок масиву найменших значень рядків матриці;
vvod1 (A1, n_) - - введення матриці розміру m на m і виведення її на екран;
poiskmax (A 1, n _, g _, l _) - пошук максимального по модулю значення масиву;
perestanovka (A 1, n _, g _, l _) - перестановка рядків і стовпців матриці, що містять максимальний елемент;
vyvod1 (A1, n_) - висновок матриці m на n з найбільшим значенням у лівому верхньому куті;
obrab1 (A_, C_, m_, n_) - заміна елементів матриці сумою сусідніх елементів;
vyvod2 (C_, m_, n_) - висновок перетвореної матриці на екран;
vvod2 (d_) - читання з файлу даних;
sort (d_) - сортування даних файлу по даті;
vyvod3 (d_) - запис відсортованих даних у файл;
Ці функції і процедури, які використовуються при виборі числових значень від 1 до 5 описані в модулях zad1, zad2, zad3, zad4.
2.3 Вхідні і вихідні дані
На початку роботи з програмним комплексом необхідно здійснити вибір необхідного режиму роботи за допомогою числової змінної, а потім ввести дані в залежності від обраної задачі.
Опишемо вхідні дані докладніше:
Змінна k цілого типу відповідає за вибір пункту головного меню програмного комплексу.
При виборі першого пункту меню необхідно ввести наступну інформацію:
Матрицю m на n, елементи якої є дійсними числами
Розмірності матриці визначені як константи: m = 20, n = 40
При виборі другого пункту меню необхідно ввести наступну інформацію:
Матрицю m на m, елементи якої є дійсними числами
При виборі третього пункту меню необхідно ввести наступну інформацію:
Матрицю m на n, елементи якої є дійсними числами
Перед вибором четвертого пункту меню необхідно підготувати файл tab. Pas з табличною інформацією: номер квитанції, назва товару, дата надходження товару, термін, на який зданий товар, вартість товару і розташувати його в каталозі з програмою.
Висновок результатів роботи здійснюється після вирішення кожного з чотирьох завдань:
При вирішенні першого завдання здійснюється виведення одновимірного масиву дійсних чисел розмірністю m, найменших у кожному рядку матриці m на n.
При вирішенні другого завдання здійснюється виведення перетвореного масиву дійсних чисел m на m, де у верхньому лівому кутку знаходиться найбільший елемент введеного масиву.
При вирішенні третього завдання здійснюється виведення перетвореного масиву дійсних чисел m на n, де елементи вхідного масиву замінені сумою сусідніх (крім граничних). При вирішенні четвертої задачі здійснюється виведення відсортованої за датою таблиці з даними різного типу в файл sort_tab. pas.
3. Інструкція з експлуатації програми
3.1 Призначення програми
Програмний комплекс "Автоматизована система обробки структур даних" призначений для управління виконанням чотирьох завдань, які здійснюють обробку масивів даних, а також обробку файлів з даними різного типу.
Коротко опишемо основні функції, які виконує дане програмний засіб:
Простий і зручний запуск кожного завдання з єдиної програмної оболонки.
Введення і обробка двовимірних масивів даних: пошук найменших і найбільших значень матриці, перестановка рядків і стовпців матриці, обчислення суми елементів, сусідніх з поточним.
Зчитування, обробка та збереження даних у файлі.
Сортування даних різного типу.
Зручна система завершення роботи після виконання кожного завдання і функція виходу із програмного комплексу
Програмний комплекс "Автоматизована система обробки структур даних" призначений для роботи в операційних системах сімейства Windows, складається з файлу progr. Exe, ніяких додаткових програмних компонентів для роботи не потрібно. У каталозі з програмою також повинен розташовуватися файл tab. Pas для вирішення четвертої задачі.
3.2 Виконання програми
Запуск програмного комплексу здійснюється за допомогою файлу progr. exe. Після цього ми потрапляємо в головне меню програми (рис.1):
Рис.1. Головне меню програмного комплексу.
Після вибору відповідного номера ми потрапляємо в режим введення даних тієї чи іншої задачі (рис.2):
Рис.2. Режим введення даних для першого завдання.
Якщо ми ввели дані не вірно, то програма попросить повторити введення (рис.3):
Рис.3. Дії програми при невірному введенні даних.
Видача результатів здійснюється після виконання необхідних умов введення даних (рис. 4):
Рис.4. Видача результатів роботи першого завдання.
Після натискання на клавішу Enter ми потрапляємо в головне меню програми, де можемо продовжити роботу або вийти з програми, ввівши цифру 5.
3.3 Опис контрольного прикладу
Розглянемо приклад знаходження найбільшого за модулем елемента матриці і переміщення його у лівий верхній кут матриці за допомогою перестановки двох рядків або двох стовпців (Завдання 2).
Отже, вибираємо пункт два в головному меню програми і натискаємо Enter (мал. 5):
Рис.5. Вибір режиму роботи програми
Далі необхідно ввести розмір дійсної квадратної матриці та її елементи (Рис.6):
Рис.6. Введення дійсної квадратної матриці
Після цього отримуємо такі результати (рис.7):
Рис.7. Висновок результатів роботи завдання 2.
Число 7 - найбільше значення матриці стоїть у лівому верхньому куті перетвореної матриці. Натискаємо Enter і повертаємося до головного меню програмного комплексу.
Розглянемо приклад роботи третьої завдання.
Введення даних здійснюється аналогічним для першого завдання чином (рис. 8)
Рис.8. Введення даних для завдання 3
Після цього отримуємо такі результати (мал. 9):
Рис.9. Висновок результатів роботи завдання 3
Отримуємо суму сусідніх елементів масиву, записаних замість значень 4.0000 і 3.0000.
Розглянемо приклад роботи з файлами. У головному меню вибираємо пункт номер 4. Якщо файл tab. Pas з потрібними даними існує, то видається наступне повідомлення (рис.10):
Рис.10. Висновок результатів роботи завдання 4.
Результати роботи програми (відсортований за датою набір даних) необхідно подивитися у файлі sort _ tab. Pas.
Якщо вихідного файлу не існує, то видається помилка (рис.11):
Рис.11. Відсутність файлу з даними
Висновок
У цій роботі вирішені завдання обробки масивів даних і файлів даних різного типу.
У процесі створення курсової роботи розроблено алгоритм розв'язання чотирьох поставлених підзадач. Вони були об'єднані в єдиний програмний комплекс, реалізований на мові Pascal в середовищі програмування Turbo Pascal.
У ході тестування були отримані вірні результати роботи алгоритмів знаходження максимальних і мінімальних значень матриці, перестановки рядків і стовпців місцями, знаходження суми елементів матриці, а також сортування структур даних різного типу, що говорить про досягнення цілей курсової роботи.
Бібліографічний список
ГОСТ 19.701-90. ЕСПД. Схеми алгоритмів, програм, даних і систем. Умовні позначення і правила виконання.
ГОСТ 19.102-77. ЕСПД. Стадії розробки.
ГОСТ 34.602-89. ЕСПД. Інформаційна технологія. Технічне завдання на створення автоматизованих систем.
ГОСТ 19.402-78. ЕСПД. Опис програми.
ГОСТ 19.509-79. ЕСПД. Керівництво програміста.
ГОСТ 19.505-79. ЕСПД. Керівництво оператора.
Кнут Д. Мистецтво програмування для ЕОМ. Т.1. Основні алгоритми, Т.2. Получісленние алгоритми, Т.3. Сортування і пошук / Пер. с. англ. - М.: Світ, 1976-1977.
Бутом І.Д., Самочадін А.В., Усанова Д.В. Програмування на алгоритмічній мові Паскаль для мікроЕОМ: Навчальний посібник. - Л.: ЛДУ, 1985. - 216 с.
Форсайт Р. Паскаль для всіх. - М.: Машинобудування, 1986. - 286 с.
Електронні обчислювальні машини: У 8 кн.: Навчальний посібник для вузів / під ред.А.Я. Савельєва. Кн.5. Мови програмування (Паскаль, ПЛ / М) - М.: Вищ. школа, 1987. - 143 с.
Вілсон І.Р., Еддіман А.М. Практичне введення в Паскаль. - М.: Радіо і зв'язок, 1983. - 144 с.
Керніган Б., Плоджер Ф. Інструментальні засоби програмування на мові Паскаль. - М.: Радіо і зв'язок, 1985. -312с.
Білецький Я. Турбо Паскаль з графікою для персональних комп'ютерів переклад з польської Д.І. Юренкова. - М.: Машинобудування, 1991. - 320 с.
Сергієвський М.В., Шалашов А.В. Турбо Паскаль 7.0, язик, середовище програмування. - М: Машинобудування. -1994, -254 С. мул.
Довідник по процедурах і функціям Borland Pascal 7.0. - Київ: Діалектика, 1993. - 272 с.
Програми
Модуль zad1
unit zad 1;
interface
uses crt;
Const {визначення констант розмірності масиву}
max _ m = 20;
max _ n = 40;
Type {визначення типів двовимірного і одновимірного масиву}
Matrix = array [1. . max_m,
1. . max_n] Of Real;
Massiv = array [1. . max_m] Of Real;
{Визначення використовуваних процедур}
Procedure vvod (Var A: Matrix; Var m, n: Integer);
Procedure obrab (A: Matrix; m, n: Integer; Var b: Massiv);
Procedure vyvod (A: Matrix; b: Massiv; m, n: Integer);
implementation
{Процедура введення елементів двовимірного масиву і виведення його на екран}
Procedure vvod (Var A: Matrix; Var m, n: Integer);
Var
i, j: Byte;
Begin
Repeat
WriteLn ('Введіть розміри матриці з більш ", max_m,' ', max_n);
ReadLn (m);
ReadLn (n);
Until (m> 1) AND (n> 1) AND (m <= 20) AND (n <= 40);
For i: = 1 To m Do
For j: = 1 To n Do Begin
WriteLn ('Введіть елементи матриці A [', i ,',', j, ']');
ReadLn (A [i, j]);
End;
clrscr;
WriteLn ('Вихідна матриця ');
For i: = 1 To m Do Begin
For j: = 1 To n Do Begin
write (A [i, j]: 5: 4, '');
end;
writeln;
end;
End;
{Процедура знаходження найменших значень рядків матриці}
Procedure obrab (A: Matrix; m, n: Integer; Var b: Massiv);
Var
i, j: Byte;
Begin
For i: = 1 To m Do Begin
b [i]: = A [i, 1];
For j: = 2 To n Do
If A [i, j] <b [i] Then b [i]: = A [i, j]
End;
End;
{Процедура виведення масиву найменших значень рядків на екран}
Procedure vyvod (A: Matrix; b: Massiv; m, n: Integer);
Var
i, j: Byte;
Begin
WriteLn ('Найменші значення елементів рядків матриці A:');
For i: = 1 To m Do Begin
WriteLn (b [i]: 5: 4);
End;
End;
end.
Модуль zad2
Unit zad2;
Interface
Uses crt;
Type {визначення типу двовимірного масиву}
Matr = array [1. .50,
1. .50] Of Real;
{Визначення використовуваних процедур}
procedure vvod1 (var A1: Matr; var n1: integer);
procedure poiskmax (A1: Matr; n1: integer; var k1, l1: byte);
procedure perestanovka (var A1: Matr; n1, k1, l1: integer);
procedure vyvod1 (A1: Matr; n1: integer);
implementation
{Процедура введення розмірів і елементів матриці, а також виведення її на екран}
procedure vvod1 (var A1: Matr; var n1: integer);
var i, j: byte;
begin
repeat
writeln ('Введіть розмір матриці');
readln (n 1);
until (n1> 1);
for i: = 1 to n1 do
for j: = 1 to n1 do begin
writeln ('Введіть елементи матриці A [', i ,',', j, ']');
readln (A1 [i, j])
end;
WriteLn ('Вихідна матриця ');
For i: = 1 To n1 Do Begin
For j: = 1 To n1 Do Begin
write (A1 [i, j]: 5: 4, '');
end;
writeln;
end;
end;
{Процедура пошуку максимального значення матриці}
procedure poiskmax (A1: Matr; n1: integer; var k1, l1: byte);
var i, j: byte; max: real;
begin
max: = abs (A1 [i, 1]);
for i: = 1 to n1 do begin
for j: = 1 to n1 do
if abs (A1 [i, j])> max then begin
k1: = i;
l1: = j;
max: = A1 [k1, l1]
end
end
end;
{Процедура перестановки сусідніх двох рядків і сусідніх двох стовпців місцями}
procedure perestanovka (var A1: Matr; n1, k1, l1: integer);
var t: real; i, j: byte;
begin
if (k1 <> 1) then
for j: = 1 to n1 do begin
t: = A1 [1, j];
A1 [1, j]: = A1 [k1, j];
A1 [k1, j]: = t;
end;
if (l1 <> 1) then
for i: = 1 to n1 do begin
t: = A1 [i, 1];
A1 [i, 1]: = A1 [i, l1];
A1 [i, l1]: = t
end
end;
{Процедура виведення на екран перетвореної матриці}
procedure vyvod1 (A1: Matr; n1: integer);
var i, j: byte;
begin
writeln ('Змінена матриця ');
for i: = 1 to n1 do begin
for j: = 1 to n1 do
write (A1 [i, j]: 5: 4, '');
writeln
end
end;
end.
Модуль zad3
unit zad3;
interface
uses crt;
Const {визначення констант розмірності масиву}
m 2 = 50;
n 2 = 50;
Type {визначення типу двовимірного масиву}
Mat = array [1. . m2,
1. . n2] Of Real;
{Визначення використовуваних процедур}
Procedure vvod3 (Var A: Mat; Var m, n: Integer);
procedure obrab1 (var A: Mat; var C: Mat; m, n: integer);
procedure vyvod2 (C: Mat; m, n: integer);
implementation
{Процедура введення розмірності і елементів матриці, а також виведення її на екран}
Procedure vvod3 (Var A: Mat; Var m, n: Integer);
Var
i, j: Byte;
Begin
Repeat
WriteLn ('Введіть розміри матриці');
ReadLn (m);
ReadLn (n);
Until (m> 1) AND (n> 1) AND (m <= 100) AND (n <= 100);
For i: = 1 To m Do
For j: = 1 To n Do Begin
WriteLn ('Введіть елементи матриці A [', i ,',', j, ']');
ReadLn (A [i, j]);
End;
clrscr;
WriteLn ('Вихідна матриця ');
For i: = 1 To m Do Begin
For j: = 1 To n Do Begin
write (A [i, j]: 5: 4, '');
end;
writeln;
end;
End;
{Процедура підсумовування елементів масиву, граничних з поточним}
procedure obrab1 (var A: Mat; var C: Mat; m, n: integer);
var i, j: byte;
begin
for i: = 2 to m-1 do
for j: = 2 to n-1 do
C [i, j]: = A [i-1, j-1] + A [i, j-1] + A [i +1, j-1] + A [i-1, j] + A [ i +1, j] + A [i-1, j +1] + A [i, j +1] + A [i +1, j +1];
for j: = 1 to n do begin
C [1, j]: = A [1, j];
C [m, j]: = A [m, j]
end;
for i: = 2 to m-1 do begin
C [i, 1]: = A [i, 1];
C [i, n]: = A [i, n]
end;
end;
{Процедура виведення перетвореної матриці}
procedure vyvod2 (C: Mat; m, n: integer);
var i, j: byte;
begin
writeln ('Змінена матриця ');
for i: = 1 to m do begin
for j: = 1 to n do
write (C [i, j]: 5: 4, '');
writeln
end
end;
end.
Модуль zad4
unit zad4;
interface
uses crt;
const {визначення константи розмірності масиву}
n _ max = 15;
type {Визначення типу запис}
Tabliza = record
nomer, data: byte;
tovar: string [20];
srok: integer;
stoim: real
end;
spisok = array [1. . n_max] of Tabliza;
{Визначення використовуваних процедур}
procedure vvod 2 (var d: spisok);
procedure sort (var d: spisok);
procedure vyvod3 (d: spisok);
implementation
{Процедура зчитування даних з файлу}
procedure vvod2 (var d: spisok);
var
i: byte;
f: text;
res: integer;
fname: string [80];
otv: char;
begin
assign (f, 'tab. pas');
fname: = 'tab. pas ';
{$ I -}
reset (f); {відкрити файл для читання}
{$ I +}
res: = IOResult;
if res <> 0 then
begin
writeln ('ПОМИЛКА: файл', fname, 'не знайдено ');
writeln ('Для продовження натисніть Enter');
readln;
halt;
end;
readln (f);
for i: = 1 to 15 do begin
read (f, d [i]. nomer);
read (f, d [i]. tovar);
read (f, d [i]. data);
read (f, d [i]. srok);
read (f, d [i]. stoim);
end;
close (f);
end;
{Процедура сортування даних за датою}
procedure sort (var d: spisok);
var i, j: byte; t: tabliza;
begin
t: = d [1];
for i: = 2 to 15 do
for j: = 15 downto i do
if d [j-1]. data> d [j]. data then begin
t: = d [j -1];
d [j -1]: = d [j];
d [j]: = t
end
end;
{Процедура запису відсортованих даних у файл}
procedure vyvod3 (d: spisok);
var
i: byte;
f1: text;
begin
assign (f1, 'sort_tab. pas');
rewrite (f1);
writeln (f1, 'nomer tovar data srok stoimost');
for i: = 1 to 15 do begin
write (f1, d [i]. nomer);
write (f1, d [i]. tovar);
write (f1, d [i]. data: 3);
write (f1, d [i]. srok: 5);
write (f1, d [i]. stoim: 8: 0);
writeln (f1);
end;
close (f1);
end;
end.
Основна програма
Program auto;
{Підключення вищеописаних модулів}
Uses crt, zad 1, zad 2, zad 3, zad 4;
var
A_, C_: Matrix;
A1_: Matr;
A2_, C2_: Mat;
b_: Massiv;
k_, W, m_, n_: Integer;
g_, l_: byte;
d_: spisok;
f_: text;
BEGIN
clrscr;
W: = 1;
While W <> 6 do begin
{Формування пунктів меню програми}
gotoxy (5,3); write ('Автоматизована система обробки структур даних');
gotoxy (15,9); write ('1. Завдання 1 ');
gotoxy (15,11); write ('2. Завдання 2 ');
gotoxy (15,13); write ('3. Завдання 3 ');
gotoxy (15,15); write ('4. Завдання 4 ');
gotoxy (15,17); write ('5. Вихід ');
gotoxy (1, 19); write ('Виберіть подальший режим роботи:');
{Вибір потрібного пункту програми}
readln (k _);
case k_ of
1: begin
clrscr;
vvod (A_, m_, n_);
obrab (A_, m_, n_, b_);
vyvod (A _, b _, m _, n _);
writeln ('Для продовження натисніть Enter');
readln;
end;
2: begin
clrscr;
vvod1 (A1_, n_);
poiskmax (A1_, n_, g_, l_);
perestanovka (A1_, n_, g_, l_);
vyvod1 (A1_, n_);
writeln ('Для продовження натисніть Enter');
readln;
end;
3: begin
clrscr;
vvod3 (A2_, m_, n_);
obrab1 (A2_, C2_, m_, n_);
vyvod2 (C2_, m_, n_);
writeln ('Для продовження натисніть Enter');
readln;
end;
4: begin
clrscr;
vvod2 (d_);
sort (d_);
vyvod3 (d_);
writeln ('Результат записаний в файл sort_tab. pas. ');
writeln ('Для продовження натисніть Enter');
readln;
end;
5: W: = 6;
end;
clrscr;
end;
END.