Реферат: Моделирование системы массового обслуживания

Министерство образования и науки Республики Казахстан

Карагандинский государственный технический университет

Кафедра САПР

ПОЯСНИТЕЛЬНАЯ

ЗАПИСКА

к курсовой работе

по дисциплине «Прикладная теория систем»

Тема: «Моделирование системы массового обслуживания»

Руководитель

Студент

Караганда 2009


Содержание

Введение

Постановка задачи

Описание программного модуля

Руководство программиста

Руководство пользователя

Заключение

Список использованных источников

Приложение


Введение

С развитием новых технологий, в нашу жизнь вошло такоепонятие как моделирование. Компьютерное моделирование сегодня используетсяпрактически во всех сферах человеческой деятельности. Это связано, во-первых, суменьшением затрат и времени на разработки, ведь сделать виртуальные просчет накомпьютере или смоделировать в программе необходимое техническое оборудование вдесятки раз быстрее и легче, нежели строить модель вручную. Моделированиехорошо еще и тем, что не требуется вмешательства в работу данной организации — послесоздания модели с ней можно проводить любые испытания и эксперименты.

А, во-вторых, это связано с необходимостью на практикерешать различные вероятностные задачи, связанные с системами массовогообслуживания (СМО). Примерами таких систем могут служить: телефонные станции,всевозможные кассы, стоянки, какие-либо каналы, принимающие и обрабатывающиесигналы, учреждения, куда поступают различные заявки и т.п.

Целью выполнения работы является создание программы,моделирующей систему массового обслуживание. По введенным параметрам программадолжна позволять производить анализ работы системы и выдавать результат. Цельюпрограммы также является приобретение знаний в моделировании, как общих систем,так и систем массового обслуживания в частности. Необходимо получить навыкисистемного исследования реальной динамической сложной системы на основепостроения ее имитационной модели.

Темой данного курсового проекта является моделированиеработы турникетов на стадионе- многоканальной СМО. В качестве средыпрограммирования была выбрана визуальная среда Delphi7, которая удовлетворяет всем требованиям по созданию визуальных приложений дляоперационной среды Microsoft Windows.


Постановка задачи

В данном курсовом проекте необходимо создать программу,которая имитирует работу турникетов на стадионе. По введенным параметрам работысистемы: среднему времени появления зрителя, времени его обслуживания, количествуаппаратов обслуживания, количеству зрителей или ограничению времени, позволяетпользователю производить анализ о количестве необходимых аппаратов обслуживанияи их загруженности, состояния в определенный момент времени и эффективностиработы. Так же имеются зрители-гости, приходящие по пригласительным билетам,которые пропускаются без очереди. Время появления и обслуживания таких зрителейтакже может быть задано пользователем. Очередь к каждому турникету своя. Выбораппарата обслуживания зрителем строится по принципу: где меньше народа.

Описание программного модуля

При запуске программы, для начала процесса моделирования,необходимо ввести параметры моделирования. Во всех полях введены значения поумолчанию. При нажатии на кнопку СТАРТ происходит инициализация всехпеременных, и чтение параметров моделирования. Так как чтение параметровпроисходит не однократно, для правильной работы, защиты от некорректного вводаданных и легкости понимания была написана функция Zna4_Read, которая по введенному компоненту класса TEdit, минимальному значению и максимальному значению,возвращает значение введенного параметра.

Function Zna4_Read (ET: TEdit; Min: Integer;Max: Integer): Integer;

Var

Zn: Integer;

Begin

Try

Zn: =StrToInt (ET. Text);

Except

ShowMessage ('Значение поля не корректно!!! ');

End;

if Zn<Min Then Zn: =Min;

if Zn>Max Then Zn: =Max;

ET. Text: =IntToStr (Zn);

Result: =Zn;

End;

Если значение компонента ET меньшеминимального, то оно будет присвоено минимальному значению, передаваемому вфункцию, а если больше максимального значения, то значение параметра станетмаксимальным, переданным функции. После того как все параметры считаны,запускается процедура ReNew, параметром которойявляется заданное количество аппаратов обслуживания. Процедура инициализируетполя класса TApparat, описанные в руководствепрограммиста и создает компоненты информирующие пользователя о состоянии работыаппарата.

