- , .
, . .
( ), , .
.
, .
, ( ).
2 :
, , , .
DIM SHARED MR%
DIM SHARED F!(1 TO 5)
- .
, . , .
.
FUNCTION
1 , .
.
. , .. , .
. SR$(A,T,X)
, ().
, .
FUNCTION (. [,.....]) [ STATIC ]
1
...
[ n]
=
END FUNCTION
STATIC , .
FUNCTION , ( )
FUNCTION , . , DECLARE.
DECLARE FUNCTION [. [() ] ] [, . [()] ]...
REM
DIM SHARED ARG!, ST%
DO
INPUT ; ARG!
INPUT ; ST%
LOOP WHILE ARG! < 0
PRINT KOR! (ARG!, ST%)
END
FUNCTION KOR! (ARG!, ST%)
KOR! = ARG! ^ (1 / ST%)
END FUNCTION
|
|
REM STATIC
DIM SHARED X
X = 2
PRINT Z = ; Z(X)
PRINT Z = ; Z(X)
END
FUNCTION Z (X) FUNCTION Z (X) STATIC
DIM C DIM C
C = C + 2: Z = C C = C + 2: Z = C
END FUNCTION END FUNCTION
Z = 2 Z = 2
Z = 2 Z = 4
FUNCTION - .
, , 2 :
. , FUNCTION <> ENTER.
3
FUNCTION
-
END FUNCTION
1- 2-
. , .
( ) F2.
(, UNTITLED) .
ENTER .
SAVE () .
DECLARE FUNCTION ()