17 lines
317 B
Text
17 lines
317 B
Text
dim as double h = 0.0
|
|
dim as uinteger n, i
|
|
|
|
print "The first twenty harmonic numbers are:"
|
|
for n = 1 to 20
|
|
h += 1.0/n
|
|
print n, h
|
|
next n
|
|
|
|
h = 1 : n = 2
|
|
for i=2 to 10
|
|
while h<i
|
|
h+=1.0/n
|
|
n+=1
|
|
wend
|
|
print "The first harmonic number greater than ";i;" is ";h;", at position ";n-1
|
|
next i
|