Затем функцией TIMERANDOM, задаетсявремя, через которое появятся обычный зритель и зритель по приглашению: Random_4el и Random_Guest. Функция TimeRandom возвращаетслучайное число в заданном промежутке.

Function TForm1. TimeRandom;

Begin

Result: =Random (Max-Min+1) +Min;

End;


После чего кнопка STARTпереименовывается в STOP, и выполняется запуск таймера,который и выполняет моделирование системы массового обслуживания.

В программе используются глобальные переменные Time_Guest и Time_4el, которые характеризуются временем, пройденным с моментапоявления зрителя. На каждое выполнение таймера происходит инкрементация этихпеременных. Если Time_Guest становится равной Random_Guest, следовательно, настало время появления зрителя поприглашению, если Time_4elравняется Random_4el — время появления обычного зрителя. Для добавления зрителейиспользуются процедуры Add_G и Add_4el, которые добавляют зрителя всамую свободную очередь, в ее начало или конец, в зависимости от статусазрителя. Так же происходит переприсвоение переменных Random_Guest и Random_4el,и обнуление Time_Guest и Time_4el.

В дальнейшем выполняется циклический проход по всемаппаратам обслуживания, в котором выполняются следующие действия:

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

Если аппарат свободен, увеличивается время его простоя иотображается информация, что аппарат свободен (зеленый кружок).

Если закончено время обслуживания аппаратом (T_Obsl=R_Obsl)

Увеличивается количество обслуженных аппаратом заявок

Увеличивается количество зрителей прошедших на стадион

Сокращается очередь у аппарата обслуживания

Если очередь равна нулю, то аппарат переходит в состояние«свободен» (Status=False)

Если очередь неравна нулю, то на обслуживания поступаетзритель, находящийся в очереди первым

Обновляются данные в диаграммах представляемых пользователю.

Если количество пройденных на стадион человек достигло необходимогоколичества человек, которым нужно пройти, или пользователь нажал на кнопку STOP:

Работа таймера останавливается

Запускается процедура Show_Report

Удаляются компоненты информирующие пользователя о работеаппарата обслуживания.

Процедура Show_Reportдобавляет информацию о моделировании системы в файл отчета. Процедура Show_Report описана в приложении.

При нажатии на кнопку ОТЧЕТ пользователю отображается окно сотчетами об экспериментах. В программе также предусмотрена возможность выводаотчета в отдельном окне.

Руководство программиста

Все файлы проекта располагаются в директории с наименованиемтурникет-смо. В проект входят: файл проекта Delphi Lab_SMO. dpr, файлы исходного текста программы Programma,Unit2, Settings и Results, файл справки (Руководство пользователя) иисполняемый файл Lab_SMO. exe.

Программа работает с двумя классами TTurniketи T4el. TTurniketпредставляет собой класс содержащий в себе поля, характеризующие аппаратобслуживания.

TTurniket = object// Аппарат

Lab: TLabel;// Label используется для вывода результатов

Status: Boolean;// Статус. Занят или свободен

T_Obsl: Integer;

R_Obsl: Integer;

Zayavki: Integer;// Кол-во заявок на аппарат

Rabota: Integer;// Время работы

Prostoy: Integer;// Время простоя

Queue_Len: Integer; // Длина очереди

Queue: ATimeRandomay [1. .1000] of T4el; // Массив зрителей

End;

Status — логическая переменная по значению которой программе ясно занят аппаратобслуживания или нет. Значение True (Истина) — занят, False (Ложь) — свободен. T_Obsl — поле содержащее в себезначение о времени, пройденном с начала обслуживания зрителя аппаратом. R_Obsl — время требуемое на обслуживание пришедшего зрителя. Задается случайно, впромежутке, заданном пользователем. Поле Zayavkiсодержит числовое значение равное количеству заявок обслуженных этим аппаратом.Поля Rabota и Prostoyсоответствуют времени, в секундах, которое аппарат провел в рабочем состоянии ипростоял в бездействии. Поле Queue_Lenсоответствует количеству человек, находящихся в очереди. Поле Queueявляется массивом типа T4el, вкотором хранится информация о зрителях находящихся в очереди.

T4el = object // Человек в очереди

