<?php
$creditBalance = 1000; /* Долг анона перед банком */
$percent = 1.03; /* Банк начисляет 3% в месяц от суммы */
$servicePayment = 1000; /* А также 1000 рублей в месяц комиссии за обслуживание счета */
$monthlyPayment = 5000; /* Анон платит 5000 р в месяц, это все, что ему дает мама на завтраки */
$paymentTotal = 0; /* Сколько всего отдал банку анон */
$paymentLast = 0;
/* Посчитаем расходы 20 раз на 20 месяцев вперед */
for ($month = 1; $month <= 20; $month ++) {
$creditBalance = ( $creditBalance * $percent ) + $servicePayment - $monthlyPayment;
$paymentTotal = $paymentTotal + $monthlyPayment;
echo "{$month} месяц спустя: долг = {$creditBalance} руб, выплачено всего {$paymentTotal} руб. \n";
/* Если баланс отрицательный — хватит считать */
if (($creditBalance + $servicePayment) <= $monthlyPayment) {
$month ++;
$paymentLast = ($creditBalance * $percent) + $servicePayment;
$paymentTotal = $paymentTotal + $paymentLast;
$creditBalance = ( $creditBalance * $percent ) + $servicePayment - $paymentLast;
echo "{$month} месяц спустя: долг = {$creditBalance} руб, выплачено всего {$paymentTotal} руб. \n";
break;
}
}
PD9waHAKCmVycm9yX3JlcG9ydGluZygtMSk7CgokY3JlZGl0QmFsYW5jZSA9IDEwMDA7IC8qINCU0L7Qu9CzINCw0L3QvtC90LAg0L/QtdGA0LXQtCDQsdCw0L3QutC+0LwgKi8KJHBlcmNlbnQgPSAxLjAzOyAvKiDQkdCw0L3QuiDQvdCw0YfQuNGB0LvRj9C10YIgMyUg0LIg0LzQtdGB0Y/RhiDQvtGCINGB0YPQvNC80YsgKi8KJHNlcnZpY2VQYXltZW50ID0gMTAwMDsgLyog0JAg0YLQsNC60LbQtSAxMDAwINGA0YPQsdC70LXQuSDQsiDQvNC10YHRj9GGINC60L7QvNC40YHRgdC40Lgg0LfQsCDQvtCx0YHQu9GD0LbQuNCy0LDQvdC40LUg0YHRh9C10YLQsCAqLwokbW9udGhseVBheW1lbnQgPSA1MDAwOyAvKiDQkNC90L7QvSDQv9C70LDRgtC40YIgNTAwMCDRgCDQsiDQvNC10YHRj9GGLCDRjdGC0L4g0LLRgdC1LCDRh9GC0L4g0LXQvNGDINC00LDQtdGCINC80LDQvNCwINC90LAg0LfQsNCy0YLRgNCw0LrQuCAqLwokcGF5bWVudFRvdGFsID0gMDsgLyog0KHQutC+0LvRjNC60L4g0LLRgdC10LPQviDQvtGC0LTQsNC7INCx0LDQvdC60YMg0LDQvdC+0L0gKi8KJHBheW1lbnRMYXN0ID0gMDsKCi8qINCf0L7RgdGH0LjRgtCw0LXQvCDRgNCw0YHRhdC+0LTRiyAyMCDRgNCw0Lcg0L3QsCAyMCDQvNC10YHRj9GG0LXQsiDQstC/0LXRgNC10LQgKi8KZm9yICgkbW9udGggPSAxOyAkbW9udGggPD0gMjA7ICRtb250aCArKykgewoJCgkkY3JlZGl0QmFsYW5jZSA9ICggJGNyZWRpdEJhbGFuY2UgKiAkcGVyY2VudCApICsgJHNlcnZpY2VQYXltZW50IC0gJG1vbnRobHlQYXltZW50OwoJJHBheW1lbnRUb3RhbCA9ICRwYXltZW50VG90YWwgKyAkbW9udGhseVBheW1lbnQ7CgllY2hvICJ7JG1vbnRofSDQvNC10YHRj9GGINGB0L/Rg9GB0YLRjzog0LTQvtC70LMgPSB7JGNyZWRpdEJhbGFuY2V9INGA0YPQsSwg0LLRi9C/0LvQsNGH0LXQvdC+INCy0YHQtdCz0L4geyRwYXltZW50VG90YWx9INGA0YPQsS4gXG4iOwoKICAgICAgLyog0JXRgdC70Lgg0LHQsNC70LDQvdGBINC+0YLRgNC40YbQsNGC0LXQu9GM0L3Ri9C5IOKAlCDRhdCy0LDRgtC40YIg0YHRh9C40YLQsNGC0YwgKi8KICAgICAgaWYgKCgkY3JlZGl0QmFsYW5jZSArICRzZXJ2aWNlUGF5bWVudCkgPD0gJG1vbnRobHlQYXltZW50KSB7CiAgICAgIAkkbW9udGggKys7CiAgICAgIAkkcGF5bWVudExhc3QgPSAoJGNyZWRpdEJhbGFuY2UgKiAkcGVyY2VudCkgKyAkc2VydmljZVBheW1lbnQ7CiAgICAgIAkkcGF5bWVudFRvdGFsID0gJHBheW1lbnRUb3RhbCArICRwYXltZW50TGFzdDsKICAgICAgCSRjcmVkaXRCYWxhbmNlID0gKCAkY3JlZGl0QmFsYW5jZSAqICRwZXJjZW50ICkgKyAkc2VydmljZVBheW1lbnQgLSAkcGF5bWVudExhc3Q7CiAgICAgIAllY2hvICJ7JG1vbnRofSDQvNC10YHRj9GGINGB0L/Rg9GB0YLRjzog0LTQvtC70LMgPSB7JGNyZWRpdEJhbGFuY2V9INGA0YPQsSwg0LLRi9C/0LvQsNGH0LXQvdC+INCy0YHQtdCz0L4geyRwYXltZW50VG90YWx9INGA0YPQsS4gXG4iOwogICAgICAJYnJlYWs7CiAgICAgIH0KfQ==