Anonymous user
Non-decimal radices/Convert: Difference between revisions
→{{header|Ruby}}
(added Caché ObjectScript) |
|||
Line 1,560:
include BaseConvert
p baseconvert("107h", 23, 7) # => "50664"</lang>
=={{header|Run BASIC}}==
<lang runbasic>global basCvt$
basCvt$ ="0123456789abcdefghijklmnopqrstuvwxyz"
html "<table border=1><tr bgcolor=wheat align=center><td>Decimal</td><td>To Base</td><td>Num</td><td>to Dec</td></tr>"
for i =1 to 10
RandNum = int(100 * rnd(1))
base = 2 +int(35 * rnd(1))
html "<tr align=right><td>";using("###", RandNum);"</td><td>";using("###", base);"</td><td>";toBase$(base,RandNum);"</td><td>";toDecimal( base, toBase$( base, RandNum));"</td></tr>"
next i
html "</table>"
end
function toBase$(b,n) ' b=base n=nmber
toBase$ =""
for i =10 to 1 step -1
toBase$ =mid$(basCvt$,n mod b +1,1) +toBase$
n =int( n /b)
if n <1 then exit for
next i
end function
function toDecimal( b, s$) ' scring number to decimal
toDecimal =0
for i =1 to len( s$)
toDecimal = toDecimal * b + instr(basCvt$,mid$(s$,i,1),1) -1
next i
end function</lang>
<table border=1>
<tr bgcolor=wheat align=center><td>Decimal</td><td>To Base</td><td>Num</td><td>to Dec</td></tr>
<tr align=right><td> 51</td><td> 2</td><td>110011</td><td>51</td></tr>
<tr align=right><td> 27</td><td> 10</td><td>27</td><td>27</td></tr>
<tr align=right><td> 12</td><td> 18</td><td>c</td><td>12</td></tr>
<tr align=right><td> 90</td><td> 35</td><td>2k</td><td>90</td></tr>
<tr align=right><td> 99</td><td> 17</td><td>5e</td><td>99</td></tr>
<tr align=right><td> 99</td><td> 18</td><td>59</td><td>99</td></tr>
<tr align=right><td> 55</td><td> 11</td><td>50</td><td>55</td></tr>
<tr align=right><td> 56</td><td> 28</td><td>20</td><td>56</td></tr>
<tr align=right><td> 71</td><td> 34</td><td>23</td><td>71</td></tr>
<tr align=right><td> 61</td><td> 23</td><td>2f</td><td>61</td></tr></table>
=={{header|Slate}}==
| |||