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

Информатика. Программирование в Delphi
104
else
begin
//вычисление прибыли завода:
//количество изделий каждого наименования
// умножается на цену за одну штуку.
//затем все эти произведения складываются
s:=StrToInt(Edit1.Text)*StrToFloat(Edit2.Text)+
StrToInt(Edit3.Text)*StrToFloat(Edit4.Text)+
StrToInt(Edit5.Text)*StrToFloat(Edit6.Text)+
StrToInt(Edit7.Text)*StrToFloat(Edit8.Text);
//вывод прибыли в компонент Label9
Label9.Caption:='Прибыль завода:'+#32+
FloatToStrF(s,ffFixed,10,4)+#32+'руб.';
end;
end;
Рис. 6.11
12. Запустим проект. Введем данные во все поля и нажмем на кнопку
Вычислить. Результат работы приложения показан на рис. 6.11.
Окончательный вариант приложения приведен в листинге 6.1. Коммента-
рии удалены.
Листинг 6.1
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia-
logs, StdCtrls;