Delphi визуалды программалау ортасы



бет81/97
Дата06.01.2022
өлшемі2,03 Mb.
#12435
1   ...   77   78   79   80   81   82   83   84   ...   97
Байланысты:
Delphi vizualdy programmalau ortasy

Ішкі бағдарлама листингі:

procedure TForm1.CheckListBox1ClickCheck (Sender: TObject);

var i, s: Integer;

begin


ListBox1.Clear;

for i: = 0 to CheckListBox1.Items.Count-1 do if CheckListBox1.Checked[i] then ListBox1.Items.Add (CheckListBox1.Items[i]);

s := 0;

for i := 0 to ListBox1.Items.Count -1 do

s := s + StrToInt(ListBox1.Items[i]); Label1.Caption := 'Қосынды: ' + IntToStr(s); if s = 50 then

begin


Label1.Caption := 'Қосынды:' + IntToStr (s); CheckListBox1.Enabled := False; ListBox1.Enabled := False; end;

end;


13. Калькулятор
Жұмыстың мақсаты – кезкелген санмен (ондық бөлшекпен де) қосу мен азайту амалдарын орындай алатын қарапайым калькулятордың бағдарламасын дайындау. 1. Бағдарлама іске қосылғанда калькулятор терезесін шығару.





Достарыңызбен бөлісу:
1   ...   77   78   79   80   81   82   83   84   ...   97




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет