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

12.5 
12.5 
78.5375 
490.8594 
70.71067811
 
312.5 
141.4214 
1250 
PDF created with pdfFactory trial version 
www.pdffactory.com

---

 
11.7-rasm 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
Blok -sxemasi 
 
 
 
 
Boshi 
 
 
                         
N sonini kiritingiz 
 
 
     
 
     Birliklar soni 
                              КЕ = N mod 10 
 
 
 
 
 
 
 
      N =  N  \  10 
 
 
 
 
          
 
 
PDF created with pdfFactory trial version 
www.pdffactory.com

---

 
 
 
 
 
 
                                O‘nliklar soni 
 
 
 
 
     KD = N mod 10 
 
 
 
 
 
 
 
 
                            
 
 
      
 
 
        N = N  \  10 
 
 
                  
 
 
  
 
 
                               
 
 
 
 
      Yuzliklar soni   
 
 
      
 
 
      KS = N mod 10 
 
 
      
 
 
                           
 
      
 
 
 
 Mingliklar soni  
 
      
 
 
 KT = N mod 10  
 
  
 
 
 
       
                          S= KE+KD+KS+KT 
 
                   
 
 
   
 
Ob’yek
t 
Xossa 
O‘rnatilgan qiymatlari 
Form1 
Caption 
Sonni tashkil qiluvchi raqamlar 
yig‘indisini hisoblash 
Label1 
Caption 
To‘rt xonali butun sonni 
kirirting 
Label2 
Caption 
Raqamlar yig’indisi 
Command1 
Caption 
Hisoblash 
Command2 
Caption 
Tugatish 
Text1 
Text2 
Text 
 
Text xossasi maydonini 
tozalash 
 
 
11.8-rasm 
Dasturning kodi 
Option Explicit 
Private Sub Command1_Click() 
PDF created with pdfFactory trial version 
www.pdffactory.com

---

  Dim intN, intKE, intKD, intKS, intKT, intS As Integer 
  intN = Val(Text1.Text) 
  intKE = intN Mod 10 
  intN = intN \ 10 
  intKD = intN Mod 10 
  intN = intN \ 10 
  intKS = intN Mod 10 
  intKT = intN \ 10 
  intS = intKE + intKD + intKS + intKT 
  Text2.Text = Str(intS) 
   
End Sub 
 
Private Sub Command2_Click() 
   End 
End Sub 
 
 
11.9-rasm 
 
11.20-rasm 
 
11.6. If, Go To, Select boshqaruvtuzilmalari 
 
If  va  Select  boshqaruvtuzilmalari  boshqaruv  operatorlari  yoki  echim  qabul  qiluvchi 
konstruktsiyalar  deb  ataladi.  Shu  bois  ular  dastur  operatorlarining  odatdagi  ketma-ket  bajarilishini 
o‘zgartiradi. Bu konstruktsiyalar ishlatilmaganda dastur birinchi operatordan oxirgi operatorgacha ketma-ket 
bajariladi.  Echim  qabul  qiluvchi  operatorlarini  qo‘llgash  dasturda  hosil  bo‘lgan  shartlarga  boi‘lik  holda 
aniqlangan amallarni bajarishga imkon beradi.  
4582 
4582 
19 
PDF created with pdfFactory trial version 
www.pdffactory.com

---

 
10-misol: Tarmoqlanuvchi dastur 
To‘rtta    A,    B,    C  va  D  haqiqiy  qiymatlarini  kiritib,  ularning  maksimal  va  minimal  qiymatlarini 
chiqarishni dasturlash. 
Algoritm 
1.  A, B, C, D larni kiritish. 
2.  A va B qiymatlarining kattasini aniqlash va uni R1 o‘zgaruvchisiga o‘zlashtirish. 
3.  C va D qiymatlarining kattasini aniqlash va uni R2 o‘zgaruvchisiga o‘zlashtirish. 
4.  R1 va R2 qiymatlarining kattasini aniqlash va uni MAX o‘zgaruvchisiga o‘zlashtirish. 
5.  A va B qiymatlarining kichigini aniqlash va uni R1 o‘zgaruvchisiga o‘zlashtirish. 
6.  C va D qiymatlarining kichigini aniqlash va uni R2 o‘zgaruvchisiga o‘zlashtirish. 
7.  R1 va R2 qiymatlarining kichigini aniqlash va uni MIN o‘zgaruvchisiga o‘zlashtirish. 
8.  MAX va MIN o‘zgaruvchilarining qiymatlarini chop etish