Створимо проект "Ідальня".
Форма:
Код програми:
procedure TForm1.Button1Click(Sender: TObject);
var cina,suma:real;
chek:string;
begin
suma:=0;
if CheckBox1.Checked=true then begin cina:=5.60;suma:=suma+cina;end;
if CheckBox2.Checked=true then begin cina:=10.20; suma:=suma+cina;end;
if CheckBox3.Checked=true then begin cina:=0.60; suma:=suma+cina;end;
if CheckBox4.Checked=true then begin cina:=1.10; suma:=suma+cina;end;
chek:=FloatToStr(suma)+' грн.';
Memo1.Lines.Add(chek);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.lines.clear;
end;
