Согласно варианту задания

Create;
Result.FModel := self;
TL := High(FTransacts);
SetLength(FTransacts,TL+2);
FTRansacts[TL+1] := Result;
end;

procedure TModel.TerminateTransact(ATransact: TTransact);
var i,j,tl:integer;
begin
// Ищем транзакт в списке
i:=Low(self.FTransacts);
tl:=High(self.FTransacts);
while i <= tl do
if ATransact = self.Ftransacts[i] then
break
else inc(i);

// Убираем из списка

if i <= tl then
begin
for j := i to tl-1 do
Ftransacts[j]:=Ftransacts[j+1];
SetLength(FTransacts,TL);
// Освобождаем ресурсы
AtRansact.Free;
end;


end;

{ TECMModel }

constructor TECMModel.Create;
begin
// Создаём три источника транзактов

GA := TTransactGenerator.Create;
GA.FModel := self;

GB := TTransactGenerator.Create;
GB.FModel := self;

GC := TTransactGenerator.Create;
GC.FModel := self;

// Создаём очередь
HDD := TTransactQ.Create;
HDD.FModel := self;

HDD.MaxCount := -1;

// И процессор
Proccessor := TProccessor.Create;
Proccessor.FModel := self;

// Задаём последовательность
GA.FNext := HDD;
GB.FNext := HDD;
GC.FNext := HDD;
HDD.FNext := Proccessor;

// Задаём разные идентификаторы классов
GA.TrClass := 0;
GB.TrClass := 1;
GC.TrClass := 2;
end;

destructor TECMModel.Destroy;
var
I: Integer;
begin
// Освобождаем ресурсы
GA.Free;
GB.Free;
GC.Free;
HDD.Free;
Proccessor.Free;

for I :=0 to High(FTransacts) do
FTransacts[i].Free;
SetLength(FTransacts,0);
inherited;
end;

procedure TECMModel.Execute;
begin
// Создаём транзакты

GA.Start;
GB.Start;
GC.Start;
inherited;
end;

function TECMModel.GetADevInterval: TModelTime;
begin
Result := GA.StdInterval;
end;

function TECMModel.GetADevWorkTime: TModelTime;
begin
Result := Proccessor.ADev;
end;

function TECMModel.GetAInterval: TModelTime;
begin
Result := GA.AverageInterval;
end;

function TECMModel.GetAWorkTime: TModelTime;
begin
Result := Proccessor.ADelay;
end;


procedure TECMModel.SetAInterval(Value: TModelTime);
begin
if Value > 0 then Ga.AverageInterval := Value;

end;

procedure TECMModel.SetAWorkTime(Value: TModelTime);
begin
if Value > 0 then Proccessor.ADelay := Value;
end;

procedure TECMModel.SetADevInterval(Value: TModelTime);
begin
if Ga.AverageInterval > Value then Ga.StdInterval:= Value;
end;

procedure TECMModel.SetADevWorkTime(Value: TModelTime);
begin
if Proccessor.ADelay > Value then Proccessor.ADev:= Value;
end;

function TECMModel.GetBDevInterval: TModelTime;
begin
Result := GB.StdInterval;
end;

function TECMModel.GetBDevWorkTime: TModelTime;
begin
Result := Proccessor.BDev;
end;

function TECMModel.GetBInterval: TModelTime;
begin
Result := GB.AverageInterval;
end;

function TECMModel.GetBWorkTime: TModelTime;
begin
Result := Proccessor.BDelay;
end;


procedure TECMModel.SetBInterval(value: TModelTime);
begin
if value > 0 then GB.AverageInterval := value;

end;

procedure TECMModel.SetBWorkTime(value: TModelTime);
begin
if value > 0 then Proccessor.BDelay := value;
end;

procedure TECMModel.SetBDevInterval(value: TModelTime);
begin
if GB.AverageInterval > value then GB.StdInterval:= value;
end;

procedure TECMModel.SetBDevWorkTime(value: TModelTime);
begin
if Proccessor.BDelay > value then Proccessor.BDev:= value;
end;


