19 lines
347 B
Text
19 lines
347 B
Text
decimals(4)
|
|
for base = 2 to 5
|
|
see "base " + string(base) + " : "
|
|
for number = 0 to 9
|
|
see "" + corput(number, base) + " "
|
|
next
|
|
see nl
|
|
next
|
|
|
|
func corput n, b
|
|
vdc = 0
|
|
denom = 1
|
|
while n
|
|
denom *= b
|
|
rem = n % b
|
|
n = floor(n/b)
|
|
vdc += rem / denom
|
|
end
|
|
return vdc
|