ЗАДАНИЕ. Напишите программу, которая вычислит доход по вкладу

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

 

Решение:

{щелчок по кнопке Вычислить}

procedure TForm1.Button1Click (Sender: TObject);

var

sum: real; {сумма вклада}

pr: real; {процентная ставка}

srok: integer; {срок вклада}

dohod: real; {доход по вкладу}

buf: real;

i: integer;

begin

{получить исходные данные}

sum: =StrToFloat (Edit1.Text);

pr: = StrToFloat (Edit2.Text);

srok: = StrToInt (Edit3.Text);

if RadioButton1.Checked

then {выбран переключатель Простые проценты}

dohod: =sum*(pr/100)*(srok/360)

else {т. к. В группе два переключателя, то если не выбран RadioButton1, то выбран RadioButton2 – Сложные проценты}

begin

buf: =sum;

for i: =1to srok do

buf: =buf+buf*(pr/100);

{здесь buf – сумма в конце срока вклада}

dohod: =buf-sum;

end;

sum: =sum+dohod;

Label14.Caption: =’Доход: ’+Float-ToStrF (dohod, ffGeneral, 9, 2)+#13+’Сумма в конце срока вклада: ’+FloatToStrF (sum, ffGeneral, 9, 2);

End;

{выбор переключателя Простые проценты}

procedure TForm 1.RadioButton1Click (Sender:

TObject);

begin

Label 12. Caption: =’ Срок (дней)’;

Label 14. Caption: =’’;

end;

{выбор переключателя Сложные проценты}

procedure TForm 1.RadioButton2Click

(Sender: TObject);

begin

Label 12. Caption: =’ Срок (месяцев)’;

Label 14. Caption: =’’;

end;