.

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

Язык: русский
Формат: курсова
Тип документа: Word Doc
0 578
Скачать документ

Государственный Университет Управления

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

Специальность – менеджмент

Объяснительная записка к курсовому проекту

по дисциплине «Компьютерная подготовка»

по теме: «Алгоритмизация и программирование процессов

обработки данных в среде СУБД типа Fox»

Выполнил студент

Студенческий билет №

Группа №УП4-1-98/2

Вариант №2

Адрес:

Москва, 1999 г.

Содержание.

TOC \o “1-3″ 1. Введение PAGEREF _Toc466188644 \h 3

2. Задание на курсовой проект PAGEREF _Toc466188645 \h 4

3. Анализ и постановка задачи PAGEREF _Toc466188646 \h 4

4. Формализация задачи PAGEREF _Toc466188647 \h 5

5. Алгоритмы PAGEREF _Toc466188648 \h 6

5.1. Создание двухуровневого светового меню PAGEREF _Toc466188649 \h
6

5.2. Создание файла данных PAGEREF _Toc466188650 \h 7

5.3. Чтение файла данных PAGEREF _Toc466188651 \h 8

5.4. Добавление данных в файл данных PAGEREF _Toc466188652 \h 9

5.5. Печать сведений о суммарной стоимости продукции заданного вида по
каждому предприятию и о среднем выпуске этой продукции одним
предприятием. PAGEREF _Toc466188653 \h 10

5.6. Печать сведений о суммарной стоимости и суммарном выпуске каждой
продукции. PAGEREF _Toc466188654 \h 11

5.7. Печать упорядоченного по суммарной стоимости списка продукции пяти
видов PAGEREF _Toc466188655 \h 12

6. Программы PAGEREF _Toc466188656 \h 13

6.1. Создание двухуровневого светового меню PAGEREF _Toc466188657 \h
13

6.2. Создание файла данных PAGEREF _Toc466188658 \h 15

6.3. Чтение файла данных PAGEREF _Toc466188659 \h 16

6.4. Добавление данных в файл данных PAGEREF _Toc466188660 \h 17

6.5. Печать сведений о суммарной стоимости продукции заданного вида по
каждому предприятию и о среднем выпуске этой продукции одним
предприятием. PAGEREF _Toc466188661 \h 18

6.6. Печать сведений о суммарной стоимости и суммарном выпуске каждой
продукции. PAGEREF _Toc466188662 \h 20

6.7. Печать упорядоченного по суммарной стоимости списка продукции пяти
видов PAGEREF _Toc466188663 \h 21

7. Результаты решений PAGEREF _Toc466188664 \h 22

8. Заключение PAGEREF _Toc466188665 \h 29

9. Список литературы PAGEREF _Toc466188666 \h 30

Введение

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

СУБД типа Fox сохраняет преемственность по отношению к более ранним
представителям dBase – подобных СУБД, в отношении структуры баз данных,
команд создания и обработки данных, основных типов данных. В тоже время
каждая последующая СУБД обладает большими возможностями по сравнению с
предыдущими. Так, например, Visual FoxPro по сравнению с FoxPro обладает
более значительными изобразительными возможностями.

Данная работа использует язык команд СУБД семейства Fox. Используемые
команды, в основном, применимы во всех СУБД этого типа, но отладка
велась на русифицированной СУБД FoxPro для Windows версии 2.5b.

Задание на курсовой проект

Структура ЗАПИСИ исходного ДОКУМЕНТА:

Код предприятия Вид продукции Объем выпуска Цена единицы продукции

Необходимо:

Определить суммарную стоимость продукции заданного вида и ее средний
выпуск одним предприятием.

Для каждого из пяти видов продукции определить суммарную стоимость и
суммарный выпуск.

Выдать на печать в порядке возрастания суммарной стоимости продукцию
пяти видов.

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

Исходные данные задачи представляют собой записи заданной структуры,
которые должны вводиться с клавиатуры, а затем выводиться в файл данных
на магнитный диск. Следовательно, одной из подзадач должна быть задача
создания файла данных на магнитном диске.

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

Затем необходимы еще три подзадачи, решение которых позволяет выполнить
три пункта курсовой работы:

Выдача сведений о суммарной стоимости продукции заданного вида по
каждому предприятию и о среднем выпуске этой продукции одним
предприятием.

Выдача сведений о суммарной стоимости и суммарном выпуске каждой
продукции.

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

Кроме того, для диалога пользователя с системой необходимо создать так
называемое, «Меню».

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

В среде СУБД типа Fox каждая подзадача может оформляться в виде
отдельного командного файла с расширением .prg и заканчиваться
оператором возврата в вызывающий командный файл.

В данном случае основным командным файлом является файл MainMenu.prg,
который формирует полное экранное меню и осуществляет вызов других
командных файлов, в зависимости от выбранного пункта меню:

CreateFd.prg – создание файла данных;

ReadFd.prg – чтение созданного файла данных;

AddFd.prg – добавление данных в созданный файл данных;

Zad1.prg – выдача сведений о суммарной стоимости продукции заданного
вида по каждому предприятию и о среднем выпуске этой продукции одним
предприятием;

Zad2.prg – выдача сведений о суммарной стоимости и суммарном выпуске
каждой продукции;

Zad3.prg – выдача на печать продукции пяти видов в порядке возрастания
ее суммарной стоимости.

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

Алгоритмы

