Алгоритмизация і програмування процесів на Fox

Державний Університет Управления.

Інститут заочного обучения.

Спеціальність — менеджмент.

Пояснювальна записка до курсовому проекту з дисципліни «Комп'ютерна подготовка».

на тему: «Алгоритмизация і програмування процесів обробки даних серед СУБД типу Fox».

Выполнил студент Студентський квиток № Група №УП4−1-98/2 Варіант № 2 Адрес:

Москва, 1999 г.

1. Запровадження 3.

2. Завдання курсової проект 4.

3. Аналіз і завдання 4.

4. Формалізація завдання 5.

5. Алгоритми 6.

5.1. Створення дворівневого світлового меню 6.

5.2. Створення файла даних 7.

5.3. Читання файла даних 8.

5.4. Додавання даних в файл даних 9.

5.5. Печатка даних про сумарною вартості продукції заданого виду в кожному підприємству і середньому випуску цієї категорії продукції одним підприємством. 10.

5.6. Печатка даних про сумарною вартості і сумарному випуску кожної продукції. 11.

5.7. Печатка упорядкованого по сумарною вартості списку продукції п’яти видів 12.

6. Програми 13.

6.1. Створення дворівневого світлового меню 13.

6.2. Створення файла даних 15.

6.3. Читання файла даних 16.

6.4. Додавання даних в файл даних 17.

6.5. Печатка даних про сумарною вартості продукції заданого виду в кожному підприємству і середньому випуску цієї категорії продукції одним підприємством. 18.

6.6. Печатка даних про сумарною вартості і сумарному випуску кожної продукції. 20.

6.7. Печатка упорядкованого по сумарною вартості списку продукції п’яти видів 21.

7. Результати рішень 22.

8. Укладання 29.

9. Список літератури 30.

Реляционные системи управління базами даних (СУБД), такі як FoxBase, FoxBase plus, FoxPro, Visual FoxPro ставляться до нового поколінню СУБД реляционного типу з сімейства dBase — подібних СУБД. Пакети цього сімейства отримали стала вельми поширеною, і з них русифицированы.

СУБД типу Fox зберігає наступність стосовно більш раннім представникам dBase — подібних СУБД, щодо структури баз даних, команд створення і методи обробки даних, основних типів даних. У водночас кожна наступна СУБД має більші можливості проти попередніми. Приміром, Visual FoxPro проти FoxPro має значнішими образотворчими возможностями.

Ця робота використовує мову команд СУБД сімейства Fox. Використовувані команди, переважно, застосовні переважають у всіх СУБД цього, але налагодження велася на зрусифікована СУБД FoxPro для Windows версії 2.5b.

Завдання курсової проект.

Структура ЗАПИСИ вихідного ДОКУМЕНТА: |Код підприємства |Вигляд продукції |Обсяг випуску |Ціна одиниці | | | | |продукції |.

Необходимо:

1. Визначити сумарну вартість продукції заданого виду та її середній випуск одним предприятием.

2. До кожного з п’яти видів продукції визначити сумарну вартість будівництва і сумарний выпуск.

3. Видати на печатку гаразд зростання сумарною вартості продукцію п’яти видов.

Анализ і постановка задачи.

Вихідні ці завдання є записи заданої структури, які мають вводитися з клавіатури, та був виводитися в файл даних на магнітний диск. Отже, одній з подзадач мусить бути завдання створення файла даних на магнітному диске.

Створений файл даних необхідно переглянути на екрані чи вивести на печатку як таблиці з пресою заголовка і шапки цієї таблиці. І тому наступній подзадачей має бути завдання перегляду файла даних. Також мусить бути можливість додавання записів в створений файл данных.

Потім необхідні ще три подзадачи, вирішення яких дозволяє виконати три пункту курсової работы:

1. Видача даних про сумарною вартості продукції заданого виду в кожному підприємству і середньому випуску цієї категорії продукції одним предприятием.

2. Видача даних про сумарною вартості і сумарному випуску кожної продукции.

3. Видача на печатку продукції п’яти видів гаразд зростання її сумарною стоимости.

З іншого боку, для діалогу користувача і системи необхідно створити так зване, «Меню».

Формалізація задачи.

Серед СУБД типу Fox кожна подзадача може оформлятися як окремого командного файла з розширенням .prg і закінчуватися оператором повернення викликає командний файл.

