Условие:
Составить программу VBA для Excel для вычисления

Решение:
Листинг программы:
Sub tt()
alp = 45
a = 1.753
b = 2.856
Z = (Tan(alp) + (a + b)) / b + Abs(a + b) ^ 3
MsgBox "z=" Z
End Sub
Запись алгоритма в виде блок-схемы

Составить программу VBA для Excel для вычисления

Листинг программы:
Sub tt()
alp = 45
a = 1.753
b = 2.856
Z = (Tan(alp) + (a + b)) / b + Abs(a + b) ^ 3
MsgBox "z=" Z
End Sub
Запись алгоритма в виде блок-схемы
Не нашел нужную задачу?