Читать учебное пособие по информатике, вычислительной технике, телекоммуникациям: "Задачи линейного программирования" Страница 6

(Назад) (Cкачать работу)

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 = 48 And KeyAscii = 48 And KeyAscii

Похожие работы