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

GoTo 5

End If

End If

40: List1.AddItem ("Всего поступило агрегатов = " + Str(K))

List1.AddItem ("Кол-во агрегатов прошедшие регулировку = " + Str(Kobs))

List1.AddItem ("Кол-во агрегатов оставшиеся в накопителе для 1-ой регулировки = " + Str(p))

List1.AddItem ("Кол-во агрегатов прошедшие 1-ю и 2-ю регулировку = " + Str(a2))

List1.AddItem ("Кол-во агрегатов оставшиеся в накопителе для 2-й регулировки = " + Str(n))

List1.AddItem ("Загрузка накопителя агрегатами нуждающиеся в 1-ой регулировке = " + Str(L1 / K))

List1.AddItem ("Коэффициент простоя системы = " + Str((Tnezan1 + Tnezan2) / Tmod))

List1.AddItem ("ВМЕСТИМОСТЬ НАКОПИТЕЛЬЯ ДЛЯ ПЕРВИЧНОЙ РЕГУЛИРОВКИ" + Str(Vmestimost))

End Sub

Список литературы

1. Советов Б. Я., Яковлев С. А. Моделирование систем: Учеб. Для вузов 3-е издание, перераб. И доп. – М: Высш. Школа, 2001 – 343 с.

2. Советов Б. Я., Яковлев С. А. Моделирование систем: Курсовое проектирование: Учеб. Пособие по специальности АСУ. – М: Высш. Школа, 1988 м – 135 с.