18 lines
426 B
Text
18 lines
426 B
Text
N =20
|
|
dim IntArray$( N, 2)
|
|
|
|
print "Original order"
|
|
for i =1 to N
|
|
name$ =mid$( "SortArrayOfCompositeStructures", int( 25 *rnd( 1)), 1 +int( 4 *rnd( 1)))
|
|
IntArray$( i, 1) =name$
|
|
print name$,
|
|
t$ =str$( int( 1000 *rnd( 1)))
|
|
IntArray$( i, 2) =t$
|
|
print t$
|
|
next i
|
|
|
|
sort IntArray$(), 1, N, 1
|
|
print "Sorted by name" ' ( we specified column 1)
|
|
for i =1 to N
|
|
print IntArray$( i, 1), IntArray$( i, 2)
|
|
next i
|