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

Command1 
Caption 
Ishga tushirish 
Command2 
Caption 
Dasturdan chiqish 
Text1, Text2 
Text 
Text xossasi maydonini tozalash 
 
 
11.38-rasm 
 
Blok-sxemasi 
 
PDF created with pdfFactory trial version 
www.pdffactory.com

---

  
 
              
                    
Dastur kodi 
 
Option Explicit 
Private Sub Command1_Click() 
Dim K1, K2 As Integer 
Dim X, Y, D As Single 
K1 = 0 
K2 = 0 
Do While (K1 <= 300) And (K2 <= 50) 
  X = 2# * Rnd - 1# 
  Y = 2# * Rnd - 1# 
  K1 = K1 + 1 
  D = X * X + Y * Y 
  If (D > 0.25) And (D < 1#) Then K2 = K2 + 1 
Loop 
Text1.Text = Str(K1) 
Text2.Text = Str(K2) 
End Sub 
 
Private Sub Command2_Click() 
  End 
End Sub 
 
Private Sub Form_Load() 
  Randomize 
End Sub 
 
PDF created with pdfFactory trial version 
www.pdffactory.com

---

 
11.39-rasm 
 
17-misol: Shartli sikllarningtuzilmasini ishlatish  
(sikl tanasi bajarilganidan so‘ng shartni tekshirish) 
 
Tasodif sonlar datchigi yordamida 0 dan 1000 gacha bo‘lgan oraliqdan butun sonni olish. Urinishlar 
950  dan  katta  bo‘lgan  qiymatni  olguncha  davom  etadi.  Olingan  natijani  va  urinishlar  sonini  natijaga 
chiqarish kerak. 
Algoritmi 
 
1.
 
К
 – urinishlar soni – siklga kirisgdan oldin unga nol qiymatini berish  
2.
 
Sikl sarlavqasini kiritish  
3.
 
Sikl iteratsiyasi formulasini kiritish 
К
 =
К
 + 1  
 
А
 =1000*int(Rnd) tasodif sonini aniqlash 
4.
 
Agar 
А
  
≤
 950 bo‘lsa, 3-bosqichqa o’tish 
5.
 
А
, 
К
 larni chiqarish 
 
 
 
11.40-rasm