У разі основним командним файлом є файл MainMenu. prg, що формує повне екранне меню та здійснює виклик інших командних файлів, залежно вибраного пункту меню: |CreateFd.prg |- створення файла даних; | |ReadFd.prg |- читання створеного файла даних; | |AddFd.prg |- додавання даних в створений файл даних; | |Zad1.prg |- видача даних про сумарною вартості продукції| | |заданого виду в кожному підприємству і середньому| | |випуску цієї категорії продукції одним підприємством; | |Zad2.prg |- видача даних про сумарною вартості і | | |сумарному випуску кожної продукції; | |Zad3.prg |- видача на печатку продукції п’яти видів гаразд| | |зростання її сумарною вартості. |.

З іншого боку, потрібно надати користувачеві можливість полегшити процес створення файла даних, тобто. передбачити створення файла даних із структурою заданої у програмі, а чи не обраній самим користувачем, що повністю виключить можливі помилки користувача в завданні імен полів файла даних, що у сою чергу, може зашкодити коректною роботі всієї программы.

Алгоритмы.

1 Створення дворівневого світлового меню.

2 Створення файла данных.

3 Читання файла данных.

4 Додавання даних в файл данных.

5 Печатка даних про сумарною вартості продукції заданого виду в кожному підприємству і середньому випуску цієї категорії продукції одним предприятием.

6 Печатка даних про сумарною вартості і сумарному випуску кожної продукции.

7 Печатка упорядкованого по сумарною вартості списку продукції п’яти видов.

Программы.

1 Створення дворівневого світлового меню.

* Командний файл ієрархічного меню MainMenu set Talk off set Color to n/W* && Вибір кольору екрана Clear.

* Опис масивів даних меню Declare GenMenu (3,2), menuFile (3), menuZad (3), menuExit (2).

* Завдання значень елементів масивів GenMenu (1,1)= «Файл даних «GenMenu (1,2)= «Фундаментальна обізнаність із файлом даних «GenMenu (2,1)= «Завдання «GenMenu (2,2)= «Завдання на курсової проект «GenMenu (3,1)= «Вихід «GenMenu (3,2)= «Вихід із програми «.

menuFile (1)= «Створення «menuFile (2)= «Читання «menuFile (3)= «Додавання «.

menuZad (1)= «Завдання № 1 «menuZad (2)= «Завдання № 2 «menuZad (3)= «Завдання № 3 «.

menuExit (1)= «Вихід в Fox «menuExit (2)= «Вихід із Fox «.

* Формировние головного меню Do While .T. set Color to gr+/g, gr+/b && Установка кольору меню.

Menu Bar GenMenu, 3.

Read Menu Bar to L1, L2 && Висновок головного меню на экран.

Do While L1 > 0 && відкрити підміню, якщо выбран.

&& будь-який пункт головного меню.

* Формування підміню set Color to gr+/g, gr+/b && Установка кольору подменю.

Menu 1, menuFile, 3,3.

Menu 2, menuZad, 3,3.

Menu 3, menuExit, 2,2.

Read Menu Bar to L1, L2 && Висновок меню на екран set Color to n/W* && Повернення до кольору экрана.

* Обробка обраного пункту меню.

Do Case.

Case L1=0.

Exit && Вихід в панель головного меню.

Case L1=1.

Do Case.

Case L2=1 && Вибрано дію «Створення нового ФД «.

Do CreateFd.

Case L2=2 && Вибрано дію «Читання даних «.

Do ReadFd.

Case L2=3 && Вибрано дію «Додавання нових даних «.

Do AddFd.

EndCase.

Case L1=2.

Do Case.

Case L2=1 && Вибрано завдання № 1 з курсового проекта.

Do Zad1.

Case L2=2 && Вибрано завдання № 2 з курсового проекта.

Do Zad2.

Case L2=3 && Вибрано завдання № 3 з курсового проекта.

Do Zad3.

EndCase.

Case L1=3.

Do Case.

Case L2=1 && Вибрано пункт «Вихід в Fox «.

Return.

Case L2=2 && Вибрано пункт «Вихід із Fox «.

Quit.

EndCase.

EndCase.

EndDo EndDo.

2 Створення файла данных.

* Командний файл CreateFd — створення нової файла даних set Talk off set Status off set Escape off Clear Zag= «Процес створення нової файла даних «@ 4,22 to 4,58 Color u/w* @ 3,22 Say Zag Color u/w* @ 12,0 Accept «Зазначте ім'я створюваного файла даних: «to NameFd If Len (NameFd) > 0 && Якщо ім'я файла не запровадили, то робити нечего.

