RSS   



  可打印版本 | 推薦給朋友 | 訂閱主題 | 收藏主題 | 純文字版  


 


 
主題: [資訊電機] [求助]關於這段QB   字型大小:||| 
45326565
銀驢友〔初級〕
等級: 12等級: 12等級: 12
Going down

今日心情

 . 積分: 511
 . 精華: 3
 . 文章: 1161
 . 收花: 4107 支
 . 送花: 10851 支
 . 比例: 2.64
 . 在線: 1161 小時
 . 瀏覽: 12841 頁
 . 註冊: 7318
 . 失蹤: 3544
 . TW
#1 : 2005-4-10 05:27 PM     只看本作者 引言回覆

程式:
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這一段就亂掉了.希望有玩的人可以幫小弟做詳解



[如果你喜歡本文章,就按本文章之鮮花~送花給作者吧,你的支持就是別人的動力來源]
本文連接  
檢閱個人資料  發私人訊息  Blog  新增/修改 爬文標記
Acute
論壇第一大毒王
等級: 18等級: 18等級: 18等級: 18等級: 18
論壇第一小神童

 . 積分: 3281
 . 精華: 8
 . 文章: 11574
 . 收花: 14037 支
 . 送花: 3260 支
 . 比例: 0.23
 . 在線: 323 小時
 . 瀏覽: 2250 頁
 . 註冊: 8228
 . 失蹤: 5580
#2 : 2005-4-10 05:36 PM     只看本作者 引言回覆

把程式輸入, 執行一次, 不就知道答案了

Acute.



[如果你喜歡本文章,就按本文章之鮮花~送花給作者吧,你的支持就是別人的動力來源]
本文連接  
檢閱個人資料  發私人訊息  Blog  新增/修改 爬文標記
shiuh
論壇第一聰明
等級: 17等級: 17等級: 17等級: 17等級: 17
機車達人

今日心情

 . 積分: 2593
 . 精華: 3
 . 文章: 15478
 . 收花: 17324 支
 . 送花: 6953 支
 . 比例: 0.4
 . 在線: 5214 小時
 . 瀏覽: 59093 頁
 . 註冊: 8176
 . 失蹤: 98
 . MP-573T
#3 : 2005-4-10 06:10 PM     只看本作者 引言回覆

QB 還有人記得嗎?


[如果你喜歡本文章,就按本文章之鮮花~送花給作者吧,你的支持就是別人的動力來源]
本文連接  
檢閱個人資料  發私人訊息  Blog  新增/修改 爬文標記
shiuh
論壇第一聰明
等級: 17等級: 17等級: 17等級: 17等級: 17
機車達人

今日心情

 . 積分: 2593
 . 精華: 3
 . 文章: 15478
 . 收花: 17324 支
 . 送花: 6953 支
 . 比例: 0.4
 . 在線: 5214 小時
 . 瀏覽: 59093 頁
 . 註冊: 8176
 . 失蹤: 98
 . MP-573T
#4 : 2005-4-10 06:12 PM     只看本作者 引言回覆

基本上是做大小排序吧
這樣不 用看了吧..



[如果你喜歡本文章,就按本文章之鮮花~送花給作者吧,你的支持就是別人的動力來源]
本文連接  
檢閱個人資料  發私人訊息  Blog  新增/修改 爬文標記
45326565
銀驢友〔初級〕
等級: 12等級: 12等級: 12
Going down

今日心情

 . 積分: 511
 . 精華: 3
 . 文章: 1161
 . 收花: 4107 支
 . 送花: 10851 支
 . 比例: 2.64
 . 在線: 1161 小時
 . 瀏覽: 12841 頁
 . 註冊: 7318
 . 失蹤: 3544
 . TW
#5 : 2005-4-10 06:42 PM     只看本作者 引言回覆

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



[如果你喜歡本文章,就按本文章之鮮花~送花給作者吧,你的支持就是別人的動力來源]
本文連接  
檢閱個人資料  發私人訊息  Blog  新增/修改 爬文標記
Acute
論壇第一大毒王
等級: 18等級: 18等級: 18等級: 18等級: 18
論壇第一小神童

 . 積分: 3281
 . 精華: 8
 . 文章: 11574
 . 收花: 14037 支
 . 送花: 3260 支
 . 比例: 0.23
 . 在線: 323 小時
 . 瀏覽: 2250 頁
 . 註冊: 8228
 . 失蹤: 5580
#6 : 2005-4-10 07:12 PM     只看本作者 引言回覆

當A(j) 大於A(j-1) 就把A(j) 跟A(j-1) 互換
那一行的意思就是這樣

Acute.



[如果你喜歡本文章,就按本文章之鮮花~送花給作者吧,你的支持就是別人的動力來源]
本文連接  
檢閱個人資料  發私人訊息  Blog  新增/修改 爬文標記
45326565
銀驢友〔初級〕
等級: 12等級: 12等級: 12
Going down

今日心情

 . 積分: 511
 . 精華: 3
 . 文章: 1161
 . 收花: 4107 支
 . 送花: 10851 支
 . 比例: 2.64
 . 在線: 1161 小時
 . 瀏覽: 12841 頁
 . 註冊: 7318
 . 失蹤: 3544
 . TW
#7 : 2005-4-10 07:23 PM     只看本作者 引言回覆

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 作了最後編輯]



[如果你喜歡本文章,就按本文章之鮮花~送花給作者吧,你的支持就是別人的動力來源]
本文連接  
檢閱個人資料  發私人訊息  Blog  新增/修改 爬文標記
innova
銀驢友〔高級〕
等級: 14等級: 14等級: 14等級: 14


