[ WE ] 10進位轉16進位 by JASS

作者: wix3000 (癢,好吃)   2013-06-04 19:38:15
function CI10T16 takes integer N returns string
local integer A
local string S = ""
if N < 0 then
set S = "Error"
return S
endif
loop
set A = ModuloInteger(N, 16)
set S = SubString("0123456789ABCDEF",A,A+1) + S
set N = ( N - A ) / 16
exitwhen N == 0
endloop
return S
endfunction
負數懶得處理,所以會回傳error
至於這個東西的用途嘛.........
沒有 (正色)
完全是為了回答巴哈那邊的問題所寫的
你問我能拿來幹嘛我也不知道啊 (翻滾)
作者: wix3000 (癢,好吃)   2013-06-04 19:38:00
有請版上神手找碴
作者: sitos (麥子)   2013-06-05 18:49:00
set N = N / 16 (?) 對 Jass 不熟
作者: wix3000 (癢,好吃)   2013-06-06 15:13:00
感覺程式語言應該會有直接轉換的功能啊 N.to16 之類的(?)

Links booklink

Contact Us: admin [ a t ] ucptt.com