Add files via upload

This commit is contained in:
Андрей 2021-03-29 20:43:07 +04:00 committed by GitHub
parent 64c6352265
commit 35131ba393
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
90 changed files with 1738 additions and 0 deletions
Examples/Core

31
Examples/Core/array.bas Normal file
View file

@ -0,0 +1,31 @@
SUB PASS_ARRAY_1D(ARRAY(3) AS INTEGER)
DIM I AS INTEGER
FOR I=1 TO 3
PRINT "PASS_ARRAY_1D> ARRAY(" + STRING(I) + ")=" + STRING(ARRAY(I))
END FOR
END SUB
SUB PASS_ARRAY_2D(ARRAY(3,3) AS INTEGER)
DIM I,J AS INTEGER
FOR I=1 TO 3
FOR J=1 TO 3
PRINT "PASS_ARRAY_2D> ARRAY(" + STRING(I) + "," + STRING(J) + ")=" + STRING(ARRAY(I,J))
END FOR
END FOR
END SUB
SUB MAIN
DIM ARRAY1(3) AS INTEGER
DIM ARRAY2(3,3) AS INTEGER
DIM I,J AS INTEGER
FOR I=1 TO 3
ARRAY1(I) = I
FOR J=1 TO 3
ARRAY2(I,J) = (I-1) * 3 + J
END FOR
END FOR
CALL PASS_ARRAY_1D(ARRAY1)
CALL PASS_ARRAY_2D(ARRAY2)
END SUB