Вычислить значения по разным формулам - VBA
Формулировка задачи:
Форумчане, помогите с программированием. Нужно прописать систему уравнений в vba , вроде все прописал, но в ответе вместо значение (z) выскакивает true, и когда корней нет, все равно указывает числовое значение для (y). Где у меня допущена ошибка? ( пытался скинуть файл экселя, но сайт пишет, что превышен допустимый размер для данного типа файлов)
(Прописал ниже уже прописанное мной)
Решение задачи: «Вычислить значения по разным формулам»
textual
Листинг программы
Sub L1() Dim a As Double, b As Double, c As Double, x As Double, d As Double, Z As Double, y As Double a = InputBox("Ведите значение (а)") b = InputBox("Ведите значение (b)") c = InputBox("Ведите значение (c)") x = InputBox("Ведите значение (x)") d = InputBox("Ведите значение (d)") If Abs(x) < d Then Z = Sqr(a * x + 1) + d ElseIf Abs(x) = 0 Then Z = Sin(b * x + 1) Else Z = b ^ 3 * Cos(c * x + 1) End If y = Cos(Z) + Log(Z * a / x) MsgBox "y: " & y & vbLf & "z: " & Z End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д