Составить программу на MS Excel Visual Basic!
Приложения:
Ответы на вопрос
Ответил v1248
0
Несколько вариантов
Sub XYZ()
X = Cells(4, 2)
Z = Cells(4, 3)
If X < 0 Or Z > 3 Then
Y = X * X + 3 * X * Z - Z
Else
If X < 0 Or Z > 3 Then
Y = Z * Z + 5 * X * Z - Z * Z
Else
Y = Tan(Abs(2 * X * Z))
End If
End If
Cells(7, 3) = Y
End Sub
Sub XYZ()
X = Cells(4, 2)
Z = Cells(4, 3)
If X < 0 Or Z > 3 Then
Y = X * X + 3 * X * Z - Z
Else
If X < 0 Or Z > 3 Then
Y = Z * Z + 5 * X * Z - Z * Z
Else
Y = Tan(Abs(2 * X * Z))
End If
End If
Cells(7, 3) = Y
End Sub
Приложения:
Новые вопросы