BCX Console Demonstration Program s107.bas
|
DIM I
DIM Inner
DIM Outer
DIM Number
DIM A$[101]
PRINT "UnSorted ..."
PRINT
FOR I = 1 TO 100
A$[I] = STR$(RND * 100)
PRINT I, " ", A$[I]
NEXT
PRINT
PRINT "Sorting ..."
Number = 100
GOSUB Sort
FOR I = 1 TO 100
PRINT I, " ", A$[I]
NEXT
END
Sort:
FOR Outer = 1 TO Number - 1
FOR Inner = Outer + 1 TO Number
IF A$[Inner] < A$[Outer] THEN SWAP A$[Inner], A$[Outer]
NEXT
NEXT
RETURN
Result:
UnSorted ...
1 30.7502001523972
2 12.5836446881294
3 0.361891742795706
4 70.9096252918243
5 55.6984186172485
6 68.9511060714722
7 41.8136894702911
8 27.5522798299789
9 93.2966232299805
10 19.2188709974289
11 34.773463010788
12 92.3383831977844
13 82.8985691070557
14 51.7249703407288
15 97.735720872879
16 84.5632791519165
17 83.0920517444611
18 5.17919883131981
19 33.6604118347168
20 86.3768041133881
21 51.9260406494141
22 36.2760782241821
23 44.3548381328583
24 86.4492893218994
25 6.59729391336441
26 18.6986938118935
27 92.3373579978943
28 69.5577085018158
29 80.4263651371002
30 23.853874206543
31 38.2094949483871
32 72.280365228653
33 73.0410873889923
34 28.2180398702621
35 0.180456601083279
36 94.0303683280945
37 55.4339647293091
38 50.0187695026398
39 33.1548392772675
40 56.5605640411377
41 53.5438179969788
42 63.1506681442261
43 48.9100962877274
44 96.8801736831665
45 66.2645876407623
46 58.9247703552246
47 68.6829507350922
48 73.3335971832275
49 48.7325429916382
50 89.9968862533569
51 65.4178857803345
52 7.67563506960869
53 61.9831204414368
54 95.3275978565216
55 20.8984985947609
56 72.8222012519836
57 82.1355998516083
58 60.8372390270233
59 68.5757398605347
60 21.523129940033
61 10.3602282702923
62 36.8458598852158
63 44.3922579288483
64 74.4657933712006
65 25.3382086753845
66 12.2862108051777
67 32.2555750608444
68 86.0999405384064
69 64.4238948822021
70 98.7885177135468
71 99.0026116371155
72 17.7112266421318
73 52.4559438228607
74 32.6132774353027
75 93.4562742710114
76 72.6866483688354
77 15.596117079258
78 85.9868168830872
79 41.3688063621521
80 78.5479009151459
81 91.6662275791168
82 87.7400815486908
83 32.3376476764679
84 97.8541135787964
85 64.3953919410706
86 34.5473438501358
87 12.9683881998062
88 36.2465679645538
89 46.0952758789063
90 0.598820485174656
91 76.7659246921539
92 58.4100961685181
93 76.5057742595673
94 93.2432949542999
95 9.68718975782394
96 4.46416735649109
97 76.9590198993683
98 17.8909242153168
99 19.0979406237602
100 8.38735997676849
Sorting ...
1 0.18045660108327
2 0.36189174279570
3 0.59882048517465
4 10.3602282702923
5 12.286210805177
6 12.583644688129
7 12.968388199806
8 15.596117079258
9 17.7112266421317
10 17.8909242153168
11 18.6986938118932
12 19.0979406237602
13 19.2188709974288
14 20.8984985947604
15 21.523129940033
16 23.8538742065435
17 25.3382086753849
18 27.5522798299785
19 28.2180398702629
20 30.7502001523971
21 32.2555750608449
22 32.337647676467
23 32.6132774353029
24 33.1548392772677
25 33.6604118347164
26 34.5473438501355
27 34.7734630107888
28 36.2465679645538
29 36.2760782241822
30 36.8458598852158
31 38.2094949483878
32 4.46416735649109
33 41.3688063621521
34 41.8136894702911
35 44.3548381328581
36 44.3922579288481
37 46.0952758789063
38 48.7325429916383
39 48.9100962877272
40 5.17919883131984
41 50.0187695026393
42 51.7249703407288
43 51.9260406494141
44 52.4559438228607
45 53.5438179969788
46 55.4339647293098
47 55.6984186172481
48 56.5605640411377
49 58.4100961685181
50 58.9247703552246
51 6.59729391336441
52 60.8372390270233
53 61.9831204414368
54 63.1506681442261
55 64.3953919410706
56 64.4238948822021
57 65.4178857803345
58 66.2645876407623
59 68.5757398605347
60 68.6829507350922
61 68.9511060714725
62 69.5577085018151
63 7.67563506960869
64 70.9096252918248
65 72.2803652286532
66 72.6866483688354
67 72.8222012519836
68 73.0410873889923
69 73.3335971832275
70 74.4657933712006
71 76.5057742595673
72 76.7659246921539
73 76.9590198993683
74 78.5479009151459
75 8.38735997676849
76 80.4263651371002
77 82.1355998516083
78 82.8985691070553
79 83.0920517444617
80 84.5632791519161
81 85.9868168830872
82 86.0999405384064
83 86.3768041133881
84 86.4492893218994
85 87.7400815486908
86 89.9968862533569
87 9.68718975782394
88 91.6662275791168
89 92.3373579978943
90 92.3383831977845
91 93.2432949542999
92 93.2966232299804
93 93.4562742710114
94 94.0303683280945
95 95.3275978565216
96 96.8801736831665
97 97.7357208728795
98 97.85411357879646
99 98.78851771354689
100 99.00261163711556