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

dohod:= buf – sum;

end;

sum:= sum + dohod;

Label4. Caption:= 'Доход: ' + FloatToStrF (dohod, ffGeneral, 9,2) + #13 +

'Сумма в конце срока вклада: ' +

FloatToStrF (sum, ffGeneral, 9,2);

end;

програмний відсоток вклад документування

procedure TForm1. RadioButton1Click (Sender: TObject);

begin

Label2. Caption:= 'Срок (дней)';

Label4. Caption:= «;

end;

procedure TForm1. RadioButton2Click (Sender: TObject);

begin

Label2. Caption:= 'Срок (мес.)';

Label4. Caption:= «;

end;

procedure TForm1.N1Click (Sender: TObject);

begin

form2. ShowModal;

end;

procedure TForm1.N2Click (Sender: TObject);

begin

close;

end;

end.