Сабақтың тақырыбы: Процедуралар және функциялар. Білімділік мақсаты
жүктеу/скачать 132,86 Kb.
|
Сабақ жоспары Процедуралар және функциялар (10 класс)
- Бұл бет үшін навигация:
- Объект Қасиеті Мәні
| «Кім жүйрік» практикалық жұмыс.
Бұл жерде оқушылар берілген тапсырма арқылы өздерінің білімдерін программа құру арқылы анықтайды. Тапсырма барлығына ортақ берілген. Жаңа тақырыпты бекіту барысында оқушылар компьютерде тапсырмалар орындайды. Әр жоба жұмыс үстеліндегі Оқушының аты-жөні папкасында сақталады. Оқушыларға тапсырмалар жазылған карточкалар таратылады. №1 есеп MsgBox, InputBox функцияларын пайдаланып, a=125, b=230 үшін c=a2+b2 өрнегінің мәнін табуға жоба құр. К од: Private Sub Form_Load() Dim a, b, c As Variant a = InputBox(a, "a=") b = InputBox(b, "b=") c = a ^ 2 + b ^ 2 c = MsgBox(c) End Sub №2 есеп Формада кез келген екі санмен қосу, азайту, көбейту, бөлу амалдарын орындайтын калькулятор жобасын құр Программаның орындалуы: - Visual Basic ортасын ашып, жаңадан проект құрыңыз. - Формаға келесі элементтерді орналастырыңыз және қасиеттерін өзгертіңіз:
К од: Private Sub Command1_Click() Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub Private Sub Command2_Click() Text3.Text = Val(Text1.Text) - Val(Text2.Text) End Sub Private Sub Command3_Click() Text3.Text = Val(Text1.Text) * Val(Text2.Text) End Sub Private Sub Command4_Click() Text3.Text = Val(Text1.Text) / Val(Text2.Text) End Sub Private Sub Command5_Click() End End Sub №3 есеп Параллелепипедтің көлемінесептейтін жоба құр. Программаның орындалуы: - Visual Basic ортасын ашып, жаңадан проект құрыңыз. - Формаға келесі элементтерді орналастырыңыз және қасиеттерін өзгертіңіз:
Код: Private Sub Command1_Click() D im a As Integer, b As Integer, h As Integer, V As Integer a = Val(Text1.Text) b = Val(Text2.Text) h = Val(Text3.Text) V = a * b * h Text4.Text = Str(V) End Sub Private Sub Command2_Click() End End Sub Оқушылар тапсырманы орындағаннан кейін бір-екі оқушы жасаған жобаларына түсініктеме береді. «Сергіту сәті» өтеді. Экраннан «Қарлығаш» атты сергіту сәті көрсетіледі. Оқушылар бірге жасайды. Оқушыларды бағалау парағы арқылы білімдерін бағалау. Сабақты қортындылағанда экраннан Activote тестілеу құрылғысының көмегімен бүгінгі сабақ ұнаса «Иә» деп, ұнамаса «Жоқ» деп жауап береді. Үйге тапсырма. Есеп №3 есеп функциясының мәнін есепте. Мұндағы a=1,4432; b=3,5; x=66,987. /Бұл есепте оқушылар өздері жоба құру үшін керекті объектілерді анықтайды./ Код: Private Sub Command1_Click() Dim a, b, x, s As Variant a = Text1.Text b = Text2.Text x = Text3.Text a = Val(a) b = Val(b) x = Val(x) s = Sqr((x * b)) / a + Cos((x + b) ^ 3) ^ 2 Text4.Text = s End Sub жүктеу/скачать 132,86 Kb. Достарыңызбен бөлісу:
|