* Зміна заголовка.

Zag=Zag + ": «+ NameFd + » .dbf «.

LenZag=Int (Len (Zag)).

@ 4, Int ((80-lenZag)/2) to 4, Int ((80-lenZag)/2)+LenZag Color u/w*.

@ 3, Int ((80-LenZag)/2) Say Zag Color u/w*.

@ 14,0 Text Хочете автоматично створити порожню структуру із зазначеним ім'ям, за завданням курсового проекту (Д/Н)? EndText.

* Відповідь на поставлений вопрос.

Do While .T.

@ 16,57.

Wait «» to ABC && Чекання натискання клавиши.

If ABC= «зв «Or ABC= «буд «.

ABC=Chr (Asc (ABC)-32) && Зміна регистра.

EndIf.

If ABC= «М «Or ABC= «Д «.

Exit.

EndIf.

EndDo.

* Створення ФД.

If ABC= «Д «&& Автоматичне створення ФД.

Create Table &NameFd ;

(KodOrg N (3,0), VidProd C (20), Volum N (4,0), Price N (6,2)).

@ 8,0 set Talk on.

Display Structure && Висновок створеної структури set Talk off.

Else && Створення ФД із можливістю заповнення полей.

Create &NameFd.

EndIf EndIf.

* Кінець роботи @ 24,0 Wait «Аби повернутися в меню натисніть будь-яку клавішу … «@ 24,0 Clear Return.

3 Читання файла данных.

* Командний файл ReadFd — читання файла даних set Talk off set Status off set Escape off Clear @ 4,27 to 4,54 Color u/w* @ 3,27 Say «Процес читання файла даних «Color u/w* @ 12,0 Accept «Запровадьте ім'я зчитуваного файла даних: «to NameFd If Len (NameFd) >0 && Якщо ім'я файла не запровадили, то робити нечего.

* Зміна заголовка.

@ 3,0 Clear to 5,79.

Zag= «Вміст файла даних: «+ NameFd + » .dbf «.

LenZag=Int (Len (Zag)).

@ 4, Int ((80-lenZag)/2) to 4, Int ((80-lenZag)/2)+LenZag Color u/w*.

@ 3, Int ((80-LenZag)/2) Say Zag Color u/w*.

* Висновок вмісту файла.

Use &NameFd.

Do While .Not.EOF () && Цикл виведення порцій записів ФД.

&& У певну область экрана.

@ 7,0.

Display Next 15.

If EOF ()=.F. && У цьому циклі непотрібно переводить.

&& покажчик й виконувати паузу.

Skip && Переклад покажчика, щоб новий екран не начинался.

&& з останнього записи попереднього экрана.

@ 24,0.

Wait «Натисніть будь-яку клавішу для перегляду наступних 15 записей.

… «.

EndIf.

EndDo.

Close DataBases && Закриття ФД EndIf.

* Кінець роботи @ 24,0 Wait «Аби повернутися в меню натиснімо будь-яку клавішу … «@ 24,0 Clear Return.

4 Додавання даних в файл данных.

* Командний файл AddFd — додавання файла даних set Talk off set Status off set Escape off Clear @ 4,25 to 4,56 Color u/w* @ 3,25 Say «Процес додавання файла даних «Color u/w* @ 12,0 Accept «Запровадьте ім'я файла даних для додавання даних: «to NameFd If Len (NameFd) >0 && Якщо ім'я файла не запровадили, то робити нечего.

* Зміна заголовка.

@ 3,0 Clear.

Zag= «Додавання даних в файл даних: «+ NameFd + » .dbf «.

LenZag=Int (Len (Zag)).

@ 4, Int ((80-lenZag)/2) to 4, Int ((80-lenZag)/2)+LenZag Color u/w*.

@ 3, Int ((80-LenZag)/2) Say Zag Color u/w*.

* Додавання даних в ФД.

Use &NameFd.

Append.

Close DataBases && Закриття ФД EndIf.

* Кінець роботи @ 24,0 Wait «Аби повернутися в меню натиснімо будь-яку клавішу … «@ 24,0 Clear Return.

5 Печатка даних про сумарною вартості продукції заданого виду в кожному підприємству і середньому випуску цієї категорії продукції одним предприятием.

* Командний файл Zad1 — печатку даних про заданої продукції set Talk off set Status off set Escape off Clear @ 4,18 to 4,62 Color u/w* @ 3,18 Say «Процес друку даних про заданої продукції «Color u/w* @ 12,0 Accept «Запровадьте ім'я файла даних: «to NameFd @ 12,0 Clear @ 12,0 Accept «Запровадьте такого роду продукцію: «to TypeProd If Len (NameFd) >0 And Len (TypeProd) > 0 && Якщо ім'я файла или.

