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

Ob’yekt 
Xossa 
O‘rnatilgan qiymatlari 
Form1 
Caption 
Select Casetuzilmasi 
Label1 
Caption 
1 dan 6 gacha bo‘lgan tasodif son 
Label2 
Caption 
Sonli qiymati 
Label3 
Caption 
So‘z bilan yoizilishi 
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  Casetuzilmasida  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 Casetuzilmasining 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.