Составить программу, решающую следующую задачу: Клиент внес в банк R рублей. Каждый месяц эта сумма увеличивается на W рублей. Сколько будет у клиента денег через три месяца, через полгода, через год? Ниже представлен рекомендуемый вид экрана во время работы программы: (нужно сделать оконное приложение Delphi) Введите исходные данные: Величина вклада (руб.): 10000 Ежемесячная величина дохода (руб) 165 Сумма вклада по окончании трех месяцев: 10495 руб. Сумма вклада по окончании шести месяцев: 10990 руб. Сумма вклада по окончании года: 11980 руб.

Предыдущий
вопрос Следующий
вопрос

unit BankDepositCalculation;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
TfrmBankDeposit = class(TForm)
lblInitialDeposit: TLabel;
edtInitialDeposit: TEdit;
lblMonthlyIncome: TLabel;
edtMonthlyIncome: TEdit;
btnCalculate: TButton;
memOutput: TMemo;
procedure btnCalculateClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmBankDeposit: TfrmBankDeposit;

implementation

{$R *.dfm}

procedure TfrmBankDeposit.btnCalculateClick(Sender: TObject);
var
initialDeposit, monthlyIncome, depositAfter3Months, depositAfter6Months,
depositAfter1Year: Integer;
begin
initialDeposit := StrToInt(edtInitialDeposit.Text);
monthlyIncome := StrToInt(edtMonthlyIncome.Text);

depositAfter3Months := initialDeposit + (monthlyIncome 3);
depositAfter6Months := initialDeposit + (monthlyIncome 6);
depositAfter1Year := initialDeposit + (monthlyIncome * 12);

memOutput.Lines.Add('Сумма вклада по окончании трех месяцев: ' + IntToStr(depositAfter3Months) + ' руб.');
memOutput.Lines.Add('Сумма вклада по окончании шести месяцев: ' + IntToStr(depositAfter6Months) + ' руб.');
memOutput.Lines.Add('Сумма вклада по окончании года: ' + IntToStr(depositAfter1Year) + ' руб.');
end;

end.