Вычислить значения по разным формулам - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.846 из 5
Похожие ответы