19 lines
316 B
Plaintext
19 lines
316 B
Plaintext
h = 0!
|
|
|
|
PRINT "The first twenty harmonic numbers are:"
|
|
FOR n = 1 TO 20
|
|
h = h + 1! / n
|
|
PRINT n, h
|
|
NEXT n
|
|
PRINT
|
|
|
|
h = 1: n = 2
|
|
FOR i = 2 TO 10
|
|
WHILE h < i
|
|
h = h + 1! / n
|
|
n = n + 1
|
|
WEND
|
|
PRINT "The first harmonic number greater than "; i; " is "; h; ", at position "; n - 1
|
|
NEXT i
|
|
END
|