Курсовая работа: Регулировочный участок цеха

TochP(m - 1) = Tpost

TochP(m) = Tpost

GoTo 5

Else

If m = 0 Then

m = 1

LP = LP + m

TochP(m) = Tpost

Kobs = Kobs + 1

ap = ap + 1

TnezanP = Tpost - TosvP

TobsP = Tau_obs_polnaya_regul

TosvP = Tpost + TobsP

TsisP = TsisP + TobsP

List2.AddItem (Str(Kobs) + " агрегат - " + Str(TobsP))

GoTo 5

Else

m = m + 2

TochP(m) = Tpost

TochP(m - 1) = Tpost

VojP = TosvP - TochP(1)

For i = 1 To m - 1

TochP(i) = TochP(i + 1)

Next i

m = m - 1

LP = LP + m

TojP = TojP + VojP

TobsP = Tau_obs_polnaya_regul

TsisP = TsisP + TobsP + VojP