Запрограмуйте кнопку «Обчислити».

Спочатку розглянемо ануїтетну схему нарахування відсотків.

Ануїтетна схема нарахування відсотків:

1) Виплати в місяць (однаковий платіж кожного місяця !!!):

Коефіцієнт ануїтету:

, де

A — коефіцієнт ануїтету;
р — процентна ставка виражена в сотих долях в розрахунку на період.

Наприклад, для випадку 12 відсотків річних і щомісячного платежу це складе 0.12/12 = 0.01;

N - число періодів погашення кредиту.

Формула розрахунку кредиту. Формула розрахунку суми ануїтетного платежу

Sa = A * K,

де A - коефіцієнт ануїтету; K - сума кредиту.

Загальна сума виплат при ануїтетному способу погашення кредиту

S = N * Sa = N * A * K,

де N - число періодів погашення кредиту;

A - коефіцієнт ануїтету; K - сума кредиту.

Cума відсотків (переплата) при ануїтетному способі погашення

Sp = S - K = N * A * K - K =(N*A - 1) * K ,

де N - число періодів погашення кредиту;

A - коефіцієнт ануїтету; K - сума кредиту.

2) Проценти по кредиту:

Відсоток від заборгованості по кредиту = процентна ставка (в місяць) * Заборгованість по кредиту

3) погашення кредиту = виплата в місяць – проценти по кредиту.

4) Заборгованість по кредиту (у наступний місяць) = Заборгованість по кредиту (у поточному місяці) – погашення кредиту

Код програми:

procedure TForm1.Button1Click(Sender: TObject);

var j: integer;

p, A: real;

begin

if TabControl1.TabIndex=0 then //для закладки ануїтетна схема

begin

p:=(strtofloat(edit3.Text)/100)/12; //процентна ставка

A:=p*exp(strtoint(edit1.text)*ln(1+p))/(exp(strtoint(edit1.text)*ln(1+p))-1); // коефіцієнт ануїтету

edit4.text:= floattostr(strtofloat(edit2.Text)* A*strtofloat(edit1.Text)); // Загальна сума виплат

edit5.Text:=floattostr(strtofloat(edit4.Text)-strtofloat(edit2.Text)); // Cума відсотків

edit6.Text:=(edit2.Text); // тіло кредиту

StringGrid1.RowCount:=strtoint(Edit1.text)+1; // Місяць

with StringGrid1 do // перший рядок таблиці

begin

Cells[0,1] := '1';

Cells[1,1] := DateToStr(DateTimePicker1.Date); // дата

Cells[2,1] := edit2.Text; // Заборгованість по кредиту

Cells[4,1] := floattostr(strtofloat(Cells[2,1])*p); // Проценти по кредиту

Cells[5,1] := floattostr(strtofloat(edit2.Text)* A); // Виплати в місяць

Cells[3,1] := floattostr(strtofloat(Cells[5,1])-strtofloat(Cells[4,1])); // Погашення кредиту

end;

with StringGrid1 do // решта рядків таблиці

for J:= 2 to RowCount - 1 do

begin

Cells[0,j] := inttostr(j);

Cells[1,j] := DateToStr(incmonth(DateTimePicker1.Date,j-1)); // дата

Cells[2,j] := floattostr(strtofloat(Cells[2,j-1])- strtofloat(Cells[3,j-1])); // Заборгованість по кредиту

Cells[4,j] := floattostr(strtofloat(Cells[2,j])*p); // Проценти по кредиту

Cells[5,j] := floattostr(strtofloat(edit2.Text)* A); // Виплати в місяць

Cells[3,j] := floattostr(strtofloat(Cells[5,j]) - strtofloat(Cells[4,j])); // Погашення кредиту

end;

end

else // стандартна схема

begin

// код програми для стандартної схеми;

end;

end;

Рис.2. Результат виконання програми при Ануїтетній схемі нарахування відсотків

11. У коді програми кнопки «Обчислити» врахуйте наступні особливості стандартної схеми нарахування відсотків (код програми допишіть самостійно):

1) погашення кредиту = Сума кредиту / термін кредиту (в міcяцях).

Кожного місяця однакова, за виключенням остатнього періоду платежу (залишок).

2) Проценти по кредиту:

Відсоток від заборгованості по кредиту = процентна ставка (в місяць) * Заборгованість по кредиту

3) Виплати в місяць = погашення кредиту + проценти по кредиту

4) Заборгованість по кредиту (у наступний місяць) = Заборгованість по кредиту (у поточному місяці) – погашення кредиту

При цьому вона має місце лише коли обрано закладку «Стандартна схема нарахування відсотків».

Рис. 3. Результат виконання програми при Стандартній схемі нарахування відсотків

12. Передбачте, щоб при переході із закладки «Ануїтетна …» на «Стандартна …» і навпаки автоматично очищалися поля таблиці (об’єкт StringGrid1), пола розділу «підсумкові значення» (крім «Базові умови»).