aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Task/Arrays/PureBasic/arrays-1.basic Normal file
View file

@ -0,0 +1,5 @@
;Set up an Array of 23 cells, e.g. 0-22
Dim MyArray.i(22)
MyArray(0) = 7
MyArray(1) = 11
MyArray(7) = 23

5
Task/Arrays/PureBasic/arrays-2.basic Normal file
View file

@ -0,0 +1,5 @@
;Extend the Array above to 56 items without affecting the already stored data
ReDim MyArray(55)
MyArray(22) = 7
MyArray(33) = 11
MyArray(44) = 23

6
Task/Arrays/PureBasic/arrays-3.basic Normal file
View file

@ -0,0 +1,6 @@
;Find all 6 non-zero cells from the Array above
For i=0 To ArraySize(MyArray())
If MyArray(i)
PrintN(Str(i)+" differs from zero.")
EndIf
Next

4
Task/Arrays/PureBasic/arrays-4.basic Normal file
View file

@ -0,0 +1,4 @@
; Now, set up a multi dimensional Array
Dim MultiArray.i(800, 600)
MultiArray(100, 200) = 640
MultiArray(130, 40) = 120

2
Task/Arrays/PureBasic/arrays-5.basic Normal file
View file

@ -0,0 +1,2 @@
Dim MultiArray2.i(64, 128, 32)
PrintN( Str(ArraySize(MultiArray2(), 2)) ; Will tell that second dimension size is '128'