Status: Byte; // статус (может быть гостем)

T_in_Queue: Integer; // Время проведенное в очереди

End;

Класс T4elсодержит в себе только два поля Status, обычный зрительили гость по приглашению, 0 — обычный зритель, 1 — гость по приглашению и T_in_Queue, время,проведенное зрителем в очереди.

Ниже приведены глобальные переменные, используемые впрограмме.

Eksp: Integer;// Номер эксперимента

Time: LongInt;// Общее время

G_Count: Integer; // Поступившие гости

Turn_Count: Integer; // Кол-во аппаратов

Turnikets: ATimeRandomay [1. .100] ofTTurniket; // Масив аппаратов

ComeMin: Integer; // Мин. время появления зрителя

ComeMax: Integer;// Макс время появления зрителя

ServeMin: Integer;// Мин. время обслуживания зрителя

ServeMax: Integer;// Макс. время обслуживания зрителя

G_ComeMin: Integer; // Мин. время появления гостя

G_ComeMax: Integer; // Макс. время появления гостя

G_ServeMin: Integer; // Мин. время обслуживания гост

G_ServeMax: Integer; // Макс. время обслуживания гостя

People_Count:Integer; // Макс. кол-во транзакций (зрителей)

Count_Of_F_People: Integer; // Текущеекол-во транзакций

Speed: Integer;// Скорость моделирования

Max_Queue: Integer; // Макс. очередь

Full_Queue_Len: Integer; // Длина всей очереди

AverageQueue: Real;// Средняя длина очереди

Time_4el: Integer;

Random_4el: Integer;

Time_Guest: Integer;

Random_Guest: Integer;

Kartinka,k: byte;

change: boolean;

SetTime: Integer;

s: string; // picture;

В программе используются процедуры и функции, которыенаписаны для удобства работы и понимания программы.


Function Zna4_Read (ET: TEdit; Min: Integer;Max: Integer): Integer;

 // чтение значения из компонента,проверка на корректность и допустимые значения

Procedure ReNew (Ap_Cnt: Integer); // Обновлениеаппаратов

Function TIMERANDOM (Min: Integer; Max: Integer):Integer; // Случайная величина в заданном промежутке

Procedure Add_4el; // Добавление зрителя в очередь

Procedure Add_G; // Добавление гостя в очередь

Procedure Show_Report; // Добавление записей в лист отчета

Работа всех этих функций и процедур описана в приложениикурсового проекта.

Руководство пользователя

Исполняемый файл программы, Lab_SMO. exe, рекомендуется скопировать вдиректорию c: \SMO, и создатьярлык программы на рабочем столе.

При запуске программы появляется окно изображенное нарисунке 1.

Нажав F3 или команду «Общие»в меня «Настройки» в строке меню можно ввести или изменить исходныеданные и параметры системы.

Время появления зрителя — это интервал времени, в промежуткекоторого существует вероятность появления зрителя. Например, при заданномвремени появления зрителя от 1 до 7 секунд, зрители могут прийти в любое времяиз промежутка 1..7сек. Время появления вычисляется генератором случайных чиселв заданном промежутке. Среднее значение появления зрителя будет стремиться ксреднему значению заданного интервала.


/>

Рисунок 1. Главное окно программы

Время обслуживания — это время, затраченное на обслуживаниезрителя в процессе его прохождения на стадион. Время обслуживания так жевычисляется генератором случайных чисел в заданном пользователем промежуткевремени.

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

Все эти параметры являются временными характеристиками изадаются в секундах.

Количество турникетов (аппаратов обслуживания) такжезадается пользователем. Эта характеристика является ключевой для работы системыв целом, она определяет сколько параллельных обслуживаний может производится вмомент времени. В процессе моделирования, по заданным параметрам, необходимоустановить, сколько аппаратов обслуживания необходимо использовать дляэффективной работы системы, т.е. чтобы все турникеты были максимальнозадействованы, но ожидание в очереди зрителя было бы минимальным.

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

Также в программе предусмотрен вариант ограничения времени, т.е.процесс моделирования остановится, как только пройдет отведенное время (можнозадавать в секундах, минутах и часах). Ограничение по времени имеет приоритетвыше, чем ограничение по количеству человек, т.е. даже если не все зрителиуспели пройти на стадион, а установленное время моделирование закончилось,процесс остановится.

