ЗАДАНИЕ. Напишите программу, которая вычислит доход по вкладу
Напишите программу, которая вычислит доход по вкладу. Программа должна обеспечивать расчет простых и сложных процентов. Простые проценты начисляются в конце срока вклада, сложные – ежемесячно и прибавляются к первоначальной сумме вклада и в следующем месяце проценты начисляются на новую сумму. Рекомендуемый вид формы программы приведен ниже.
Решение: {щелчок по кнопке Вычислить} 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;
|
