7 lines
167 B
Text
7 lines
167 B
Text
10 DEF FNBENFORD(N)=LOG(1+1/N)/LOG(10)
|
|
20 CLS
|
|
30 PRINT "One digit Benford's Law"
|
|
40 FOR i = 1 TO 9
|
|
50 PRINT i,:PRINT USING "##.######";FNBENFORD(i)
|
|
60 NEXT i
|
|
70 END
|