Rosetta Code:Solve a Task

From Rosetta Code
Revision as of 08:04, 20 October 2022 by Sabin (talk | contribs) (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>")

GW-BASIC

Benford's law 

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
Retrieved from "https://rosettacode.org/wiki/Rosetta_Code:Solve_a_Task?oldid=332361"