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

For i = 1 To r

If i <> ir Then

d = x(i, jr)

For j = 0 To n

x(i, j) = x(i, j) - x(ir, j) * d

Next j

End If

Next i

d = f(jr)

For j = 0 To n

f(j) = f(j) - x(ir, j) * d

Next j

p(ir) = jr

' вывод данных в таблицу

grdData.Row = r + 1

For i = 1 To n + 1

grdData.Col = i

grdData.Text = Str(f(i - 1))

Next i

For i = 1 To r

grdData.Row = i

For j = 0 To n + 1

grdData.Col = j

If j = 0 Then

grdData.Text = " = " & Str(p(i))

Else

grdData.Text = Str(x(i, j - 1))

End If

Next j