Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
|
|
@ -0,0 +1,27 @@
|
|||
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
|
||||
Loading…
Add table
Add a link
Reference in a new issue