Скорость моделирования — характеристика, определяющаяскорость моделирования. Минимальное значение равно 1 и соответствует реальнойскорости. Введенное значение определяет, сколько секунд моделированиявыполняется за одну секунду реального времени. Максимальное значение равно 1000.

После того как введены параметры работы системы, необходимонажать на кнопку «СТАРТ», для начала процесса моделирования. Изображениеокна в процессе моделирования изображено на рисунке 2.

При установке флажка, т.е. при включении функции «Ограничитьвремя» внизу появляется StatusBar, на которомотображается, сколько всего от общего времени уже прошло. Справа расположеноизображение телевизора, картинка в «телевизоре» меняется каждые 100единиц времени. Синим цветом обозначена надпись о том, сколько всего человекуже прошло, зеленым — время моделирования, ниже находятся данные по состояниюкаждого турникета: занят или свободен, если занят, то какова очередь.

/>

Рисунок 2. Главное окно программы в процессе моделирования

На второй вкладке «Результаты» в процессемоделирования можно наблюдать работу турникетов на изменяющейся диаграмме, наней показана производительность в процентах от общей работы каждого турникета. Послеостановки моделирования слева появляется отчет по эксперименту. В меню «Настройки»à «Результатов»можно выбрать «вывод результатов в отдельном окне».


/>

Рисунок 3. Вкладка «Результаты»

При повторных экспериментах моделирования результатыотображаются в этом же окне, но ниже, что позволяет производить сравнение. Но вменю «Настройки», выбрав команду «Результатов» можно такжеотключить показания предыдущих результатов. Отчет можно сохранить, по умолчаниюэто будет текстовый файл (*. txt). Сохранение отчетаможно произвести, нажав на одну из кнопок сохранения отчета: на панелиинструментов, в меню «Файл».

Если у пользователя возникают вопросы по работе спрограммой, при нажатии кнопки F1, см. рисунок 4, иливыбора соответствующей команды в меню «Справка», запускается окноруководства пользователя.


/>

Рисунок 4. Окно «Справка»


Заключение

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

Программа позволяет сохранять результаты экспериментов вфайл, что тоже сопутствует проведению исследования. Написанное программноесредство в ходе моделирования визуально показывает пользователю основныепараметры системы. Если у пользователя возникают вопросы по работе спрограммой, нажатие клавиши F1 позволяет вызвать подробнуюсправку, что делает программу понятной для любого пользователя.

Проводя исследования работы данной системы, можно опиратьсяна то, что при свободных аппаратах обслуживания, зритель идет в первыйсвободный аппарат, что позволяет определить загруженность системы по работепоследнего аппарата и среднего времени проведенному зрителями в очереди. Еслисистема работает не в полную силу, то по диаграмме «Выполнение заявок»видно, что большая часть заявок обслуживается первым аппаратом, а длина очередистремится к нулю. Показатель эффективности последнего аппарата при этом тожеостается низким. Пример не эффективной работы системы приведен на рисунке 6. Еслиже количество аппаратов обслуживания мало, и аппараты не успевают справляться споступающими заявками, то система перегружена, и зрители подолгу находятся вочередях. Показатели эффективности работы всех аппаратов стремятся к 100%, аколичество обслуженных аппаратами заявок приблизительно равно. Примерперегруженной системы приведен на рисунке 7. Наиболее эффективная работасистемы достигается при эффективности последнего аппарата обслуживания, равнойприблизительно 80%, и среднем времени нахождения в очереди менее 10 секунд. Примерэффективной работы системы приведен на рисунке 8.

Каждый пользователь, проводя исследование, сам решает какоеколичество аппаратов обслуживания ему необходимо для нормальногофункционирования системы.

/>

Рисунок 6. Пример не эффективной работы системы


/>

Рисунок 7. Пример перегруженной работы системы.


/>

Рисунок 8. Пример эффективной работы системы


Список использованных источников

1.        Лифшиц А.Л. Статистическое моделирование СМО, М., 1978.

2.        Советов Б.А., Яковлев С.А. Моделирование систем, М: Высшая школа, 1985.

