Препод сказала составить программу в Visual Basic , можно на листе решить

Function func1(a As Double) As Double

Dim i As Integer, b As Double

i = 1 - Sgn((Abs(a) - a) / 2)

b = Sqr(a * i)

a = a * 2 + i * (b - 2 * a)

func1 = a

End Function