急！怎样才能把十进制转为36进制？？？在线等待..

怎样才能把十进制转为36进制？？
如149999十进制－》37QN三十六进制
{0-9,A-Z}

解决方案 »

  1.   

    这纯粹是数学问题。
    ////与你要求无关，给你个函数BINTOHEX()  HEXTOBIN()
      

  2.   

    只能处理整数，未验证
    idata,itemp:integer;
    sRet :string;
    idata := 149999;
    s:='';
    repeat
     itmp := idata mod 36;
     if  (itemp <=9) then
       sRet := ord(itemp + 48)+sRet
     else
       sRet := ord(itemp + 55) +sRet;
     idata := idata div 36;
    until idata =0