15 lines
408 B
QBasic
15 lines
408 B
QBasic
|
10 REM Bubble sort with string comparison
|
||
|
|
20 DIM A$(9)
|
||
|
|
30 DATA "banana","apple","cherry","date","elderberry"
|
||
|
|
40 DATA "fig","grape","honeydew","kiwi","lemon"
|
||
|
|
50 FOR I = 0 TO 9 : READ A$(I) : NEXT I
|
||
|
|
60 REM Sort
|
||
|
|
70 FOR I = 0 TO 8
|
||
|
|
80 FOR J = 0 TO 8 - I
|
||
|
|
90 IF A$(J) > A$(J+1) THEN SWAP A$(J), A$(J+1)
|
||
|
|
100 NEXT J
|
||
|
|
110 NEXT I
|
||
|
|
120 REM Print sorted
|
||
|
|
130 FOR I = 0 TO 9 : PRINT A$(I) : NEXT I
|
||
|
|
140 PRINT "Bubble sort OK"
|