3.        Гмурман В.Е. Теория вероятностей и математическая статистика, М: Высшаяшкола, 2001.

4.        Пригодин Н.В. Системный подход в моделировании. М., 1986.


Приложение

Procedure TForm1. Show_Report;

Var

I: Integer;

Begin

If Form3. CheckBox1. Checked=true

then begin

Memo1. Clear;

Form4. Memo1. Clear;

end;

if Form3. RadioButton2. Checked=true then

BEGIN

For i: =1 to Turn_Count Do

Turnikets [i]. Lab. Free;

Memo1. Lines. Add ('Эксперимент №: '+IntToStr(Eksp));

Memo1. Lines. Add ('Общее времямоделирования: '+IntToStr (Time));

Memo1. Lines. Add ('Прошло зрителей: '+IntToStr(Count_Of_F_People));

Memo1. Lines. Add ('Из них гостей: '+IntToStr (G_Count));

Memo1. Lines. Add ('Максимальная длинаочереди: '+IntToStr (Max_Queue));

Memo1. Lines. Add ('Средняя длина очереди: '+FloatToStrF(AverageQueue,ffFixed,2,2));

Memo1. Lines. Add (' ');

Memo1. Lines.Add ('Количество заявок');

For i: =1 to Turn_Count Do

Memo1. Lines. Add ('Турникет №'+IntToStr (I)+': '+IntToStr (Turnikets [i]. Zayavki));

Memo1. Lines. Add (' ');

Memo1. Lines. Add ('Время работы');

For i: =1 to Turn_Count Do

Memo1. Lines. Add ('Турникет №'+IntToStr (I)+': '+IntToStr (Turnikets [i]. Rabota));

Memo1. Lines. Add (' ');

Memo1. Lines. Add ('Время простоя');

For i: =1 to Turn_Count Do

Memo1. Lines. Add ('Турникет №'+IntToStr (I)+': '+IntToStr (Turnikets [i]. Prostoy));

Memo1. Lines. Add ('***********************************');

Memo1. Lines. Add (' ');

Memo1. Visible: =True;

Memo1. ReadOnly: =True;

END

else // вывод в отдельном окне

BEGIN

Form4. Show;

For i: =1 to Turn_Count Do

Turnikets [i]. Lab. Free;

Form4. Memo1. Lines. Add ('Эксперимент №: '+IntToStr(Eksp));

Form4. Memo1. Lines. Add ('Общее времямоделирования: '+IntToStr (Time));

Form4. Memo1. Lines. Add ('Прошло зрителей:'+IntToStr (Count_Of_F_People));

Form4. Memo1. Lines. Add ('Из них гостей: '+IntToStr (G_Count));

Form4. Memo1. Lines. Add ('Максимальнаядлина очереди: '+IntToStr (Max_Queue));

Form4. Memo1. Lines. Add ('Средняя длинаочереди: '+FloatToStrF (AverageQueue,ffFixed,2,2));

Form4. Memo1. Lines. Add (' ');

Form4. Memo1. Lines. Add ('Количествозаявок');

For i: =1 to Turn_Count Do

Form4. Memo1. Lines. Add ('Турникет№'+IntToStr (I) +': '+IntToStr (Turnikets [i]. Zayavki));

Form4. Memo1. Lines. Add (' ');

Form4. Memo1. Lines. Add ('Время работы');

For i: =1 to Turn_Count Do

Form4. Memo1. Lines. Add ('Турникет№'+IntToStr (I) +': '+IntToStr (Turnikets [i]. Rabota));

Form4. Memo1. Lines. Add (' ');

Form4. Memo1. Lines. Add ('Время простоя');

For i: =1 to Turn_Count Do

Form4. Memo1. Lines. Add ('Турникет№'+IntToStr (I) +': '+IntToStr (Turnikets [i]. Prostoy));

Form4. Memo1. Lines. Add ('***********************************');

Form4. Memo1. Lines. Add (' ');

Form4. Memo1. Visible: =True;

Form4. Memo1. ReadOnly: =True;

END;

End;

Procedure TForm1. Add_G;

Var

i, Min,Min_i: Integer;

Begin

Min: =Turnikets [1]. Queue_Len;

Min_i: =1;

For i: =2 To Turn_Count Do

