close

Вход

Забыли?

вход по аккаунту

?

Оплата комунальных платежей

код для вставки
Практическая работа "Оплата коммунальных платежей".
1. Для реализаций программы необходимо выполнить следующие шаги.
1. На форму бросить следующие компоненты.
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioGroup1: TRadioGroup;
2. Расчет производить по нажатию кнопки "Расчет". Для этого необходимо нажать на основную кнопку Расчет. И ввести листинг программы написанный ниже
Причичание: Не обязательно писать весь код, достаточно написать программу до конца первого ветвления, а потом просто копировать его. Листинг программы "Коммунальная оплата".
procedure TForm1.Button1Click(Sender: TObject);
var
i,e,c:real;
begin
if Radiobutton1.checked then
begin
i:=StrTofloat(Edit1.caption);
e:=StrTofloat(Edit2.caption);
c:=(e-i)*3.75;
Label3.caption:='Сумма к оплате = '+FloatTostr(c)+' грн';
end;
if Radiobutton2.checked then
begin
i:=StrTofloat(Edit1.caption);
e:=StrTofloat(Edit2.caption);
c:=(e-i)*5.05;
Label3.caption:='Сумма к оплате = '+FloatTostr(c)+' грн';
end;
if Radiobutton3.checked then
begin
i:=StrTofloat(Edit1.caption);
e:=StrTofloat(Edit2.caption);
c:=(e-i)*5.25;
Label3.caption:='Сумма к оплате = '+FloatTostr(c)+' грн';
end;
end; 
Автор
georg88
Документ
Категория
Без категории
Просмотров
41
Размер файла
65 Кб
Теги
оплате, комунальных, платежей
1/--страниц
Пожаловаться на содержимое документа