Материалы сайта
Это интересно
Нахождение опорного плана транспортной задачи
Описание блок-схемы программы Transtask.pas |№ п/п |Содержание | |1 |Начало | |2 |Вызов главной формы | |3 |Выбор метода решения | |4 |Метод минимального элемента | |5 |Вызывается процедура metod 1 | |6 |Метод Фогеля | |7 |Вызывается процедура metod 2 | |8 |Метод двойного предпочтения | |9 |Вызывается процедура metod 3 | |10 |Ввод размерности таблицы перевозок m,n | |11 |Отображение пустой таблицы перевозок m*n | |12 |Ввод таблицы данных:Вектор А, Вектор В, Матрица С | |13 |Проверяется открытая задача | |14 |Да. Введение фиктивного поставщика или потребителя. | |15 |Нет. Решение транспортной задачи. | |16 |Отображение результатов решения | |17 |Конец | Описание Блок-схемы меню определение опорного плана. |№ п.п |Содержание | |1 |Начало | |2 |Метод минимального элемента | |3 |Вызывается программа miniem | |4 |Метод Фогеля | |5 |Вызывается программа Fogel | |6 |Метод двойного предпочтения | |7 |Вызывается программа Double Pref | |8 |Конец | Описание блок-схемы Определение опорного плана транспортной задачи методом минимального элемента. |№ п.п |Содержание | |1 |Начало | |2 |Выбор минимального тарифа | |3 |Определяем i min, j min. | |4 |A min = Min(a i min, b j min) | |5 |Корректируем элементы исходного массива | |6 |A i min =0 | |7 |Исключаем строку i min | |8 |B j min = 0 | |9 |Исключаем столбец j min | |10 |Заносим в матрицу перевозок значение A min | |11 |Проверяем (a i j and b i j) = 0 | |12 |Вычисление целевой функции Z | |13 |Конец | ----------------------- Лист Кп-км-п-44-2203-99 Лист Кп-км-п-44-2203-99