Пример 1.
Найти корень квадратный b из вещественного числа a.
Программа:
Sub pr1()
Dim a As Single, b As Double
a = Val(InputBox("введите a:"))
If a >= 0 Then b = a ^ 0.5
MsgBox "a=" & a & " " & "b=" & b
End Sub
Блок- схема программы примера 1
Если ввести а равное 121, то получим b=11. Если ввести а равное -4,то в результате для b не будет ответа.
Найти корень квадратный b из вещественного числа a.
Sub prвариант1()
Dim a As Single, b As Double
a = Val(InputBox("введите a:"))
If a >= 0 Then
b = a ^ 0.5
MsgBox "a=" & a & " " & "b=" & b
Else
MsgBox "действительных корней нет"
End If
End Sub
Блок- схема программы примера 2.
Sub prвариант2()
Dim a, b
a = Val(InputBox("введите a:"))
If a >= 0 Then b = a ^ 0.5: MsgBox "b=" & b Else MsgBox "действительного корня нет"
End Sub
Если ввести а равное 121, то получим b=11. Если ввести а равное -4,то в результате для будет сообщение «действительных корней нет».
Синтаксис 2(блоковый).
If <выражение 1> then
[<операторы 1>]
[elseif <выражение 2> then
[<операторы 2>]
……
[else
[<операторы n>]
End if
Пример 3.
|
|
Вводится число x. Если вывести на экран значение функции, график которой приведен на рисунке. Если x<-1 или x>1, вывести на экран надпись: «Функция не определена».
Sub pr11()
Dim x, y
x = Val(InputBox("введите x:"))
If x >= -1 And x <= 0 Then
y = (1 - x ^ 2) ^ 0.5
MsgBox "x=" & x & Chr(10) & Chr(13) & _
"y=" & y
ElseIf x > 0 And x < 1 Then
y = 1 - x ^ 2
MsgBox "x=" & x & Chr(10) & Chr(13) & _
"y=" & y
Else
MsgBox "функция не определена"
End If
End Sub
Блок- схема программы примера 3.