25 lines
441 B
Plaintext
25 lines
441 B
Plaintext
PROGRAM "Tau"
|
|
VERSION "0.0000"
|
|
|
|
DECLARE FUNCTION Entry ()
|
|
DECLARE FUNCTION numdiv(n)
|
|
|
|
FUNCTION Entry ()
|
|
PRINT "The tau functions for the first 100 positive integers are:\n"
|
|
FOR i = 1 TO 100
|
|
PRINT FORMAT$("###", numdiv(i));
|
|
IF i MOD 10 = 0 THEN PRINT
|
|
NEXT i
|
|
END FUNCTION
|
|
|
|
FUNCTION numdiv(n)
|
|
c = 1
|
|
FOR i = 1 TO (n+1)\2
|
|
IF n MOD i = 0 THEN INC c
|
|
NEXT i
|
|
IF n = 1 THEN DEC c
|
|
RETURN c
|
|
|
|
END FUNCTION
|
|
END PROGRAM
|