20 lines
319 B
Text
20 lines
319 B
Text
Procedure.d nBase(n.i,b.i)
|
|
Define r.d,s.i=1
|
|
While n
|
|
s*b
|
|
r+(Mod(n,b)/s)
|
|
n=Int(n/b)
|
|
Wend
|
|
ProcedureReturn r
|
|
EndProcedure
|
|
|
|
Define.i b,c
|
|
OpenConsole("van der Corput - Sequence")
|
|
For b=2 To 5
|
|
Print("Base "+Str(b)+": ")
|
|
For c=0 To 9
|
|
Print(StrD(nBase(c,b),5)+~"\t")
|
|
Next
|
|
PrintN("")
|
|
Next
|
|
Input()
|