例えば
であれば、
「和
の計算」
で紹介したサンプル・プログラムをもじった
INPUT N S=0 FOR j=1 to N S=S+1/J NEXT J PRINT S END |
と
を同時に計算する、
複数の N に対して一度に計算する、
という工夫をしたものが次のプログラムです
(それと PRINT USING を用いて桁を揃えるように工夫してあります)。
少し欲張って、N が
100万まで計算してみました。
| kadai5b.BAS |
REM kadai5b.BAS
LET FMT$="####### ###."&REPEAT$("#",15)&" ###."&REPEAT$("#",15)
FOR k=0 TO 6
LET n=10^k
LET s=0
LET t=0
FOR j=1 TO n
LET s=s+1/j
LET t=t+1/j^2
NEXT j
PRINT USING FMT$: n,s,t
NEXT k
END
|
| kadai5b.TXT |
1 1.000000000000000 1.000000000000000
10 2.928968253968250 1.549767731166550
100 5.187377517639600 1.634983900184900
1000 7.485470860550260 1.643934566681610
10000 9.787606036044010 1.644834071847500
100000 12.090146129870500 1.644924066898510
1000000 14.392726722894000 1.644933066846830
|
一目、
の方は増加して行っている、
の方は収束しそうだ、と「分かります」。