Лабораторная работа: Програмування алгоритмічною мовою VBA

'Автор-розробник Захарченко

'виведення назви програми

MsgBox ("iteraciyna")

'оголошення змінних

Dim Q, x, x0, dx, xn, b As Single

'введення данних

b = CSng(InputBox("Уведiть b"))

x0 = CSng(InputBox("Уведiть x0"))

xn = CSng(InputBox("Уведiть xn"))

dx = CSng(InputBox("Уведiть dx"))

x = x0

'обчислення функцій

While x <= xn

If b * x <= 0 Then

GoTo 1

Else

If b * x < 1 Then

Q = b * x - Log(b * x) / Log(10)

Else

If b * x = 1 Then

Q = 1

Else

Q = b * x + Log(b * x) / Log(10)

End If

End If

End If

'виведення результатів

MsgBox ("Значення Q=" + Str(Q) + " x=" + Str(x))

1