Dim x As Single, n As Single, y As Single

'Ввод исходных данных

x = Val(InputBox("Введите x "))

n = Val(InputBox("Введите n"))

'Проверка условий и расчет значений

If x >= 0 And n >= 0 Then y = Sqr(x)

If x < 0 And n < 0 Then y = n * x + 2

MsgBox ((“y=” & y) 'Вывод результата

End Sub

Пример 3 программы вычисления значения функции y с вложенным оператором If:

.

Private Sub CommandButton1_Click()

Dim x As Single, y As Single

x = Val(InputBox("Ввелите x "))

If x<0 Then y =x+5 Else If x<=5 Then y=Sqr(3*x) Else y =x^2

MsgBox (y)

End Sub

Пример 4 (использование блочного оператора If).Вычислить значения y=sin²x, w=ctgx, если х <5; y=1-sinx, w=arctgx, если х ³ 5.

х={9; 0.1; -4; 5; 12}

Не нашли, что искали? Воспользуйтесь поиском: