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

Информатика. Программирование в Delphi
151
mes:string;
begin
if (Edit1.Text='') or (Edit2.Text='') or
(Edit3.Text='') then
begin
ShowMessage('Необходимо ввести данные во все поля!!!');
exit;
end;
distance:=StrToFloat(Edit1.Text);
price:=StrToFloat(Edit2.Text);
consumption:=StrToFloat(Edit3.Text);
cost:=(distance/100)*consumption*price;
mes:='Поездка на дачу';
if CheckBox1.Checked then
begin
cost:=cost*2;
mes:=mes+#32+'и обратно';
end;
mes:=mes+#32+'обойдется в'+#13+
FloatToStrF(cost,ffFixed,15,2)+#32+'руб.';
Label4.Caption:=mes;
end;
end.
11. Сохранить проект в папке Вояж.
Пример 10.2 (Выполнить самостоятельно)
Разработать приложение, которое складывает три числа. Каждое из сла-
гаемых вводится в свое поле ввода: Edit1, Edit2, Edit3 соответственно. Вклю-
чение слагаемого в сумму осуществляется с помощью индивидуального флаж-
ка: CheckBox1, CheckBox2 , CheckBox3 . Активизация сложения выполняется
щечком на кнопке Сложить. Результат вывести в метку. Сохранить проект в
папке Сумма . Рекомендуемый вид формы приведен на рис. 10.4.
Рис. 10.4