№4. Зертханалық жұмыс. Таңдау алгоритмдеріне есептер шығару, бағдарлама құру



бет1/8
Дата05.05.2020
өлшемі0,62 Mb.
#65756
түріПрограмма
  1   2   3   4   5   6   7   8
Байланысты:
2 алг отчет.docx

№4. Зертханалық жұмыс. Таңдау алгоритмдеріне есептер шығару, бағдарлама құру.



Жұмыстың мақсаты: Delphi7 ортасында тармақталу алгоритмдеріне есептер шығарып үйрену дағдыларын қалыптастыру және өзіндік тапсырмаларды орындау. Шартты және таңдау операторларын оқып үйрену, оларды есептер шығаруда дұрыс қолдана білуге қалыптастыру, программа жасақтауда шартты және таңдау операторларын тиімді таңдай білуге машықтандыру.

Таңдау (case) операторын пайдаланып программа құрыңыздар

4.Айдың нөмерін енгізу арқылы жыл мезгілін жауапқа шығарыңдар.





procedure TForm1.ComboBox1Change(Sender: TObject);

begin

case StrToInt(ComboBox1.Text) of

1:Showmessage('ßÍÂÀÐÜ');

2:Showmessage('ÔÅÂÐÀËÜ');

3:showmessage('ÌÀÐÒ');

4:Showmessage('ÀÏÐÅËÜ');

5:Showmessage('ÌÀÉ');

6:showmessage('ÈÞÍÜ');

7:Showmessage('ÈÞËÜ');

8:Showmessage('ÀÂÃÓÑÒ');

9:showmessage('ÑÅÍÒßÁÐÜ');

10:Showmessage('ÎÊÒßÁÐÜ');

11:Showmessage('ÍÎßÁÐÜ');

12:showmessage('ÄÅÊÀÁÐÜ');



Достарыңызбен бөлісу:
  1   2   3   4   5   6   7   8




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

    Басты бет