Дастурлаш асослари фанидан маърузалар матни doc

Command1 
Caption 
Kubikni tashlash 
Command2 
Caption 
Tugatish 
Text1, Text2 
Text 
Text xossasi maydonini tozalash 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
PDF created with pdfFactory trial version 
www.pdffactory.com

---

     
    Blok – sxema 
 
 
 
 
 Boshi 
 
 
 
 
              N tasofiy sonini aniqlash 
 
 
 
 
 
 
  N = 1   
    h
а
         S = “BIR”              
 
 
 
      ? 
 
 
        
 
 
 
 
        Yo‘q 
 
 
 
 
  N = 2   
    h
а
         S = “IKKI”      
        
 
 
 
      ? 
 
 
          
 
 
 
 
        Yo‘q 
 
 
 
 
  N = 3   
    h
а
         S = “UCH”      
        
 
 
 
      ? 
 
 
          
 
 
 
 
        Yo‘q 
 
 
 
 
  N = 4   
    h
а
         S = “TO‘RT”      
        
 
 
 
      ? 
 
 
         
 
 
 
 
        Yo‘q 
 
 
 
  N = 5   
    h
а
         S = “BESH”      
        
 
 
 
      ? 
 
 
          
 
 
 
 
Yo‘q 
 
 
 
         
 
 
   S =”OLTI” 
 
 
     S ni chiqarish 
 
 
 
 
 
 
 
 
 
 
 
  Oxiri 
 
Dastur kodi 
Option Explicit 
Private Sub Command1_Click() 
  Dim R As Integer 
  Dim S As String 
  R = Int(6 * Rnd) + 1 
  Select Case R 
    Case 1 
        S = "BIR" 
    Case 2 
        S = "IKKI" 
    Case 3 
        S = "UCH" 
    Case 4 
        S = "TO‘RT" 
    Case 5 
 
        S = "BESH" 
PDF created with pdfFactory trial version 
www.pdffactory.com

---

    Case Else 
        S = "OLTI" 
   End Select 
   Text1.Text = Str(R) 
   Text2.Text = S 
End Sub 
 
Private Sub Command2_Click() 
  End 
End Sub 
 
Private Sub Form_Load() 
  Randomize 
End Sub 
 
Select  Casetuzilm
asida  solishtirish  amallarini  ishlatish  mumkin.  Buning  uchun 
Is
  yoki 
To
 
xizmatchi  so‘zini  ifodaga  qo‘shish  kerak. 
Is 
xizmatchi  so‘zi  kompiliyatorga  tekshirilayotgan 
o‘zgaruvchining  qiymatini  ifodaning  qiymati  bilan  solishtirishga  ko‘rsatmalar  beradi. 
To
  xizmatchi  so‘zi 
qiymatlar diapazonini beradi. Mayli yuqoridagi misolda tasodifiy sonlar 1 dan 10 gacha bo‘lgan intervaldan 
olinsin. Dastur kodini o‘zgartiringiz va 
Select Case
tuzilmasining ishlashini nazorat qiling.  
Qayta ishlangan dastur kodi: 
Option Explicit 
Private Sub Command1_Click() 
  Dim R As Integer 
  Dim S As String 
  R = Int(10 * Rnd) + 1 
  Select Case R 
    Case Is < 4 
        S = "KAM" 
    Case 4 To 6 
        S = "KO‘P" 
    Case Else 
        S = "BO’LISHI MUMKIN EMAS" 
   End Select 
   Text1.Text = Str(R) 
   Text2.Text = S 
End Sub 
 
Private Sub Command2_Click() 
  End 
End Sub 
 
Private Sub Form_Load() 
  Randomize 
End Sub 
 
11.8. Siklli tuzilmalar 
 
Dasturlash  tillarida  takrorlanuvchi  jarayonlarni  bajarish  uchun  sikllituzilmalar  ishlatiladi.  Siklli 
tuzilmalarning uch xili mavjud: 
1.
 
Takrorlanishlar soni berilgan sikl (hisoblagichli sikllar) 
2.
 
Berilgan  shart  bajarilguncha  bajariladigan  sikl.  Bunda  shart  sikl  tanasi  bajarilishidan  oldin 
tekshiriladi (Yuqoridagi qator bilan boshqariladigan sikl) 
3.
 
Berilgan  shart  bajarilguncha  bajariladigan  sikl.  Bunda  shart  sikl  tanasi  bajarilgandan  so‘ng 
tekshiriladi (Pastdagi qator bilan boshqariladigan sikl) 
PDF created with pdfFactory trial version 
www.pdffactory.com

---

Sikl tanasi bo‘yicha bir marta o‘tish “iteratsiya” deyiladi. 
 
11.8.1.
 
Takrorlanishlar soni berilgan sikl (hisoblagichli sikl) For … Next 
 
For...Nexttuzilmasi buyruqlar ketma-ketligini bir necha marta bajaradi. Bunaqangi konstrusiyani sikl 
deb ataladi va u yordamida bajariladigan dastur kodilarini – sikl tanasi deb ataladi..