function TECMModel.GetCDevInterval: TModelTime;
begin
Result := GC.StdInterval;
end;

function TECMModel.GetCDevWorkTime: TModelTime;
begin
Result := Proccessor.CDev;
end;

function TECMModel.GetCInterval: TModelTime;
begin
Result := GC.AverageInterval;
end;

function TECMModel.GetCWorkTime: TModelTime;
begin
Result := Proccessor.BDelay;
end;


procedure TECMModel.Restart;
var i:integer;
begin
// Осуществляем перезапуск моделирования

for I :=0 to High(FTransacts) do

FTransacts[i].Free;
SetLength(FTransacts,0);


HDD.Restart;
Proccessor.Restart;
FModelTime := 0;
end;

procedure TECMModel.SetCInterval(value: TModelTime);
begin
if value > 0 then GC.AverageInterval := value;

end;

procedure TECMModel.SetCWorkTime(value: TModelTime);
begin
if value > 0 then Proccessor.CDelay := value;
end;

procedure TECMModel.SetCDevInterval(value: TModelTime);
begin
if GC.AverageInterval > value then GC.StdInterval:= value;
end;

procedure TECMModel.SetCDevWorkTime(value: TModelTime);
begin
if Proccessor.CDelay > value then Proccessor.CDev:= value;
end;

end.
unit main;

{
Модуль реализует программу, запускающую моделирование
и обрабатывающую результаты
}
interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, BaseUnits, Grids;

type
TfrmMain = class(TForm)

// Кнопка, запускающая моделирование
btnStart: TButton;
SD: TSaveDialog;
edtTrParameters: TStringGrid;
Label1: TLabel;
edtTime: TEdit;
lblRes: TLabel;
lblTime: TLabel;
Label3: TLabel;
Label4: TLabel;
lblP: TLabel;
lblAvgLength: TLabel;
Label5: TLabel;
btnToFile: TButton;

procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure btnStartClick(Sender: TObject);
procedure btnToFileClick(Sender: TObject);
private
{ Private declarations }
FModel:TECMModel;
public
{ Public declarations }
end;

var
frmMain: TfrmMain;

implementation

{$R *.dfm}


{ TSRExponential }

procedure TfrmMain.btnStartClick(Sender: TObject);
begin
with edtTrParameters do
begin
// Устанавливаем параметры модели

Fmodel.AInterval:=StrToFloat(Cells[1,1]);
Fmodel.ADevInterval:=StrToFloat(Cells[2,1]);
Fmodel.AWorkTime:=StrToFloat(Cells[3,1]);
Fmodel.ADevWorkTime:=StrToFloat(Cells[4,1]);

Fmodel.BInterval:=StrToFloat(Cells[1,2]);
Fmodel.BDevInterval:=StrToFloat(Cells[2,2]);
Fmodel.BWorkTime:=StrToFloat(Cells[3,2]);
Fmodel.BDevWorkTime:=StrToFloat(Cells[4,2]);

Fmodel.CInterval:=StrToFloat(Cells[1,3]);
Fmodel.CDevInterval:=StrToFloat(Cells[2,3]);
Fmodel.CWorkTime:=StrToFloat(Cells[3,3]);
Fmodel.CDevWorkTime:=StrToFloat(Cells[4,3]);

// Сбрасываем состояние модели
FModel.Restart;
// Устанавливаем время окончания моделирования на требуемое количество минут
FModel.FEndModelTime := StrToFloat(edtTime.Text);

// Устанавливаем ресурсы, потребляемые при обработке заявки
FModel.Proccessor.ARes:=1;
FModel.Proccessor.BRes:=1;
FModel.Proccessor.CRes:=2;

// Запускаем моделирование
FModel.Execute;

// Отображаем результаты
lblP.Caption := FloatToStr(FModel.Proccessor.Utility);
lblAvgLength.Caption := FloatToStr(FModel.HDD.AvgCount);
lblTime.Caption := FloatToStr(FModel.HDD.FAvgTransactionTime);