&& такого роду продукцію не ввели,.

&& то робити нечего.

* Зміна заголовка.

@ 3,0 Clear.

Zag= «Відомості про продукції: «+ TypeProd.

LenZag=Int (Len (Zag)).

@ 4, Int ((80-lenZag)/2) to 4, Int ((80-lenZag)/2)+LenZag Color u/w*.

@ 3, Int ((80-LenZag)/2) Say Zag Color u/w*.

Use &NameFd.

* Формування шапки.

L= «+————————-+———————-+————+—————-+ «.

@ 7,12 Say L.

@ 8,12 Say «| Код підприємства | Обсяг випуску | Ціна | Вартість | «.

@ 9,12 Say L.

Row=10 && Поточний номер рядки висновку данных.

Do While .Not.EOF ().

If VidProd=TypeProd.

* Формування строки.

@ Row, 12 Say «| «.

@ Row, 20 Say KodOrg.

@ Row, 30 Say «| «.

@ Row, 36 Say Volum Picture «# ### «.

@ Row, 46 Say «| «.

@ Row, 48 Say Price Picture «###.## «.

@ Row, 55 Say «| «.

@ Row, 57 Say Volum*Price Picture «## ###.## «.

@ Row, 67 Say «| «.

Row=Row+1.

EndIf.

Skip.

EndDo.

* Формування підсумковій частини таблицы.

@ Row, 12 Say L.

Row=Row+1.

* Розрахунок сумарною стоимости.

Sum Volum*Price For VidProd=TypeProd to AllPrice.

* Розрахунок середнього выпуска.

Average Volum For VidProd=TypeProd to AvVol.

@ Row, 29 Say «Загальна сумарна вартість: «.

@ Row, 56 Say AllPrice Picture «### ###.## «.

@ Row+1,21 Say «Середній випуск одним підприємством: «.

@ Row+1,58 Say AvVol Picture «# ### «.

Close DataBases && Закриття ФД EndIf.

* Кінець роботи @ 24,0 Wait «Аби повернутися в меню натиснімо будь-яку клавішу … «@ 24,0 Clear Return.

6 Печатка даних про сумарною вартості і сумарному випуску кожної продукции.

* Командний файл Zad2 — печатку відомостей щодо обсягів й вартості продукції set Talk off set Status off set Escape off Clear @ 4,15 to 4,64 Color u/w* @ 3,15 Say «Процес друку відомостей обсяги всієї продукції «Color u/w* @ 12,0 Accept «Запровадьте ім'я файла даних: «to NameFd @ 12,0 Clear If Len (NameFd) >0 && Якщо ім'я файла не запровадили, то друкувати нечего.

Use &NameFd.

* Формування шапки таблицы.

L= «+——————————-+———————-+——————————-+ «.

@ 7,10 Say L.

@ 8,10 Say «| Вигляд продукції | Загальний обсяг | Сумарна вартість | «.

@ 9,10 Say L.

* Сортування даних із виду продукции.

Index On VidProd to &NameFd && Створення індексного файла.

Use &NameFd Index &NameFd.

* Формування рядків таблицы.

Row=10 && Поточний номер рядки висновку данных.

Do While .Not.EOF ().

VP=VidProd.

RNom=RecNo () && Запам’ятати номер поточної записи.

Sum Volum For VidProd=VP to AllVol && Загальний объем.

Sum Volum*Price For VidProd=VP to AllPrice && Сумарна стоимость.

GoTo RNom && Повернутися на поточну запись.

@ Row, 10 Say «| «.

@ Row, 12 Say VidProd.

@ Row, 32 Say «| «.

@ Row, 37 Say AllVol Picture «### ### «.

@ Row, 48 Say «| «.

@ Row, 55 Say AllPrice Picture «### ###.## «.

@ Row, 70 Say «| «.

* Пропуск записів з відпрацьованим виглядом продукции.

Do While VidProd = VP And .Not.EOF ().

Skip.

EndDo.

Row=Row+1.

EndDo.

* Формування підсумковій частини таблицы.

@ Row, 10 Say L.

Close DataBases && Закриття ФД.

Delete File NameFd + " .idx «&& Видалення індексного файла EndIf.

