-----------------------------------

GoodbyeSoberDay1

Wed Apr 02, 2008 8:37 am


Help, sorting 3 words.

-----------------------------------

var words : array 1 .. 3 of string 
var temp : array 1 .. 3 of string 
var marker : int



for i : 1 .. 3
    get words (i)
end for

for i : 1 .. 3
    marker := 3
    for j : 1 .. 3
        if words (i) < words (j) then
            marker := marker - 1
        end if
        temp (marker) := words (i)
    end for
end for

for i : 1 .. 3
    put temp (i)
end for

If i input words in a certian order such as : dog, cat, fish,
then cat will overwrite the first two spaces in the new array.
Can anyone give me some clues as to how to fix it?[/code]


-----------------------------------

Tony

Wed Apr 02, 2008 9:37 am


RE:Help, sorting 3 words.

-----------------------------------

right after this line

temp (marker) := words (i) 

put a debug statement, like

put "temp