Курсовая работа: Розробка ПО "Розрахунок відсотків по банківським вкладам"

var

Form1: TForm1;

implementation

uses unit2;

{$R *.dfm}

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:=1 to srok do

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