{* Задача4 *}

REM basic

'
'

Вычислить L
' = [S(x² + 2x – 2)]^1/2 – 4S²(x) + 11, где S(t) = t + sin³t – 0, 5.

'

'

Для вычисления функции использовать одно-строковую
' внутреннюю функцию.

'

Declare Function S (T)

INPUT "Enter a number: ", X
L = SQR(S(X * X + 2 * X - 2)) - 4 * S(X) * S(X) + 11
PRINT "L = "; L

End

Function S (T)
  S = T + SIN(T) * SIN(T) * SIN(T) - .5
End Function