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