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



бет82/98
Дата07.02.2022
өлшемі1,51 Mb.
#85980
1   ...   78   79   80   81   82   83   84   85   ...   98
Байланысты:
Delphi

Ішкі бағдарлама листингі:
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   ...   78   79   80   81   82   83   84   85   ...   98




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

    Басты бет