Моделирование экономических процессов (Паскаль)

• кредитный рейтинг — определяет вероятность одобрения кредита и ставку;
• платёжная дисциплина — история предыдущих платежей;
• просрочки — количество и длительность задержек платежей.

Пример.
function CheckCredit (S: integer; A: real; T: integer; var R: real): boolean;
begin
  // S = 65 (кредитный рейтинг)
  // A = 250000 (запрашиваемая сумма)
  // T = 36 (срок кредитования)
  // R = 12 (базовая ставка %)
  CheckCredit := false; // Ответ одобрения
  if S >= 60 then
    begin
      CheckCredit := true;
      if S >= 80 then R := R - 3.0 // Премиальная ставка
      else if S <= 70 then R := R + 2.0; // Повышенная
      ставка
    end; end;