Имитационное моделирование фрагмента центра коммутации и анализ его параметров, страница 7

Алгоритм подпрограммы  ent_bufer

Подпрограмма вызывается из тела процедуры serv и выполняет функции сервера необходимые для ввода заявки из буфера.

Переменная V используется в качестве параметра для передачи в подпрограмму номера свободной линии сервера. В начале выполнения подпрограммы проверяется есть ли в очереди заявки при отсутствии таковых выполнение подпрограммы завершается. В противном случае выполняются операторы представленные с третьего по восьмой блоки алгоритма.

Третий блок записывает номер соединительной линии записанный в первой ячейке очереди , затем в следующем блоке эта  информация выводится на дисплей.

Пятый блок освобождает буфер от считанной  в  третьем  блоке  заявки .

В шестом блоке в промежуточную переменную записывается номер соединительной линии  затем в седьмом блоке в массив записывается метка занятия . После считывания заявки из буфера  запускается подпрограмму упорядочивания structuir_bufer . 

Алгоритм подпрограммы  serv

 

1

 

                                                        2

                                     да                                                                     нет

 

                                                           3 да                                               нет

 

4                                                                 5

 

Ent_bufer(v)

              6                                                                                           7

                                                                                          да                                      нет

                                                                                                                                     

8

	Writeln(‘конец обслуживания линии' ,server[v]') S_line[b]=0 Server[v]=0 Ent_bufer(v)

 

Описание алгоритма подпрограммы  serv

Процедура  serv моделирует работу прибора обслуживания заявок сервера.

Вся подпрограмма выполняется в цикле (описанном во втором блоке) с заданным количеством повторений равным емкости сервера.  На каждом витке цикла проверяется условие три, свободен ли прибор. Если сервер не обслуживает заявку то на дисплей  выводится сообщение четыре и вызывается подпрограмма ввода заявки из очереди Ent_bufer с параметром содержащим номер свободного сервера. В противном случае на экран выводится номер обслуживаемой линии , затем  седьмой блок алгоритма осуществляет проверку конца обслуживания заявки. При выполнении этого условия содержимое данной линии сервера обнуляется и с помощью процедуры вводится следующая заявка.

Алгоритм подпрограммы  itog

 

Write(‘n=’n) Write(‘otk1=’,otk1) Write(‘otk2=’,otk2) Write(‘otk3=’,otk3)

                                                  1              

 

2

 

                                                            

да                                           нет

 

                                                            4

да                                                  нет

 

5                                                         6