* Кінець роботи @ 24,0 Wait «Аби повернутися в меню натисніть будь-яку клавішу … «@ 24,0 Clear Return.

7 Печатка упорядкованого по сумарною вартості списку продукції п’яти видов.

* Командний файл Zad3 — печатку упорядкованих даних про вартості продукції set Talk off set Status off set Escape off Clear @ 4,9 to 4,71 Color u/w* @ 3,9 Say «Печатка даних про сумарною вартості продукції з зростанню «Color u/w* @ 12,0 Accept «Запровадьте ім'я файла даних: «to NameFd @ 12,0 Clear If Len (NameFd) >0 && Якщо ім'я файла не запровадили, то друкувати нечего.

Use &NameFd.

* Формування шапки таблицы.

L= «+——————————-+——————————-+ «.

@ 7,17 Say L.

@ 8,17 Say «| Вигляд продукції | Сумарна вартість | «.

@ 9,17 Say L.

* Пошук продукції з найменшою значенням стоимости.

Store 0 to MinAP, LastAP.

For I=1 to 5 && Цикл для п’яти видів продукции.

Do While .Not.EOF () && Цикл пошуку нового минимума.

VP=VidProd && Поточний вид продукции.

RNom=RecNo () && Поточна запись.

Sum Volum*Price For VidProd=VP to AllPrice.

If AllPrice > LastAP.

If AllPrice < MinAP Or MinAP=0.

MinAP=AllPrice.

MinVP=VP.

EndIf.

EndIf.

If RNom < RecCount ().

GoTo RNom+1 && Перехід для наступної запись.

EndIf.

EndDo.

* Формування рядки таблицы.

@ 9+I, 17 Say «| «.

@ 9+I, 19 Say MinVP.

@ 9+I, 39 Say «| «.

@ 9+I, 46 Say MinAP Picture «### ###.## «.

@ 9+I, 61 Say «| «.

LastAP=MinAP && Попереднє мінімальне значение.

&& (нижню межу мінімальних значений).

MinAP=0.

GoTo Top && Відновити перегляд з першого строки.

Next.

* Формування підсумковій частини таблицы.

@ 15,17 Say L.

Close DataBases && Закриття ФД EndIf * Кінець роботи @ 24,0 Wait «Аби повернутися в меню натисніть будь-яку клавішу … «@ 24,0 Clear Return.

Результати решений Выбор створення файла данных.

|1 |Держак |1000 |2,00 | |1 |Олівець |500 |1,50 | |1 |Фломастер |1000 |4,70 | |1 |Чорнило |500 |3,00 | |2 |Держак |1200 |1,85 | |2 |Фломастер |750 |5,00 | |2 |Гумку |5000 |1,20 | |2 |Олівець |1500 |1,35 | |3 |Чорнило |400 |3,20 | |3 |Держак |800 |1,90 | |3 |Олівець |1200 |1,40 | |3 |Фломастер |2000 |4,50 | |4 |Держак |900 |1,85 | |4 |Гумку |200 |2,00 | |4 |Фломастер |1400 |4,70 | |4 |Чорнило |500 |3,05 | |5 |Олівець |700 |1,45 | |5 |Чорнило |1100 |2,60 | |5 |Гумку |1400 |1,65 | |5 |Фломастер |500 |5,30 |.

Вибір читання файла данных Выбор додавання даних в файл данных.

|6 |Гумку |600 |1,55 | |6 |Чорнило |800 |3,10 | |6 |Олівець |1000 |1,55 |.

Вибір виконання Завдання № 1.

Выбор виконання Завдання № 2.

Выбор виконання Завдання № 3.

Выход з СУБД.

Заключение

.

Реляционные СУБД, такі як FoxPro справді є потужним засобом управління великою обсягом даних. СУБД цього дозволяють виробляти швидку сортування великого масиву даних, здійснювати швидкий перехід за записами в довільному порядку, виробляти швидку вибірку великої кількості даних із всього масиву даних із заданим критеріям. У цих реляционных СУБД кожен файл даних сприймається як двовимірна таблиця, стовпчики якої відповідають полях записів, а рядки відповідають окремим записів файла і звернення до даним йде через вказівку номери записи імені поля. У цьому роботу з окремим полем таблиці даних нагадує роботи з перемінними — звернення до даних максимально спрощено, і користувачеві непотрібно знати всю ієрархічну структуру данных.

