sorting when there are pairs

[debluzz]

need some help on sorting if there are pairs in the sort.

The problem is it does not pick the pairs up.   ( run sort-see line 5 & 6)

It is set up to give 3-lowest . But if any are duplicates.  It goes to the next lowest---not good  

data

1 24 10 30 33
2 13 4 1.5 18
3 22 22 12 30
4 23 26 15 32
5 18 6 3 22
6 18 14 4 24

'========================
for i= 1 to 1

'dim an 8x8 array to hold the row and column data

col=5

row=8

'give the array index values a name

bx=1

total=2

strfn=3

score=4

maintotal=5



'now dim a numeric array since all your data is numeric

'lose the # character before the box number it spoils the numeric data

dim r(row,col)

open "finish1.txt" for input as #f

for r=1 to row

'get the first line from finish1.txt

line input #f,l$

for c=1 to col

'break that line into columns

'note that it is fetched as a string

'but converted to plain old numeric with val()

r(r,c)=val(word$(l$,c))

next

next

close #f



'print the array as loaded

print "______________The array as loaded________________"

gosub

gosub [listit]

'desending order needed

'SORT arrayName(), start, end, [column]

'So to sort rows 1 to 8 on gradeavg

print "_______________The array as loaded_______________"

CLS

sort r(),1,6,total

print " "

print " >>total<<"

gosub [listit]



sort r(),1,6,strfn

print " "

print " >>strfn<< "

gosub




sort r(),1,6,score

print " "

print " >>score<<"

gosub [listit]



sort r(),1,6,maintotal

print " "

print " >>maintotal<< "

gosub [listit]







wait






print " # "

for r=1 to 3

for c= 1 to col

print using("###.", r(r,c));

next

print

next

return

next i



wait



[listit]

print " # "

for r=1 to 4

for c= 1 to col

print using("###.", r(r,c));

next

print

next

return



'THE TEXTFILE MUST HAVE DATA IN THE ORDER OF TH ABOVE PRINT STATEMENT

[/ul][/ul]

[bplus]

by debluzz: too many line spaces

Yeah! use the BBC Tab (below) in the forum editor, the default sucks!

Do you indent your code to make it readable?

[bplus]

Here's what I get for mess above:
dim d$(6) 'skip the file, make base 1 ignore 0
d$(1) = "1 24 10 30 33"
d$(2) = "2 13 4 1.5 18"
d$(3) = "3 22 22 12 30"
d$(4) = "4 23 26 15 32"
d$(5) = "5 18 6 3 22"
d$(6) = "6 18 14 4 24"
bx=1 : total=2 : strfn=3 : score=4 : maintotal=5 : col=5 : row=6
dim r(row,col)
for i = 1 to 6  ' make 1 based ignore 0's
for j = 1 to 5
   r(i, j) = val(word$(d$(i), j))
next
next
print "______________The array as loaded________________"
'lets see OK
sorty = 1
gosub [listit]

'SORT arrayName(), start, end, [column]
for sorty = total to maintotal
sort r(),1,6, sorty
gosub [listit]
next
end

[listit]
print
print " # ";word$("bx total strfn score mainTotal", sorty)
for r=1 to row
for c=1 to col
   print right$("    "+str$(r(r,c)), 3)+ " ";
next
print
next
return




Yeah I don't know how to sort multiple columns with Sort routine.

I'd make my own sort routine unless someone has a helpful hint.

[bplus]

So to do multi-column sort rebuild the array in the column order desired:

' make x, y, z points array
dim xyz$(10), sorted$(10)
for i = 1 to 10
x = int(rnd(0)*100): y = int(rnd(0)*100) : z = int(rnd(0)*100)
xyz$(i) = right$("    ";str$(x),4);right$("    ";str$(y),4);right$("    ";str$(z),4)
sorted$(i) = xyz$(i)
next
gosub [listit]
print
print "Sorted x, y, z order"
print "--------------------------------------"
sort sorted$(),1,10
gosub [listit]
for i = 1 to 10 'rebuild sorted$ y z x
sorted$(i) = pad$(word$(xyz$(i), 2),4);pad$(word$(xyz$(i), 3),4);pad$(word$(xyz$(i), 1),4)
next
print
print "Sorted y, z, x order:"
print "--------------------------------------"
sort sorted$(),1,10
gosub [listit]
for i = 1 to 10 'rebuild sorted$ z x y order
sorted$(i) = pad$(word$(xyz$(i), 3),4);pad$(word$(xyz$(i), 1),4);pad$(word$(xyz$(i), 2),4)
next
print
print "Sorted z, x, y order:"
print "--------------------------------------"
sort sorted$(),1,10
gosub [listit]
end

[listit]
for i = 1 to 10
print sorted$(i)
next
return

function pad$(n$, nSpaces)
pad$= right$(space$(nSpaces);n$, nSpaces)
end function




[bplus]

Might be more interesting with repeated digits:
' make x, y, z points array
dim xyz$(10), sorted$(10)
for i = 1 to 10
x = int(rnd(0)*5): y = int(rnd(0)*5) : z = int(rnd(0)*5)
xyz$(i) = right$("    ";str$(x),4);right$("    ";str$(y),4);right$("    ";str$(z),4)
sorted$(i) = xyz$(i)
next
gosub [listit]
print
print "Sorted x, y, z order"
print "--------------------------------------"
sort sorted$(),1,10
gosub [listit]
for i = 1 to 10 'rebuild sorted$ y z x
sorted$(i) = pad$(word$(xyz$(i), 2),4);pad$(word$(xyz$(i), 3),4);pad$(word$(xyz$(i), 1),4)
next
print
print "Sorted y, z, x order:"
print "--------------------------------------"
sort sorted$(),1,10
gosub [listit]
for i = 1 to 10 'rebuild sorted$ z x y order
sorted$(i) = pad$(word$(xyz$(i), 3),4);pad$(word$(xyz$(i), 1),4);pad$(word$(xyz$(i), 2),4)
next
print
print "Sorted z, x, y order:"
print "--------------------------------------"
sort sorted$(),1,10
gosub [listit]
end

[listit]
for i = 1 to 10
print sorted$(i)
next
return

function pad$(n$, nSpaces)
pad$= right$(space$(nSpaces);n$, nSpaces)
end function



[tsh73]

So to do multi-column sort rebuild the array in the column order desired

Just don't forget that fields should be padded to take same amount of space
so
 18  14   4  24
 18   6   3  22

will sort right, but this one
 18  14   4  24
 18  6   3  22

will sort wrong

[bplus]

Yes just added a pad$ function to my template library!

[debluzz]

Thanks folks Think I found one bplus put up, will mess with that one. Thanks again