|
№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('ÄÅÊÀÁÐÜ');
Достарыңызбен бөлісу: |
