[ 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