Стр. 126 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
126
var
//сумма вклада
summ:real;
//срок
srok:word;
//процентная ставка
pr:real;
//доход по вкладу
dohod:real;
buf:real;
i:word;
begin
//получение данных из полей
summ:=StrToFloat(Edit1.Text);
srok:=StrToInt(Edit2.Text);
pr:=StrToFloat(Edit3.Text);
//проверка полей ввода на заполнение
if (Length(Edit1.Text)=0) or (Length(Edit2.Text)=0) or
(Length(Edit3.Text)=0) then
begin
ShowMessage('Введите данные во все поля!!!');
//выход из процедуры
exit;
end;
//проверка переключателяRadioButton1
if RadioButton1.Checked then
//вычисление дохода по простым процентам
dohod:=summ*(pr/100)*(srok/360)
//если выбран переключатель RadioButton2
else
// вычисление дохода по сложным процентам
begin
//сохранение суммы вклада во временную переменную
buf:=summ;
//вычисление дохода
for i:=1 to srok do
buf:=buf+buf*(pr/100);
dohod:=buf-summ;
end;
//сумма в конце срока вклада
summ:=summ+dohod;
//вывод информации о доходе
Label4.Caption:=’Доход: ‘+FloatToStrF(dohod,ffGeneral,9,2)+#13+
‘Сумма в конце срока вклада: ‘+FloatToStrF(summ,ffGeneral,9,2);