2.1.2.2.2. інакше відмова у видачі кредиту;
обробка відмови тут складається просто в
збільшенні на одиницю лічильника числа відмов Otk: Otk + +;
.1.2.3. Генерація моменту надходження в систему нового
вимоги на отримання кредиту та збереження його в змінній tin: "tin = t + RIN;"
.2. Кінець блоку циклу 2.1.: "}" p align="justify">. Завершення процесу моделювання:
3.1. Підрахунок середньоденної величини кредитів, середньомісячного доходу банку і виведення результатів моделювання кредитної системи - кількість виданих банком за період моделювання кредитів, загальної суми кредитів, середньої денної величини кредитованих банком коштів, сумарного за період моделювання та середньомісячного доходу банку від виданих кредитів:
Mec_Doxod = Ob_Doxod/(N * 12); <<'' <<"Kolichestvo kreditov =" <
2.4 Програмна реалізація імітаційної моделі
. Ініціалізація параметрів
int i, t, T_Kred, tin, ton [Cmax], Otk = 0, Kred = 0; Sum_Kred = 0, Sred_Vel, Mec_Doxod = 0, Ob_Doxod = 0, Sum;
2. Запуск програми
= RIN;
3. Основний цикл моделювання
(t = 0; t <(N * 365); t + +)
. Обробка завершення
for (i = 0; i
{[i] = -1;
Kred + +;
}
5. Обробка чергового вхідного події
(tin == t)
{= 0;
while ((ton [i]! = -1) && (i
{_Kred = RON; [i] = t + T_Kred; = N1; _Kred + = Sum; _Doxod + = Sum * T_Kred/365 * H/100.0;
} Otk + +; = t + RIN;
}
. Виводимо результати: кількість кредитів, відмов, сума виданих кредитів, середня денна величина виданих кредитів, сумарний дохід, середньомісячний дохід.
Sred_Vel = Sum_Kred/(N * 365); _Doxod = Ob_Doxod/(N * 12); <<'...
