推 wubaidodo:謝謝這位大大的幫忙...再次感謝!!! 192.192.105.232 05/26
※ 引述《wubaidodo (sum41)》之銘言:
: 我有一個問題想請教各位大大:
: 設定可以輸入8個數字 並且顯示反轉
: 再將原來輸入的數字跟反轉的數字相加
: 程式執行出來 要成為這樣
: 輸入:3 4 8 7 5 2 6 1
: 反轉:1 6 2 5 7 8 4 3
: 相加:5 1 1 3 3 1 0 4
: 請問這個程式要怎麼寫!!
: 謝謝各位大大的幫忙....拜託
: 我是代po.......XD
'[Note]: VB.NET
'Size: 想處理的數字個數
Dim Size As Integer = 8
'Original: original number ; Reverse: reverse number ; Result: summation
Dim i, Temp, Original(Size - 1), Reverse(Size - 1), Result(Size - 1) As Integer
'Original array之值請自行塞入, 這裡假設是1,2,3,4,5,6,7,8,....
For i = 0 To Size - 1 : Original(i) = i + 1 : Next
'反轉
For i = 0 To Size - 1 : Reverse(i) = Original((Size - 1) - i) : Next
'相加
For i = 0 To Size - 1
Temp += (Original((Size - 1) - i) + Reverse((Size - 1) - i)) * (10 ^ i)
Next
'輸出(已考慮overflow)
For i = 0 To Size - 1
Result((Size - 1) - i) = _
CInt(CStr(Temp).Substring(CStr(Temp).Length - 1 - i, 1))
Next
--
╭─────╮ ╭╮
㊣╭┤┼┼┼┼┼┤ ╭╯╰╮ 孤獨不安的年代~~~
╭─╯│▂▃▄▆▇│╭┴──┴╮ 最開心的選擇~~~
╰─╮│█████││ ┼│ 大家喝奶吧!:p
╰┤█████││████│
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.59.31.47
※ 編輯: collegeman 來自: 61.59.31.47 (05/26 04:42)
※ 編輯: collegeman 來自: 61.59.31.47 (05/26 04:42)
※ 編輯: collegeman 來自: 61.59.31.47 (05/26 04:51)
※ 編輯: collegeman 來自: 61.59.31.47 (05/26 04:51)