end;
end;

procedure TfrmMain.btnToFileClick(Sender: TObject);
var F:TextFile;
i:integer;
begin
AssignFile(F,'result.csv');
Rewrite(F);
Writeln(F,'Номер прогона;Среднее время ожидания в очереди;Средняя длина очереди; Загрузка процессора;');
for I := 1 to 500 do
begin
btnStart.Click;
Application.ProcessMessages;
Writeln(F,i,';',FModel.HDD.FAvgTransactionTime:10:6,';',FModel.HDD.AvgCount:10:6,';',FModel.Proccessor.Utility:10:6,';');
end;
CloseFile(F);

end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
// Создание объекта - модели
FModel:=TECMModel.Create;

edtTrParameters.Cells[1,0] := 'Средний интервал появления задач данного класса';
edtTrParameters.Cells[2,0] := '+- интервала задач данного класса';
edtTrParameters.Cells[3,0] := 'Среднее время обработки задач данного класса';
edtTrParameters.Cells[4,0] := '+- времени обработки задач данного класса';

edtTrParameters.Cells[0,1] := 'Класс А';
edtTrParameters.Cells[0,2] := 'Класс B';
edtTrParameters.Cells[0,3] := 'Класс C';

edtTrParameters.Cells[1,1] := FloatToStr(20);
edtTrParameters.Cells[2,1] := FloatToStr(5);
edtTrParameters.Cells[3,1] := FloatToStr(20);
edtTrParameters.Cells[4,1] := FloatToStr(5);

edtTrParameters.Cells[1,2] := FloatToStr(20);
edtTrParameters.Cells[2,2] := FloatToStr(10);
edtTrParameters.Cells[3,2] := FloatToStr(21);
edtTrParameters.Cells[4,2] := FloatToStr(3);

edtTrParameters.Cells[1,3] := FloatToStr(28);
edtTrParameters.Cells[2,3] := FloatToStr(5);
edtTrParameters.Cells[3,3] := FloatToStr(28);
edtTrParameters.Cells[4,3] := FloatToStr(5);


end;

procedure TfrmMain.FormDestroy(Sender: TObject);
begin
// Осовбождение объекта - модели
FModel.Free;
end;
begin
// Инициализация генератора случайных чисел
Randomize;
end.

Результаты моделирования.
Загрузка – 0,8179
Средняя длина очереди – 195,7881
Среднее время ожидания в очереди – 1446,9861


Выводы
Данная система работает не в стационарном режиме, чем объясняется и большое время ожидания сравнимое со всем временем моделирования и большая средняя длина очереди сравнимая с количеством обработанных системой заявок.
Заключение
В данном курсовом проекте была создана программа, реализующая имитационную модель вычислительного центра.
Имитационное моделирование — удобный способ решить задачу исследования поведения системы в случае, если провести эксперименты на реальной модели затруднительно, дорого или вовсе невозможно.
Список литературы
1.     Шенном Р. Имитационное моделирование систем — исскуство и наука; пер с англ. — Москва: Наука, 1985.— 237 с.
2.    Цифровая имитация автоматизированных систем — Москва: Институт проблем передач информации АН СССР, 1983.— 139 с.
3.    Хомоненко А. Гофман В. Мещеряков Е. Никифоров В. Delphi 7 — Санкт-Петербург: БХВ-Санкт-Петербург, 2006.— 1216 с.



Начало

NearTime=ModelEndTime Перейти к первому транзакту

Получить параметры модели

Транзакт может двигаться?

Перейти к следующему транзакту

Нет

Да

Да

Нет

Время покидания транзактом узла меньше NearTime и больше 0?

Присвоить NearTime время покидания транзактом узла

Есть еще транзакты?

Да

Нет

Да

Передвижение транзакта

Есть еще транзакты?

Да

Нет

Нет

Перейти к первому транзакту Присвоить модельному времени значение переменной NearTime

Да

Да

Перейти к следующему транзакту

Транзакт может двигаться?

Нет

Модельное время меньше конечного?

Конец