Лабораторная работа: Моделирование торгового центра

Kotk = 0

Noch = 0

Toj = 0

Tsis = 0

Kobs = 0

Tnezan = 0

Tpost = 0

l = Val(Text1.Text)

Tobss = Val(Text2.Text)

m = Val(Text3.Text)

tzad = Val(Text4.Text)

Kmax = Val(Text5.Text)

ReDim Toch(m) As Double

ReDim Tosv(n) As Double

For i = 1 To n

Tosv(i) = 0

Next i

10: x = Rnd(x)

T = -1 / l * Log(x)

Tpost = Tpost + T

k = k + 1

If k > Kmax Then

GoTo 100

End If

30: Pmin = 1

Tmin = Tosv(1)

For i = 1 To n

If Tosv(i) < Tmin Then

Pmin = i