Разработка компьютерных программ моделирования бизнес-процесса

После запуска программы Анализ стоимости ИТ-сервиса необходимо ввести исходные данные и случайные величины с параметрами распределения, по которым будут производиться расчет показателей:

· Затраты от простоя;

· Затраты на устранение;

· Затраты на аутсорсинг;

· Затраты на диагностику;

· Постоянные затраты.

Рисунок 9 - Ввод исходных данных в таблицу

Рисунок 10 - Вывод результатов

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

Листинг части программы генерации случайных величин.

Генерация случайной величины распределенной по нормальному закону:

sum,mat,sko:real;

a1:real;

R:array [1 12] of real;:= StrToFloat(LabeledEdit5.Text);:= StrToFloat(LabeledEdit6.Text);:=0;j:=1 to 12 do[j]:=random;:=sum+L[j];;:=mat1+sko1*abs(sum-6);

Генерация случайной величины распределенной по показательному закону:

,ui:real;:= StrToFloat(LabeledEdit16.Text);:=random;:=-ln(f)/lmb;;

Генерация случайной величины распределенной по закону Пуассона:

:= StrToFloat(LabeledEdit15.Text);:=100;:=mat/n;:=0;i:=1 to 100 do[i]:=random;R[i]<P then a6:=a6+1

end;

Генерация случайной величины распределенной по закону Бернулли:

begin:=StrToFloat(LabeledEdit17.Text);:=random;(N < P) or (N = P) then D:=1 D:=0;;