Приложение 2. Листинг программы.

Текст программы. Основное задание.

; Вариант 1.1.1

Qmax EQU 1 ; Ограничение очереди

GENERATE 20,10

QUEUE 1

TEST G Q1,Qmax,MASTER; Если очередь больше Qmax

TRANSFER BOTH,MASTER,UCHENIK; Подключить учеников

MASTER SEIZE 1

DEPART 1

ADVANCE (Exponential (2,0,60/3 ))

RELEASE 1

TRANSFER ,VIHOD

UCHENIK SEIZE 2

DEPART 1

ADVANCE (Exponential (2,0,60/6))

RELEASE 2

VIHOD TERMINATE

GENERATE 60 ; минут

TERMINATE 1

START 8 ; часов

; Вариант 1.1.2

Qmax EQU 1 ; Ограничение очереди

GENERATE 10,5

QUEUE 1

TEST G Q1,Qmax,MASTER; Если очередь больше Qmax

TRANSFER BOTH,MASTER,UCHENIK; Подключить учеников

MASTER SEIZE 1

DEPART 1

ADVANCE (Exponential (2, 0, 60/3))

RELEASE 1

TRANSFER ,VIHOD

UCHENIK SEIZE 2

DEPART 1

ADVANCE (Exponential (2, 0, 60/6))

RELEASE 2

VIHOD TERMINATE

GENERATE 60 ; минут

TERMINATE 1

START 8 ; часов

; Вариант 1.1.3

Qmax EQU 1 ; Ограничение очереди

GENERATE 30,5

QUEUE 1

TEST G Q1,Qmax,MASTER; Если очередь больше Qmax

TRANSFER BOTH,MASTER,UCHENIK; Подключить учеников

MASTER SEIZE 1

DEPART 1

ADVANCE (Exponential (2, 0, 60/3))

RELEASE 1

TRANSFER ,VIHOD

UCHENIK SEIZE 2

DEPART 1

ADVANCE (Exponential (2, 0, 60/6))

RELEASE 2

VIHOD TERMINATE

GENERATE 60 ; минут

TERMINATE 1

START 8 ; часов

Задание с учетом дополнения.

Qmax EQU 2 ; Ограничение очереди

GENERATE 20,10

QUEUE 1

TEST G Q1, Qmax, MASTER; Если очередь больше Qmax

TRANSFER BOTH, MASTER,A; Подключить учеников

A TRANSFER PICK, UCH1, UCH2

UCH1 TRANSFER ,UCHENIK1

UCH2 TRANSFER ,UCHENIK2

MASTER SEIZE 1

DEPART 1

ADVANCE (Exponential (2, 0, 60/3))

RELEASE 1

TRANSFER ,VIHOD

UCHENIK1 SEIZE 2

DEPART 1

ADVANCE (Exponential (2, 0, 60/6))

RELEASE 2

UCHENIK2 SEIZE 2

DEPART 1

ADVANCE (Exponential (2, 0, 60/6))

RELEASE 3

VIHOD TERMINATE

GENERATE 60 ; минут

TERMINATE 1

START 8 ; часов

Qmax EQU 2 ; Ограничение очереди

GENERATE 10,5

QUEUE 1

TEST G Q1,Qmax,MASTER; Если очередь больше Qmax

TRANSFER BOTH,MASTER,A; Подключить учеников

A TRANSFER PICK,UCH1,UCH2

UCH1 TRANSFER , UCHENIK1

UCH2 TRANSFER , UCHENIK2

MASTER SEIZE 1

DEPART 1

ADVANCE (Exponential (2, 0, 60/3))

RELEASE 1

TRANSFER ,VIHOD

UCHENIK1 SEIZE 2

DEPART 1

ADVANCE (Exponential (2, 0, 60/6))

RELEASE 2

UCHENIK2 SEIZE 2

DEPART 1

ADVANCE (Exponential (2, 0, 60/6))

RELEASE 3

VIHOD TERMINATE

GENERATE 60 ; минут

TERMINATE 1

START 8 ; часов

Qmax EQU 2 ; Ограничение очереди

GENERATE 30,5

QUEUE 1

TEST G Q1,Qmax,MASTER; Если очередь больше Qmax

TRANSFER BOTH,MASTER,A; Подключить учеников

A TRANSFER PICK,UCH1,UCH2

UCH1 TRANSFER ,UCHENIK1

UCH2 TRANSFER ,UCHENIK2

MASTER SEIZE 1

DEPART 1

ADVANCE (Exponential (2, 0, 60/3))

RELEASE 1

TRANSFER ,VIHOD

UCHENIK1 SEIZE 2

DEPART 1

ADVANCE (Exponential (2, 0, 60/6))

RELEASE 2

UCHENIK2 SEIZE 2

DEPART 1

ADVANCE (Exponential (2, 0, 60/6))

RELEASE 3

VIHOD TERMINATE

GENERATE 60 ; минут

TERMINATE 1

START 8 ; часов