TWed2k - 讀書會 - [求助]關於這段QB

45326565
銀驢友〔初級〕

Going down

今日心情

．積分： 511
．精華： 3
．文章： 1161
．收花： 4107 支
．送花： 10851 支
．比例： 2.64
．在線： 1161 小時
．瀏覽： 12841 頁
．註冊： 7101 天
．失蹤： 3328 天
． TW

#1 : 2005-4-10 05:27 PM 全部回覆	送花 (0) 送出中...

程式:
DIM A(5)
FOR I = 1 TO 5
READ A(I)
NEXT I
FOR I = 1 TO 4
FOR J = 5 TO I + 1 SETP - 1
IF A(J) > A(J-1) THEN SWAP A(J),A(J-1)
NEXT J
NEXT I
PRINT A(1);A(2);A(3);A(4);A(5)
DATA 4,1,5,2,3
END
請問各位大大這段做出來的A(1),A(2),A(3),A(4),A(5)之值為何?
這段是歷屆考題.小弟看了半天還是看不太出來
跑到SWAP這一段就亂掉了.希望有玩的人可以幫小弟做詳解

[如果你喜歡本文章，就按本文章之鮮花～送花給作者吧，你的支持就是別人的動力來源]

本文連接

45326565
銀驢友〔初級〕

Going down

今日心情

．積分： 511
．精華： 3
．文章： 1161
．收花： 4107 支
．送花： 10851 支
．比例： 2.64
．在線： 1161 小時
．瀏覽： 12841 頁
．註冊： 7101 天
．失蹤： 3328 天
． TW

#2 : 2005-4-10 06:42 PM 全部回覆	送花 (0) 送出中...

..QB執行程式不知道被我丟去那了
比較搞不懂的地方就是
IF A(J) > A(J-1) THEN SWAP A(J),A(J-1)
這一段.不知道該怎麼換比較好

[如果你喜歡本文章，就按本文章之鮮花～送花給作者吧，你的支持就是別人的動力來源]

本文連接

45326565
銀驢友〔初級〕

Going down

今日心情

．積分： 511
．精華： 3
．文章： 1161
．收花： 4107 支
．送花： 10851 支
．比例： 2.64
．在線： 1161 小時
．瀏覽： 12841 頁
．註冊： 7101 天
．失蹤： 3328 天
． TW

#3 : 2005-4-10 07:23 PM 全部回覆	送花 (0) 送出中...

FOR I = 1 TO 4
FOR J = 5 TO I + 1 STEP - 1
這一段所執行的的動作是指所有數都要-1

EX:I = 1
J = 5 TO 1 STEP - 1 =(5-1).(4-1).(3-1).(2-1).(1-1)=4.3.2.1

是這樣嗎
最後一行的DATA不是通常都要擺在前面嗎
擺在後面的話陣列數值還是4.1.5.2.3嗎

如果我放J=1進去的話.以下面這一段來看
IF A(J)>A(J-1) THEN SWAP A(J),A(J-1)
A(1)>A(0) 那...A(0)不是沒數值嗎.還是要放0進去換.

[45326565 在 2005-4-10 08:16 PM 作了最後編輯]

[如果你喜歡本文章，就按本文章之鮮花～送花給作者吧，你的支持就是別人的動力來源]

本文連接

45326565
銀驢友〔初級〕

Going down

今日心情

．積分： 511
．精華： 3
．文章： 1161
．收花： 4107 支
．送花： 10851 支
．比例： 2.64
．在線： 1161 小時
．瀏覽： 12841 頁
．註冊： 7101 天
．失蹤： 3328 天
． TW

#4 : 2005-4-11 05:49 AM 全部回覆	送花 (0) 送出中...

那STEP-1該怎麼執行.到底是那個地方-1

[如果你喜歡本文章，就按本文章之鮮花～送花給作者吧，你的支持就是別人的動力來源]

本文連接

45326565
銀驢友〔初級〕

Going down

今日心情

．積分： 511
．精華： 3
．文章： 1161
．收花： 4107 支
．送花： 10851 支
．比例： 2.64
．在線： 1161 小時
．瀏覽： 12841 頁
．註冊： 7101 天
．失蹤： 3328 天
． TW

#5 : 2005-4-11 08:20 PM 全部回覆	送花 (0) 送出中...

感謝各位大大的解答.我已經搞懂了.之前一直把STEP-1想成是數列全部-1.難怪會解不出來

送上鮮花表示謝意

[如果你喜歡本文章，就按本文章之鮮花～送花給作者吧，你的支持就是別人的動力來源]

本文連接