27 lines
453 B
Text
27 lines
453 B
Text
PROGRAM VAN_DER_CORPUT
|
|
|
|
!
|
|
! for rosettacode.org
|
|
!
|
|
|
|
PROCEDURE VDC(N%,B%->RES)
|
|
LOCAL V,S%
|
|
S%=1
|
|
WHILE N%>0 DO
|
|
S%*=B%
|
|
V+=(N% MOD B%)/S%
|
|
N%=N% DIV B%
|
|
END WHILE
|
|
RES=V
|
|
END PROCEDURE
|
|
|
|
BEGIN
|
|
FOR BASE%=2 TO 5 DO
|
|
PRINT("Base";STR$(BASE%);":")
|
|
FOR NUMBER%=0 TO 9 DO
|
|
VDC(NUMBER%,BASE%->RES)
|
|
WRITE("#.##### ";RES;)
|
|
END FOR
|
|
PRINT
|
|
END FOR
|
|
END PROGRAM
|