Программа вычисления дохода по вкладу

  

Программа вычисляет доход по вкладу. Если пользователь оставит какое либо из полей незаполненным, то в результате щелчка по кнопке Ok, в поле компонента label4 красным цветом отображается сообщение об ошибке.Если все поля формы заполнены, то в поле компонента label4 в две строки отображается результат расчета. Разбиение текста на строки обеспечивает символ «новая строка» (его код равен 10). Добавить нужный символ в формируемую строку можно с помощью функции chr. Вместо функции chr можно указать код символа, поставив перед значением «решетку»(#). Именно этот способ и используется в рассматриваемой программе.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
//щелчек на кнопке ок
procedure TForm8.Button1Click(Sender: TObject);
var
sum, pr, srok : real; //сумма, процентная ставка, срок вклада (дней)
dohod, sum2 : real; //доход и сумма в конце срока вклада
begin
if (length(edit1.Text)=0) or
(length(edit2.Text)=0) or
(length(edit3.Text)=0)
then begin
label4.Font.Color:=clmaroon; //темно-красный
label4.Caption:='надо заполнить все поля формы';
end
else begin
sum:= strtofloat(edit1.Text);
pr:=strtofloat(edit2.Text);
srok:=strtofloat(edit3.Text);
dohod:=sum*(pr/100)*(srok/360);
sum2:=sum+dohod;
label4.Font.Color:=clnavy;
label4.Caption:='доход по вкладу;'+floattostrf(dohod,ffcurrency,6,2)+#10+'сумма в конце срока вклада:'+floattostrf(sum2,ffcurrency,6,2);
end;
end;