第1个回答 2013-12-28
Funtion Base ( k , s : longint ) : string ; Var Begin repeat d := s mod k ; if d < 10 then c := chr ( d + 48 ) else c := chr ( d + 55 ) ; base := c + base ; s := s div k ; until s = 0 ; End ;
k 是进制 ,s 是原数 ,与上面那个的差别在于不仅限于转化为二进制 ,随手写的 ,不保证正确 ,如果有误请自行修正细节 。