Лабораторная работа: Разработка подсистемы управления оптимального плана выпуска изделий

If a (1, j1) < 0 And a (2, j1) < 0 Then

MsgBox «Оптимального решения не существует»

GoTo x3

End If

dmin = 100000

For i = 1 To 2

d1 = a (i, 1) / a (i, j1)

If dmin > d1 Then

dmin = d1

i1 = i

End If

Next i

ra = a (i1, j1)

For i = 1 To 3

For j = 1 To 4

If i <> i1 And j <> j1 Then

a (i, j) = ((a (i, j) * ra) – (a (i, j1) * (a (i1, j)))) / ra

End If

Next j

Next i

For i = 1 To 3

For j = 1 To 4

If i = i1 And j = j1 Then

a (i, j) = 1 / ra

End If

If i = i1 And j <> j1 Then

a (i, j) = a (i, j) / ra

End If

If j = j1 And i <> i1 Then