InfoHub Logo

ساباقتىڭ تاقىرىبى: "WINDOWS قوسىمشاسىن جوبالاۋ. گەومەتريالىق ەسەپكە جوبا قۇرۋ".
ساباقتىڭ ماقساتى: ەكران ءپىشىنىنىڭ كورىنىسىن ەسكەرە وتىرىپ، بەرىلگەن ەسەپكە جوبا قۇرۋعا داعدىلاندىرۋ؛ باعدارلامالىق كود قۇرۋ جانە ونداعى سينتاكسيستىك، لوگيكالىق قاتەلەرمەن جۇمىس جاساي بىلۋگە ۇيرەنۋ.

ساباقتىڭ ءتيپى: باقىلاۋ، وقۋشىلاردىڭ ءبىلىمىن بايقاۋ، تەكسەرۋ ساباعى.
قولدانىلاتىن ادىس-تاسىلدەر: ادىستەر-بايانداۋ، اڭگىمە، تالداۋ؛ تاسىلدەر-كورنەكىلىك، سالىستىرۋ، تسو

ساباقتىڭ ءوتۋ بارىسى:
1. ساباقتى ۇيىمداستىرۋ. (1-2 مين)
2. دايىندىق كەزەڭى. (10-12 مين)
سۇراقتار:
اينىمالى دەگەن نە؟
اينىمالى اتاۋىنا قانداي شەكتەۋ قويىلادى؟
VB اينىمالىلاردىڭ كەلەسى تيپتەرى قولدانىلادى:
integer - 2 بايت - -32768 دەن 32767 گە دەيىنگى ءبۇتىن ساندار
long - 4 بايت - -2147483648 دەن 2147483647 گە دەيىنگى ءبۇتىن ساندار
single - 8 بايت - وندىق ساندار
string - جولدىق شامالار
variant -16 بايت - كەز-كەلگەن تيپ
ۆoolean - true، false - لوگيكالىق شامالار

3. وقۋشى ءبىلىمىن تەكسەرۋ. №9 پراكتيكالىق جۇمىس.
ا) ەسەپتىڭ بەرىلۋى
ەسەپتىڭ قويىلۋى: a، b، c قابىرعالارى بويىنشا ءۇشبۇرىشتىڭ پەريمەترىن جانە اۋدانىن، a، b قابىرعالارى بويىنشا تىكتورتبۇرىشتىڭ پەريمەترىن جانە اۋدانىن ءبىر قوسىمشادا جوبالا.
ب) ەسەپكە مودەل قۇرۋ
ماتەماتيكالىق مودەلى باعدارلامالاۋعا ارنالعان مودەل

ءۇشبۇرىشتىڭ پەريمەترى: P = a + b + c P = a + b + c
ءۇشبۇرىشتىڭ اۋدانى: S
S = sqr(p / 2 * (p / 2 - a) * (p / 2 - b) * (p / 2 - c))
تىكتورتبۇرىشتىڭ پەريمەترى: P = 2 (a + b)
P = 2 * (a + b)
تىكتورتبۇرىشتىڭ پەريمەترى:
S= ab S = a * b
ۆ)ەكران ءپىشىنىنىڭ كورىنىسى
گ) ەكران ءپىشىنى كورىنىسىن پايدالانا وتىرىپ، باعدارلامالىق كودتى جوسپارلاۋ. اينىمالى تيپتەرىن كورسەتۋ.

Dim a As Single
Dim b As Single
Dim c As Single
Dim P As Single
Dim S As Single
Private Sub Command1_Click()
a = Val(Text1.Text)
b = ؟؟؟
c = ؟؟؟
p = ؟؟؟
s = ؟؟؟
Text4.Text = ؟؟؟
Text5.Text = ؟؟؟
End Sub
Private Sub Command2_Click()
؟؟؟
؟؟؟
؟؟؟
؟؟؟
؟؟؟
End Sub
Private Sub Command3_Click()
a = ؟؟؟
b = ؟؟؟
p = ؟؟؟
s = a * b
Text8.Text =؟؟؟
Text9.Text = Str(s)
End Sub
Private Sub Command4_Click()
؟؟؟
؟؟؟
؟؟؟
؟؟؟
End Sub
4. ءۇي تاپسىرماسى. (3 مين)
(تىك بۇرىشتى ءۇشبۇرىشتىڭ ەكى كاتەتى بويىنشا، گيپوتەنۋزاسىن ەسەپتەۋ جانە ءبىر كاتەتى مەن گيپوتەنۋزاسى بويىنشا ەكىنشى كاتەتىن ەسەپتەۋدى جوبالاۋ)
5. بەكىتۋ (3 مين)
Val جانە Str فۋنكسيالارىنىڭ مىندەتتەرىنە توقتالۋ
6. باعالاۋ. (2 مين)