REM Программа с функций пользователя
DEF FNC(X,Y,Z)=(X*(SIN(Z)^3+Y*COS(X+Z)))/SQR(X^2+Y^2+Z^2)
? "ВВЕДИТЕ ЗНАЧЕНИЯ R,A,B"
INPUT R,A,B
T=FNC(R+A,7,B^2):? "T="T
? "ВВЕДИТЕ ЗНАЧЕНИЯ S,Q,M,X"
INPUT S,Q,M,X
U=S^2+FNC(Q,M,X)*FNC(3,M+S,X)
? "U="U
END
Подпрограммы пользователя.