Rosetta Code:Solve a Task: Difference between revisions
Replaced content with "=={{header|GW-BASIC}}== Benford's law <pre> 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 </pre>" Tag: Replaced |
m Sabin moved page Rosetta Code:Solve a Task to Rosetta Code:Benford's law |
(No difference)
|
Revision as of 08:16, 20 October 2022
GW-BASIC
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