Ob’yekt
|
Xossa
|
O‘rnatilgan qiymatlari
|
Form1
|
Caption
|
Shaklning yuzasi va perimetrini hisoblash
|
Label1
|
Caption
|
Doira radiusini kiritingiz
|
Label2
|
Caption
|
Perimetr
|
Label3
|
Caption
|
Maydon
|
Label4
|
Caption
|
Doira
|
Label5
|
Caption
|
Ichki chizilgan kvadrat
|
Label6
|
Caption
|
Tashqi chizilgan kvadrat
|
Command1
|
Caption
|
Hisoblash
|
Command2
|
Caption
|
Tugatish
|
Text1, Text2,
Text3, Text4,
Text5, Text6
Text7
|
Text
|
Text xossasi maydonini tozalash
|
11.4-rasm
Dastur kodi
Option Explicit
Private Sub Command1_Click()
Const Pi As Single = 3.1415
Dim sngR As Single
Dim sngD, sngAV, sngAO As Single
Dim sngC1, sngC2 As Single
Dim sngKV1, sngKV2 As Single
Dim sngKO1, sngKO2 As Single
sngR = Val(Text1.Text) ' Radiusni aniqlash
sngC1 = 2 * Pi * sngR ' Aylana uzunligi
sngC2 = Pi * sngR ^ 2 ' Doira maydoni
sngD = 2 * sngR ' Diametr
sngAV = sngD / Sqr(2) ' Ichki chizilgan kvadratning tomoni
sngKV1 = 4 * sngAV ' Ichki chizilgan kvadratning perimetri
sngKV2 = sngAV ^ 2 ' Ichki chizilgan kvadratning maydoni
sngAO = sngD * Sqr(2) ' Tashqi chizilgan kvadratning tomoni
sngKO1 = 4 * sngAO ' Tashqi chizilgan kvadratning perimetri
sngKO2 = sngAO ^ 2 ' Tashqi chizilgan kvadratning maydoni
Text2.Text = Str(sngC1)
Text3.Text = Str(sngC2)
Text4.Text = Str(sngKV1)
Text5.Text = Str(sngKV2)
Text6.Text = Str(sngKO1)
Text7.Text = Str(sngKO2)
End Sub
Private Sub Command2_Click()
End
End Sub
12.5
11.5-rasm
12.5
78.5375
490.8594
70.71067811
312.5
141.4214
1250
11.6-rasm
9-misol: Chiziqli algoritmli dastur
To‘rtta xonali sonni va uni tashkil qiluvchi raqamlarining yig‘indisini chiqarish.
Dastur algoritmi:
N sonini chiqarish.
N ni 10 ga bo‘lgandagi qoldiqni olish. Bu qoldiq ta’rif bo‘yicha sondagi birliklar soniga teng. Uning qiymati KE o‘zgaruvchisiga saqlanadi.
N ni 10 ga butun sonli bo‘lish amali bilan bo‘lingiz. Amal natijasi qiymati va raqamlari ketma-ketligi berilgan sonning qiymati va oxirgi uchta raqamiga mos keluvchi uch xonali songa teng bo‘ladi. Olingan qiymatni dastlabki sonning nomi N bilan saqlangiz.
N sonini 10 ga bo‘lgandagi qoldiq olinadi. Bu qoldiq ta’rif bo‘yicha uch xonali sonning birliklari soniga yoki dastlabki sonning o‘nliklari soniga teng bo‘ladi. Uni KD o‘zgaruvchisiga saqlangiz.
N ni 10 ga butun sonli bo‘lish amali bilan bo‘lingiz. Amal natijasi qiymati va raqamlari ketma-ketligi berilgan sonning qiymati va boshidagi uchta raqamiga mos keluvchi ikki xonali songa teng bo‘ladi. Olingan qiymatni dastlabki sonning nomi N bilan saqlanadi
N sonini 10 ga bo‘lgandagi qoldiq olinadi. Bu qoldiq dastlabki sonning yuzliklari soniga teng bo‘ladi. Uni KS o‘zgaruvchisiga saqlangiz.
N ni 10 ga butun sonli bo‘lish amali bilan bo‘lingiz. Amal natijasi dastlabki sonning mingliklari soniga teng bo‘ladi. Uni KT o‘zgaruvchisiga saqlangiz.
S = KE + KD + KS + KT yig‘indisini hisoblangiz.
Olingan natijani chop etingiz.
11.7-rasm
Blok -sxemasi
Boshi
N sonini kiritingiz
Birliklar soni
КЕ = N mod 10
N = N \ 10
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’yekt
|
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()
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
4582
11.9-rasm
| 