Создание двухуровневого светового меню

Создание файла данных

Чтение файла данных

Добавление данных в файл данных

Печать сведений о суммарной стоимости продукции заданного вида по
каждому предприятию и о среднем выпуске этой продукции одним
предприятием.

Печать сведений о суммарной стоимости и суммарном выпуске каждой
продукции.

Печать упорядоченного по суммарной стоимости списка продукции пяти
видов

Программы

Создание двухуровневого светового меню

* Командный файл иерархического меню 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

Создание файла данных

* Командный файл 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

Чтение файла данных

* Командный файл 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

Добавление данных в файл данных

* Командный файл 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

Печать сведений о суммарной стоимости продукции заданного вида по
каждому предприятию и о среднем выпуске этой продукции одним
предприятием.

* Командный файл 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

Печать сведений о суммарной стоимости и суммарном выпуске каждой
продукции.

* Командный файл 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

Печать упорядоченного по суммарной стоимости списка продукции пяти
видов

* Командный файл 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=0MinAP=AllPriceMinVP=VPEndIfEndIfIf RNom < RecCount()GoTo RNom+1 && Переход на следующую записьEndIfEndDo* Формирование строки таблицы@ 9+I,17 Say '|'@ 9+I,19 Say [email protected] 9+I,39 Say '|'@ 9+I,46 Say MinAP Picture '### ###.##'@ 9+I,61 Say '|'LastAP=MinAP && Предыдущее минимальное значение&& (нижняя граница минимальных значений)MinAP=0GoTo Top && Возобновить просмотр с первой строкиNext* Формирование итоговой части таблицы@ 15,17 Say LClose DataBases && Закрытие ФДEndIf* Конец работы@ 24,0Wait 'Для возврата в меню нажмите любую клавишу ...'@ 24,0 ClearReturnРезультаты решенийВыбор создания файла данных1 Ручка 1000 2,001 Карандаш 500 1,501 Фломастер 1000 4,701 Чернила 500 3,002 Ручка 1200 1,852 Фломастер 750 5,002 Ластик 5000 1,202 Карандаш 1500 1,353 Чернила 400 3,203 Ручка 800 1,903 Карандаш 1200 1,403 Фломастер 2000 4,504 Ручка 900 1,854 Ластик 200 2,004 Фломастер 1400 4,704 Чернила 500 3,055 Карандаш 700 1,455 Чернила 1100 2,605 Ластик 1400 1,655 Фломастер 500 5,30Выбор чтения файла данныхВыбор добавления данных в файл данных6 Ластик 600 1,556 Чернила 800 3,106 Карандаш 1000 1,55выполнения Задания №123Выход из СУБДЗаключениеРеляционные СУБД, такие как FoxPro действительно являются мощным средством управления большим объемом данных. СУБД этого типа позволяют производить быструю сортировку большого массива данных, осуществлять быстрый переход по записям в произвольном порядке, производить быструю выборку большого количества данных из всего массива данных по заданным критериям. В таких реляционных СУБД каждый файл данных рассматривается как двумерная таблица, столбцы которой соответствуют полям записей, а строки соответствуют отдельным записям файла и обращение к данным идет через указание номера записи имени поля. При этом работа с отдельным полем таблицы данных напоминает работу с переменными – обращение к данным максимально упрощено, и пользователю не нужно знать всю иерархическую структуру данных.Язык команд СУБД семейства Fox содержит широкий набор команд, выполняющих действия сложных конструкций, например, сортировка записей файла сводится только к двум командам. Помимо этого в СУБД предусмотрены команды создания светового меню для организации прямого диалога с пользователем. Все это максимально упрощают написание программ и подтверждает, что реляционные СУБД семейства Fox действительно являются мощным инструментом для создания и обработки баз данных большого объема.Список литературыЛемашко Е.В., Романчуков В.Г. Программирование в системе команд СУБД семейства Fox: учебное пособие / ГАУ, М., 1998.Компьютерный практикум. Программирование в среде Турбо-Паскаль и СУБД типа Fox. Методические указания к выполнению курсового проекта. /Сост.: О.Н. Леонова, И.А. Несмеянов; ГАУ, М.,1998.- PAGE 30 -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

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

2

1

1

2

Вывод заключения таблицы

AvVol=Average(Volum)

AllPrice=Sum(Volum*Price)

Вывод

AllPrice

AvVol

Wait

False

Return

Запрет вывода реакции команд

Запрет изменения строки состояния

Запрет прерывания выполнения программы

Ввод имени ФД, NameFd

2

1

Формирование заголовка

Очистка

экрана

Len(NameFd) >0

Начало

True

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

Вывод шапки таблицы

Вывод заключения таблицы

Сортировка по полю VidProd с помощью индексного файла

Do While .Not.EOF()

AllVol=Sum(Volum)

Вывод заключения таблицы

AllPrice=Sum(Volum*Price)

Переход на запись с новым видом продукции

1

2

1

2

Wait

Return

1

Переход на следующую запись

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

Запрет прерывания

выполнения программы

Запрет изменения

строки состояния

2

VP=VidProd

AllPrice>LastAP

AllPrice

Нашли опечатку? Выделите и нажмите CTRL+Enter

Похожие документы
Обсуждение

Оставить комментарий

avatar
  Подписаться  
Уведомление о
Заказать реферат
UkrReferat.com. Всі права захищені. 2000-2019