Учебное пособие: Задачи линейного программирования

9.2. Складываем все элементы.

9.3. Сравниваем ответ целевой функции с элементом свободного члена F строки.

10. Получаем оптимальный план.

Текст программы для ЭВМ с операционной системой Win95/Win98

'описание рабочих переменных и констант

Const r = 5 ' строки

Const n = 7 ' столбцы

Private p, f, xn(r), fm

Private x(r, n)

Private Sub btnExit_Click()

'процедура выхода из пограммы

End

btnExit.Caption = "Готово"

End Sub

' присвоение значений переменным

i = 0

u = 1

' распределение данных по строкам и столбцам

1: While u <= n

If f(u) < 0 And i = 0 Then

i = u

End If

If f(u) = 0 Then

tr = 0

For j = 1 To r

If u = p(j) Then

tr = 1

End If

Next j

If tr = 0 Then