Мова команд СУБД сімейства Fox містить широкий набір команд, виконують дії складних конструкцій, наприклад, сортування записів файла зводиться лише двом командам. До того ж в СУБД передбачені команди створення світлового меню в організацію прямого діалог із користувачем. Усе це максимально спрощують написання програм, тож підтверджує, що реляционные СУБД сімейства Fox справді є потужними інструментами до створення і методи обробки баз даних великого объема.

1. Лемашко Є.В., Романчуков В. Г. Програмування у системі команд СУБД сімейства Fox: навчальних посібників / ГАУ, М., 1998.

2. Комп’ютерний практикум. Програмування серед Турбо-Паскаль і СУБД типу Fox. Методичні вказівки до виконання курсового проекта.

/Сост.: О. Н. Леонова, І.А. Несмеянов; ГАУ, М., 1998.

———————————;

Do While .Not.EOF ().

Заборона реакції команд.

Завдання кольору экрана.

Len (NameFd) >0.

Len (NameFd) >0.

Wait.

Формування головного меню.

Вибір пункту головного меню.

Вибір пункту подменю.

Do While .T.

Формування подменю.

Case.

L1=0.

Exit.

L1=1.

L1=2.

L1=3.

Case.

L2=3.

L2=2.

L2=1.

AddFd.

ReadFd.

CreateFd.

VidProd=TypeProd.

Висновок шапки таблицы.

Zad3.

Zad2.

Zad1.

L2=3.

L2=2.

L2=1.

Case.

True.

Введення виду продукції, TypeProd.

Quit.

Return.

Очищення экрана.

L2=2.

L2=1.

Case.

Конец.

False.

Do While .T.

Начало.

True.

Wait.

Заборона виведення реакції команд.

Заборона зміни рядки состояния.

Заборона переривання виконання программы.

Введення імені ФД, NameFd.

Wait.

Return.

Do While .Not.EOF ().

False.

False.

Return.

Wait.

Return.

Начало.

Wait.

False.

True.

Висновок вопроса.

Читання 15 записів з ФД.

Заборона виведення реакції команд.

Заборона зміни рядки состояния.

Заборона переривання виконання программы.

Зміна заголовка.

Зміна заголовка.

ABC='Д'.

Формування заголовка.

Формування заголовка.

Очищення экрана.

Очищення экрана.

Create &NameFd.

False.

Create Table &NameFd ().

True.

Введення імені ФД, NameFd.

Append.

Введення імені файла, NameFd.

Введення відповіді (Д/Н) to ABC.

Заборона виведення реакції команд.

Заборона зміни рядки состояния.

Заборона переривання виконання программы.

Начало.

Зміна заголовка.

Формування заголовка.

Очищення экрана.

Len (NameFd) >0.

Начало.

True.

False.

Return.

Заборона виведення реакції команд.

Заборона зміни рядки состояния.

Заборона переривання виконання программы.

Введення імені ФД, NameFd.

Перехід для наступної запись.

Зміна заголовка.

Формування заголовка.

Очищення экрана.

Len (NameFd) >0 And.

Len (TypeProd)>0.

Начало.

True.

Висновок рядки таблицы.

Висновок укладання таблицы.

AvVol=Average (Volum).

AllPrice=Sum (Volum*Price).

Вывод.

AllPrice.

AvVol.

Wait.

False.

Return.

Заборона виведення реакції команд.

Заборона зміни рядки состояния.

Заборона переривання виконання программы.

Введення імені ФД, NameFd.

Формування заголовка.

Очищення экрана.

Len (NameFd) >0.

Начало.

True.

Висновок рядки таблицы.

Висновок шапки таблицы.

Висновок укладання таблицы.

Сортування полем VidProd з допомогою індексного файла.

Do While .Not.EOF ().

AllVol=Sum (Volum).

Висновок укладання таблицы.

AllPrice=Sum (Volum*Price).

Перехід на запис з новим виглядом продукции.

Wait.

Return.

[pic].

Перехід для наступної запись.

AllPrice=Sum (Volum*Price).

Store 0 to MinAP, LastAP.

Начало.

Do While .Not.EOF ().

For I=1 to 5.

Висновок в рядку таблиці MinVP, MinAP.

Висновок шапки таблицы.

False.

Заборона виведення реакції команд.

Введення імені ФД, NameFd.

Формування заголовка.

Очищення экрана.

Len (NameFd) >0.

True.

Перехід до першої записи.

LastAP=MinAP.

[pic].

Заборона переривання виконання программы.

Заборона зміни рядки состояния.

VP=VidProd.

AllPrice>LastAP.

AllPrice.