20 lines
391 B
Text
20 lines
391 B
Text
function vdc(integer n, atom base)
|
|
atom vdc, denom, rem
|
|
vdc = 0
|
|
denom = 1
|
|
while n do
|
|
denom *= base
|
|
rem = remainder(n,base)
|
|
n = floor(n/base)
|
|
vdc += rem / denom
|
|
end while
|
|
return vdc
|
|
end function
|
|
|
|
for i = 2 to 5 do
|
|
printf(1,"Base %d\n",i)
|
|
for j = 0 to 9 do
|
|
printf(1,"%g ",vdc(j,i))
|
|
end for
|
|
puts(1,"\n\n")
|
|
end for
|