Begin

if Turnikets [i]. Queue_Len<Min Then

Begin

Min: =Turnikets [i]. Queue_Len;

Min_i: =i;

End;

End;

Inc (Turnikets [Min_i]. Queue_Len);

If Turnikets [Min_i]. Queue_Len>Max_QueueThen Max_Queue: =Turnikets [Min_i]. Queue_Len;

For i: =Turnikets [Min_i]. Queue_Len DownTo2 do

Begin

Turnikets [Min_i]. Queue [i]: =Turnikets [Min_i].Queue [i-1] ;

End;

Turnikets [Min_i]. Queue [1]. Status: =1;// 1-ый в очереди

Turnikets [Min_i]. Queue [1]. T_in_Queue: =0;

if Turnikets [Min_i]. Status=False Then

Turnikets [Min_i]. R_Obsl: =TimeRandom (G_ServeMin,G_ServeMax);

Turnikets [Min_i]. Status: =True;

Inc (G_Count);

End;

Procedure TForm1. Add_4el;

Var

i, Min,Min_i: Integer;

Begin

Min: =Turnikets [1]. Queue_Len;

Min_i: =1;

For i: =2 To Turn_Count Do

Begin

if Turnikets [i]. Queue_Len<Min Then

Begin

Min: =Turnikets [i]. Queue_Len;

Min_i: =i;

End;

End;

Inc (Turnikets [Min_i]. Queue_Len);

If Turnikets [Min_i]. Queue_Len>Max_QueueThen Max_Queue: =Turnikets [Min_i]. Queue_Len;

Turnikets [Min_i]. Queue [Turnikets [Min_i].Queue_Len]. Status: =0;

Turnikets [Min_i]. Queue [Turnikets [Min_i].Queue_Len]. T_in_Queue: =0;

if Turnikets [Min_i]. Status=False Then

Turnikets [Min_i]. R_Obsl: =TimeRandom (ServeMin,ServeMax);

Turnikets [Min_i]. Status: =True;

End;

Function TForm1. TimeRandom;

Begin

Result: =Random (Max-Min+1) +Min;

End;

Procedure TForm1. Refresh;

Var

I: Integer;

Begin

For i: = 1 to Ap_Cnt do

Begin

Turnikets [i]. Queue_Len: =0;

Turnikets [i]. T_Obsl: =0;

Turnikets [i]. R_Obsl: =0;

Turnikets [i]. Status: =False;

Turnikets [i]. Zayavki: =0;

Turnikets [i]. Rabota: =0;

Turnikets [i]. Prostoy: =0;

Turnikets [i]. Lab: =TLabel. Create (PageControl1);

Turnikets [i]. Lab. Left: =7;

Turnikets [i]. Lab. Top: =140+i*20;

(PageControl1 as TPageControl). Pages [0]. InsertControl(Turnikets [i]. Lab);

End;

End;

Function TForm1. Zna4_Read;

Var

Zn: Integer;

Begin

Try

Zn: =StrToInt (ET. Text);

Except

ShowMessage ('Значение полянекорректно!!! ');

End;

if Zn<Min Then Zn: =Min;

if Zn>Max Then Zn: =Max;

ET. Text: =IntToStr (Zn);

Result: =Zn;

End;

procedure TForm1. Timer1Timer (Sender: TObject);

Var

I,J: Integer;

 // s: string;

begin

Chart1. Series [0]. Clear;

Inc (Time);

Label17. Caption: ='Время моделировния'+IntToStr (Time);

Inc (Time_4el);

Inc (Time_Guest);

inc (k);

 // kartinka

if (k=100) and (change=true) then

begin

inc (kartinka);

Image1. Picture. LoadFromFile (s+inttostr (kartinka)+'. jpg');

k: =0;

if kartinka=11 then

kartinka: =1;

end;

if Time_4el=Random_4el Then // Зрительпришел

Begin

Add_4el;

Random_4el: =TimeRandom (ComeMin,ComeMax);

Time_4el: =0;

End;

if Time_Guest=Random_Guest Then // Гостьпришел

Begin

Add_G;

Random_Guest: =TimeRandom (G_ComeMin,G_ComeMax);

Time_Guest: =0;

End;

