Arrays: Difference between revisions

Content added Content deleted
(→‎Insitux: implementation)
m (→‎{{header|FutureBasic}}: Added 'mda' array example)
Line 3,872: Line 3,872:
=={{header|FutureBasic}}==
=={{header|FutureBasic}}==
<syntaxhighlight lang="futurebasic">window 1, @"FutureBasic Arrays"
<syntaxhighlight lang="futurebasic">window 1, @"FutureBasic Arrays"

window 1, @"FutureBasic Arrays", (0,0,480,450)


begin globals
begin globals
Line 3,931: Line 3,933:
gA1(10) = 67
gA1(10) = 67
for i = 0 to fn DynamicNextElement( dynamic(gA1) ) - 1
for i = 0 to fn DynamicNextElement( dynamic(gA1) ) - 1
print gA1(i),
print gA1(i),
next
next
print
print

gA1(5) = 19
gA1(5) = 19
gA1(10) = 22
gA1(10) = 22
for i = 0 to fn DynamicNextElement( dynamic(gA1) ) - 1
for i = 0 to fn DynamicNextElement( dynamic(gA1) ) - 1
print gA1(i),
print gA1(i),
next
next
print
print

gA2(0) = "Kilo"
gA2(0) = "Kilo"
gA2(1) = "Lima"
gA2(1) = "Lima"
gA2(5) = "Mike"
gA2(5) = "Mike"
for i = 0 to fn DynamicNextElement( dynamic(gA2) ) - 1
for i = 0 to fn DynamicNextElement( dynamic(gA2) ) - 1
print gA2(i),
print gA2(i),
next
next
print
print

gA2(1) = "November"
gA2(1) = "November"
gA2(6) = "Oscar"
gA2(6) = "Oscar"
for i = 0 to fn DynamicNextElement( dynamic(gA2) ) - 1
for i = 0 to fn DynamicNextElement( dynamic(gA2) ) - 1
print gA2(i),
print gA2(i),
next
next
print : print
print : print
end fn
end fn


Line 4,035: Line 4,037:
for i = 0 to len(a1) - 1
for i = 0 to len(a1) - 1
print a1[i],
print a1[i],
next
print : print
end fn

void local fn FB_MDA
long i
text ,, fn ColorGray
print @"// FB MDA - mutable, dynamic, multi-dimensional"
text
mda_add = @"Alpha"
mda_add = @"Romeo"
mda_add = @"Mike"
for i = 0 to mda_count - 1
print mda(i),
next
print
mda_swap(0),(2)
mda(1) = @"Delta"
for i = 0 to mda_count - 1
print mda(i),
next
next
end fn
end fn
Line 4,043: Line 4,072:
fn CoreFoundationMutableFixedLength
fn CoreFoundationMutableFixedLength
fn CoreFoundationMutableDynamic
fn CoreFoundationMutableDynamic
fn FB_MDA


HandleEvents</syntaxhighlight>
HandleEvents


{{out}}
{{out}}
Line 4,073: Line 4,103:
Juliet Golf India
Juliet Golf India
Foxtrot Golf Hotel
Foxtrot Golf Hotel

// FB MDA - mutable, dynamic, multi-dimensional
Alpha Romeo Mike
Mike Delta Alpha
</pre>
</pre>