21 lines
450 B
Awk
21 lines
450 B
Awk
# syntax: GAWK -f HARMONIC_SERIES.AWK
|
|
# converted from FreeBASIC
|
|
BEGIN {
|
|
limit = 20
|
|
printf("The first %d harmonic numbers:\n",limit)
|
|
for (n=1; n<=limit; n++) {
|
|
h += 1/n
|
|
printf("%2d %11.8f\n",n,h)
|
|
}
|
|
print("")
|
|
h = 1
|
|
n = 2
|
|
for (i=2; i<=10; i++) {
|
|
while (h < i) {
|
|
h += 1/n
|
|
n++
|
|
}
|
|
printf("The first harmonic number > %2d is %11.8f at position %d\n",i,h,n-1)
|
|
}
|
|
exit(0)
|
|
}
|