For I: =1 to Turn_Count Do

Begin

Full_Queue_Len: =Full_Queue_Len+Turnikets [i].Queue_Len;

If Turnikets [i]. Status Then

Begin

Inc (Turnikets [i]. Rabota);

Turnikets [i]. Lab. Caption: ='ТУРНИКЕТ№'+IntToStr (i) +' занят ';

Turnikets [i]. Lab. Caption: =Turnikets [i].Lab. Caption+' '+'Очередь '+IntToStr (Turnikets [i]. Queue_Len-1);

End

Else

Begin

Inc (Turnikets [i]. Prostoy);

Turnikets [i]. Lab. Caption: ='ТУРНИКЕТ№'+IntToStr (i) +' свободен ';

Turnikets [i]. Lab. Caption: =Turnikets [i].Lab. Caption+' '+'Очередь '+IntToStr (Turnikets [i]. Queue_Len);

End;

If Turnikets [i]. Status Then

Begin

Inc (Turnikets [i]. T_Obsl);

If Turnikets [i]. T_Obsl=Turnikets [i]. R_ObslThen // Закончено время обслуживания

Begin

Inc (Turnikets [i]. Zayavki);

Turnikets [i]. T_Obsl: =0;

Inc (Count_Of_F_People);

Dec (Turnikets [i]. Queue_Len);

For J: =1 To Turnikets [i]. Queue_Len Do

Turnikets [i]. Queue [j]: =Turnikets [i]. Queue[j+1] ;

if Turnikets [i]. Queue_Len=0 Then // большеникого нет. Ожидание

Begin

Turnikets [i]. Status: =False;

Turnikets [i]. R_Obsl: =0;

End

Else

Begin

If Turnikets [i]. Queue [1]. Status=0 Then

Begin

Turnikets [i]. R_Obsl: =TimeRandom (ServeMin,ServeMax);

End

Else

Begin

Turnikets [i]. R_Obsl: =TimeRandom (G_ServeMin,G_ServeMax);

End;

End;

End;

End;

Chart1. Series [0]. Add (turnikets [i]. Zayavki,'');

if Edit12. Visible=true then

ProgressBar1. Position: =Time;

End;

If ( (Edit12. Visible=true) and (Time=SetTime))or // КОНЕЦ!!!

(Count_Of_F_People=People_Count) Then

Begin

Timer1. Enabled: =False;

Button2. Enabled: =false;

ToolButton1. Enabled: =false;

ToolButton2. Enabled: =true; // Save

N21. Enabled: =true;

Button3. Enabled: =true;

AverageQueue: =Full_Queue_Len/ (Time*Turn_Count);

Show_Report;

End;

Label_Count_4el. Font. Color: =ClBlue;

Label_Count_4el. Caption: ='Прошло человек'+IntToStr (Count_Of_F_People);

end;

procedure TForm1. FormCreate (Sender: TObject);

begin

Randomize;

Time: =0;

G_Count: =0;

Turn_Count: =0;

Count_Of_F_People: =0;

Max_Queue: =0;

Full_Queue_Len: =0;

AverageQueue: =0;

Time_4el: =0;

Random_4el: =0;

Time_Guest: =0;

Random_Guest: =0;

PageControl1. Pages [1]. TabVisible: =false;

PageControl1. TabIndex: =0;

end;

procedure TForm1. MenuItem4Click (Sender: TObject);

begin

Close;

end;

procedure TForm1. ToolButton3Click (Sender:TObject);

begin

Close;

end;

procedure TForm1. N1Click (Sender: TObject);

begin

Change: =true;

N1. Checked: =true;

N1. Default: =true;

N2. Checked: =false;

N2. Default: =false;

end;

procedure TForm1. N2Click (Sender: TObject);

begin

change: =false;

N2. Checked: =true;

N2. Default: =true;

N1. Checked: =false;

N1. Default: =false;

end;

procedure TForm1. CheckBox1Click (Sender: TObject);

begin

if CheckBox1. Checked=true

then

begin

Edit12. Visible: =true;

ComboBox1. Visible: =true;

end

else

begin

Edit12. Visible: =false;

ComboBox1. Visible: =false;

end;

end;

procedure TForm1. Na4aloExecute (Sender: TObject);

