17 lines
342 B
Text
17 lines
342 B
Text
procedure main(A)
|
|
base := integer(get(A)) | 2
|
|
every writes(round(vdc(0 to 9,base),10)," ")
|
|
write()
|
|
end
|
|
|
|
procedure vdc(n, base)
|
|
e := 1.0
|
|
x := 0.0
|
|
while x +:= 1(((0 < n) % base) / (e *:= base), n /:= base)
|
|
return x
|
|
end
|
|
|
|
procedure round(n,d)
|
|
places := 10 ^ d
|
|
return real(integer(n*places + 0.5)) / places
|
|
end
|