十週年紀念徽章(五級)  

今日心情

 . 積分: 916
 . 文章: 2714
 . 收花: 7188 支
 . 送花: 1461 支
 . 比例: 0.2
 . 在線: 2182 小時
 . 瀏覽: 15202 頁
 . 註冊: 7186
 . 失蹤: 38
 . 火星
#8 : 2005-4-11 05:17 AM     只看本作者 引言回覆


引用:
45326565寫到:
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 作了最後編輯]

J 不可能 =1
why?
因為 I="1" TO 4
所以  I 最小 =1
可是 J=5 TO "I + 1"
所以 J 最小= "I最小 + 1" = "1 + 1" = "2"

瞭?

.AND.
"DATA" 放前面 放後面
對於 "READ" 來說 並沒有影響!
"READ"動作 自己會去找 程式裡面第一個出現的 "DATA" 並繼續往下搜尋
直到找不到 "DATA"為止!

...所以... 你的  "DATA" 可以比你的 "READ" 要多!
但是, 你的 "READ" 卻絕不可以比 "DATA"少! (程式跑一半 會出現錯誤, 並停止執行!)

[innova 在 2005-4-11 05:21 AM 作了最後編輯]



[如果你喜歡本文章,就按本文章之鮮花~送花給作者吧,你的支持就是別人的動力來源]
本文連接  
檢閱個人資料  訪問主頁  發私人訊息  Blog  新增/修改 爬文標記
45326565
銀驢友〔初級〕
等級: 12等級: 12等級: 12
Going down

今日心情

 . 積分: 511
 . 精華: 3
 . 文章: 1161
 . 收花: 4107 支
 . 送花: 10851 支
 . 比例: 2.64
 . 在線: 1161 小時
 . 瀏覽: 12841 頁
 . 註冊: 7318
 . 失蹤: 3544
 . TW
#9 : 2005-4-11 05:49 AM     只看本作者 引言回覆

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


[如果你喜歡本文章,就按本文章之鮮花~送花給作者吧,你的支持就是別人的動力來源]
本文連接  
檢閱個人資料  發私人訊息  Blog  新增/修改 爬文標記
innova
銀驢友〔高級〕
等級: 14等級: 14等級: 14等級: 14


十週年紀念徽章(五級)  

今日心情

 . 積分: 916
 . 文章: 2714
 . 收花: 7188 支
 . 送花: 1461 支
 . 比例: 0.2
 . 在線: 2182 小時
 . 瀏覽: 15202 頁
 . 註冊: 7186
 . 失蹤: 38
 . 火星
#10 : 2005-4-11 06:57 AM     只看本作者 引言回覆


引用:
45326565寫到:
那STEP-1該怎麼執行.到底是那個地方-1

???
"STEP-1" 意思就是說: 這個 For迴圈 每次會增加 "-1"

同理, 如果 程式寫:
FOR a = 1 to 99 STEP 2
那  a 每次就會增加 "2" (a=1,3,5,7,9,...99)
FOR b = 100 to 0 STEP -5
那  b 每次就會增加 "-5"
b= 100,95,90,85,80,....10,5,0

其實 你的
"FOR I=1 to 5"
他是讓你省略了 後面的 "STEP 1" 這一句 (因為 "STEP 1" 的情況太多!??)


瞭?



[如果你喜歡本文章,就按本文章之鮮花~送花給作者吧,你的支持就是別人的動力來源]
本文連接  
檢閱個人資料  訪問主頁  發私人訊息  Blog  新增/修改 爬文標記
45326565
銀驢友〔初級〕
等級: 12等級: 12等級: 12
Going down

今日心情

 . 積分: 511
 . 精華: 3
 . 文章: 1161
 . 收花: 4107 支
 . 送花: 10851 支
 . 比例: 2.64
 . 在線: 1161 小時
 . 瀏覽: 12841 頁
 . 註冊: 7318
 . 失蹤: 3544
 . TW
#11 : 2005-4-11 08:20 PM     只看本作者 引言回覆

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



[如果你喜歡本文章,就按本文章之鮮花~送花給作者吧,你的支持就是別人的動力來源]
本文連接  
檢閱個人資料  發私人訊息  Blog  新增/修改 爬文標記
innova
銀驢友〔高級〕
等級: 14等級: 14等級: 14等級: 14


十週年紀念徽章(五級)  

今日心情

 . 積分: 916
 . 文章: 2714
 . 收花: 7188 支
 . 送花: 1461 支
 . 比例: 0.2
 . 在線: 2182 小時
 . 瀏覽: 15202 頁
 . 註冊: 7186
 . 失蹤: 38
 . 火星
#12 : 2005-4-12 11:15 AM     只看本作者 引言回覆

BASIC 語言 是相當 口語化 的語言
step 是 步進 的意思
每走一步(每一次迴圈) 就會增加多少

其他許多Keyword 有空 不妨查一下字典 看看他的意思
順便 可以學學英文...

加油~



[如果你喜歡本文章,就按本文章之鮮花~送花給作者吧,你的支持就是別人的動力來源]
本文連接  
檢閱個人資料  訪問主頁  發私人訊息  Blog  新增/修改 爬文標記

   



 



所在時區為 GMT+8, 現在時間是 2024-12-4 03:58 PM
清除 Cookies - 連絡我們 - TWed2k © 2001-2046 - 純文字版 - 說明
Discuz! 0.1 | Processed in 0.027261 second(s), 6 queries , Qzip disabled