В одной программе с помощью условного
оператора IF организовать расчет функции y по трем
различным формулам в зависимости от значения аргумента x,
введенного с клавиатуры в диалоговом режиме. Вывод исходных данных и
результатов организовать на лист Excel, сопроводив их необходимыми
комментариями. Запустив программу несколько раз, поочередно проверить результат
ее работы при указанных в таблице контрольных значениях x. Предусмотреть для каждого
введенного значения x вывод номера ветви для расчета и
полученного значения y в отдельные ячейки Excel согласно образцу,
приведенному ниже. Для этого рекомендуется в программе оператор вывода записать
в каждую ветвь оператора IF после расчета соответствующего значения y.сама функция вот:
вот что я сделала, но выдаются ошибки, подскажите что исправитьSub 30835_8_2()Dim x As Single, y As Single
Dim x1 As Single, x2 As Single, x3 As Single
Dim y1 As Single, y2 As Single, y3 As Single
Const a = 2
x = Val(InputBox("Введите x"))
If (x < a) Then y = 1 + Sqr(a * x)
x1 = x
y1 = y
Else: If (x = a) Then y = Sqr(a) + Log(x ^ 2)
x2 = x
y2 = y
Else
y = Sin(a * x)
x3 = x
y3 = y
End If
End If
Cells(13, 12) = "При x = " & x1
Cells(13, 13) = "y = " & y1
Cells(14, 12) = "При x = " & x2
Cells(14, 13) = "y = " & y2
Cells(15, 12) = "При x = " & x3
Cells(15, 13) = "y = " & y3
MsgBox "При x = " & x
MsgBox "y = " & y
End Sub
