Составьте блок-схему и программу на Бейсике вычисления функции Y,где x задаётся с клавиатуры.

Function func_y(x As Double) As Double

func_y = Fix((2 - Sgn(x)) / 2) * (5 * x + 1) + Fix((1 + Sgn(x)) / 2) * x ^ 3

End Function

Excel VBA