Val(InputBox("Введите сторону a")) b = Val(InputBox("Введите сторону b")) c = Val(InputBox("Введите
сторону c")) If (a + b) > c And (b + c) > a And (a + c) > b Then MsgBox ("Треугольник существует") Else MsgBox ("Треугольник не существует") End If End Sub
= 2 * Sin(x) y = Log(x) + 4 * x h = Cos(x) Else If x = 0.8 Then z = Sqr(Sin(x)) y = Cos(x ^ 2) + x h = 2 * x Else z = Abs(x - 2) y = 2 + x ^ 2 * Sin(x) h = 0 End If End If Cells(1, 1) = "x=": Cells(1, 2) = x Cells(2, 1) = "z=": Cells(2, 2) = z Cells(3, 1) = "y=": Cells(3, 2) = y Cells(4, 1) = "h=": Cells(4, 2) = h End Sub
Слайд 12
Упражнения Имеется условный оператор: If D10 Then MsgBox(“Ура!”) Else
MsgBox(“Плохо…”) End If Какими из следующих операторов его можно заменить? If D=10
Then MsgBox(“Ура!”) Else MsgBox(“Плохо…”) End If If Not D=10 Then MsgBox(“Ура!”) Else MsgBox(“Плохо…”) End If If not(D=10) Then MsgBox(“Плохо…”) Else MsgBox(“Ура!”) End If If not(D<>10) Then MsgBox(“Плохо…”) Else MsgBox(“Ура!”) End If
Слайд 13
Упражнения Какими будут значения переменных x, y после выполнения
условного оператора: If x>y Then x=y-2 Else y=y-2 End
If если исходные значения переменных равны: x=3, y=5 x=3, y=3
Слайд 14
Упражнения Используя составной оператор, упростите следующий фрагмент программы: If a>b
Then c=1 End If If a>b Then d=2 End If If
a<=b Then c=3 End If If a<=b Then d=4 End If
Слайд 15
Упражнения Истинно или ложно при a = 2; b
= 3; c = 4 Not a > b a
b and b < c not a >= b or c = d a < c or b < c and b < a a > b or not b < c
Укажите порядок выполнения операций: if not a > b or not (c = d and b = a)
Слайд 16
Упражнения Для каких значений x истинны условия (ответы запишите
в виде интервалов): x < 6 and x
10 x < 6 and x > 10 x > 6 and x < 10 x > 6 and x > 10 x < 6 or x < 10 x < 6 or x > 10 x > 6 or x < 10 x > 6 or x > 10
Слайд 17
Упражнения По блок-схеме записать условный оператор
Слайд 18
Упражнения По блок-схеме записать условный оператор