Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
17
Task/Collections/FreeBASIC/collections.freebasic
Normal file
17
Task/Collections/FreeBASIC/collections.freebasic
Normal file
|
|
@ -0,0 +1,17 @@
|
|||
' FB 1.05.0 Win64
|
||||
|
||||
'create fixed size array of integers
|
||||
Dim a(1 To 5) As Integer = {1, 2, 3, 4, 5}
|
||||
Print a(2), a(4)
|
||||
|
||||
'create empty dynamic array of doubles
|
||||
Dim b() As Double
|
||||
' add two elements by first redimensioning the array to hold this number of elements
|
||||
Redim b(0 To 1)
|
||||
b(0) = 3.5 : b(1) = 7.1
|
||||
Print b(0), b(1)
|
||||
|
||||
'create 2 dimensional fixed size array of bytes
|
||||
Dim c(1 To 2, 1 To 2) As Byte = {{1, 2}, {3, 4}}
|
||||
Print c(1, 1), c(2,2)
|
||||
Sleep
|
||||
Loading…
Add table
Add a link
Reference in a new issue