begin

Inc (Eksp);

FormCreate (Button1. NewInstance);

ComeMin: =Zna4_READ (Edit2,1, 20);

ComeMax: =Zna4_Read (Edit3,ComeMin,ComeMin+50);

ServeMin: =Zna4_READ (Edit4,1, 20);

ServeMax: =Zna4_Read (Edit5,ServeMin,ServeMin+50);

G_ComeMin: =Zna4_READ (Edit6,1, 200);

G_ComeMax: =Zna4_Read (Edit7,ComeMin,ComeMin+200);

G_ServeMin: =Zna4_READ (Edit9,1,100);

G_ServeMax: =Zna4_Read (Edit8,ServeMin,ServeMin+100);

Turn_Count: =Zna4_Read (Edit10,1,100);

People_Count: =Zna4_Read (Edit1,10,10000);

Speed: =Zna4_Read (Edit11,1,1000);

Timer1. Interval: =1000 div Speed;

Refresh (Turn_Count);

Random_4el: =TimeRandom (ComeMin,ComeMax);

Random_Guest: =TimeRandom (G_ComeMin,G_ComeMax);

Timer1. Enabled: =True;

change: =true;

if Edit12. Visible=true then

begin

if ComboBox1. ItemIndex=0 then

SetTime: =Zna4_READ (Edit12,10,43200);

if ComboBox1. ItemIndex=1 then

SetTime: =Zna4_READ (Edit12,1,720) *60;

if ComboBox1. ItemIndex=2 then

SetTime: =Zna4_READ (Edit12,1,12) *3600;

end;

ProgressBar1. Position: =0;

if Edit12. Visible=true then

ProgressBar1. Max: =SetTime

else

ProgressBar1. Max: =0;

ToolButton2. Enabled: =false;

Button3. Enabled: =false;

N21. Enabled: =false;

ToolButton1. Enabled: =true;

Button2. Enabled: =true;

end;

procedure TForm1. StopExecute (Sender: TObject);

begin

Timer1. Enabled: =false;

show_report;

ToolButton2. Enabled: =true;

Button3. Enabled: =true;

N21. Enabled: =true;

ToolButton1. Enabled: =false;

Button2. Enabled: =false;

end;

procedure TForm1. MenuItem11Click (Sender: TObject);

begin

Form2. Show;

end;

procedure TForm1. SaveExecute (Sender: TObject);

begin

If SaveDialog1. Execute then

Memo1. Lines. SaveToFile (SaveDialog1. FileName);

end;

procedure TForm1. createExecute (Sender: TObject);

var

i: byte;

begin

if Button2. Enabled=true then

for i: =1 to Turn_Count do

Turnikets [i]. Lab. Free;

 // Turnikets [i]. Lab. Caption: ='';

Label17. Caption: ='';

Label_Count_4el. Caption: ='';

Randomize;

Time: =0;

G_Count: =0;

Turn_Count: =0;

Count_Of_F_People: =0;

Max_Queue: =0;

Full_Queue_Len: =0;

AverageQueue: =0;

Time_4el: =0;

Random_4el: =0;

Time_Guest: =0;

Random_Guest: =0;

Refresh (Turn_Count);

Timer1. Enabled: =false;

for i: =1 to Turn_Count do

Turnikets [i]. Lab. Visible: =false;

ProgressBar1. Position: =0;

Chart1. Series [0]. Clear;

end;

procedure TForm1. SpeedButton1Click (Sender:TObject);

begin

PageControl1. Pages [1]. TabVisible: =false;

PageControl1. ActivePage: =PageControl1. Pages[0] ;

end;

procedure TForm1. SettingsExecute (Sender: TObject);

begin

Form3. Show;

end;

procedure TForm1. VisibleSettingsExecute (Sender:TObject);

begin

PageControl1. Pages [1]. TabVisible: =true;

PageControl1. TabIndex: =1;

end;

procedure TForm1. FormShow (Sender: TObject);

begin

s: =GetCurrentDir+'\';

end;

procedure TForm1. HelpExecute (Sender: TObject);

begin

winhelp (Form1. Handle,'справка. hlp',help_context,1);

end;

end.

еще рефераты
Еще работы по информатике, программированию