Простые проценты начисляются в конце срока вклада, сложные — ежемесячно и прибавляются к первоначальной сумме вклада и в следующем месяце проценты начисляются на новую сумму. Рекомендуемый вид формы программы приведен на рис. 1.8.

Рис. 1.8. Форма программы Доход по вкладу

// щелчок на кнопке Вычислить
procedure TForml.ButtonlClick(Sender: TObject);
var
sum : real; // сумма вклада pr: real;
// процентная ставка srok: integer;
// срок вклада dohod: real;
// доход по вкладу
buf: real; i: integer; begin
// получить исходные данные sum := StrToFloat(Editl.Text); pr : = StrToFloat(Edit2.Text); srok := StrToInt(Edit3.Text);
if RadioButtonl.Checked then
// выбран переключатель Простые проценты dohod := sum * (pr/100) * (srok/360)
else
//т. к. в группе два переключателя, то если
// не выбран RadioButtonl, то выбран
/7 RadioButton2 — Сложные проценты begin
buf:= sum;
for i:=l to srok do
buf:= buf + buf * (pr/100);
// здесь buf — сумма в конце срока вклада
dohod := buf — sum; end;
sum := sum + dohod;
Label4.Caption := 'Доход: ' + Float-ToStrF(dohod,ffGeneral,9,2) + #13 +
1 Сумма в конце срока вклада: ' +
FloatToStrF(sum, ffGeneral,9,2),
end;
// выбор переключателя Простые проценты
procedure TForml.RadioButtonlClick(Sender: TObject);
begin
Label2.Caption := 'Срок (дней)';
Label4.Caption := ";
end;
// выбор переключателя Сложные проценты
procedure TForml.RadioButton2Click(Sender: TObject),
begin
Label2.Caption := 'Срок (мес.)';
Label4.Caption := ''; end;