Code archives/Algorithms/Sorting Array BASIC

This code has been declared by its author to be Public Domain code.

Download source code

Sorting Array BASIC by Neochrome
(Posted 22 years ago)
Basically this is a run of the mill basic sorting method for an array, i needed it, didn't take to long to write. so im sharing it
Open in online IDE
Dim Words$(1001)

words(0) = "CAT"
words(1) = "DOG"
words(2) = "MAN"
words(3) = "WOMAN"
words(4) = "TREE"
words(5) = "GRASS"
words(6) = "FOAM"
words(7) = "NEOMANCER"


; 5, 0, 3, 2, 1, 4

; Demo Sort Array

Print "NON SORTED :" 
Print ""
For i=0 To 1000
	If words(i)<>""	Print words(i)
Next

tmp$ = ""

For o=0 To 1000
For i=0 To 1000
	
	t1$ = words(i)
	t2$ = words(o+1)
	
	If t2$<>""
		res% = t1$ > t2$
	
		If res=1
			tmp$ = t1$
			words(i)=t2$
			words(o+1) = tmp$

		EndIf
	EndIf
Next	
If t2$="" Then o=1000
Next

Print "------------"
Print "SORTED : "
Print ""
For i=0 To 10
	If words(i)<>""	Print words(i)
Next

Comments

Rook Zimbabwe
(Posted 21 years ago)
Commented source code would be a good thing...

n8r2k
(Posted 21 years ago)
*agrees*

Devils Child
(Posted 21 years ago)
hey, cool stuff...very good for noobs!

DareDevil
(Posted 21 years ago)
i have changed the your software for order fast bye


Dim Words$(1001)
cntorder=0
For a=0 To 2
words(0+a*10) = "CAT"
words(1+a*10) = "DOG"
words(2+a*10) = "MAN"
words(3+a*10) = "WOMAN"
words(4+a*10) = "TREE"
words(5+a*10) = "GRASS"
words(6+a*10) = "FOAM"
words(7+a*10) = "NEOMANCER"
words(8+a*10) = "VINCENTX"
words(9+a*10) = "DEVIL CHILD"
Next
cntorder=a*10


; 5, 0, 3, 2, 1, 4

; Demo Sort Array

Print "NON SORTED :"
Print ""
For i=0 To 1000
If words(i)<>"" Print words(i)
Next

tmp$ = ""
IsSwap=True
While IsSwap=True
;===>
IsSwap=False
;Stop
For i=0 To cntorder
;===>
t1$ = words(i)
t2$ = words(i+1)
;===>
If t1$ > t2$
words(i)=t2$
words(i+1) = t1$
IsSwap=True
EndIf
;===>
Next
If t2$="" Then o=1000
;===>
Wend

Print "------------"
Print "SORTED : "
Print ""
For i=0 To cntorder
If words(i)<>"" Print words(i)
Next
WaitKey()

n8r2k
(Posted 21 years ago)
*still agrees with rook*

Code Archives Forum