数式的には下記のようになるようです。
(1 + 1/2 + 1/3 + 1/4 + 1/5 + … + 1/n)-(ln n)
用意されている回答としては、
n = 1のとき、1,
n = 5のとき、0.673895420899233
n = 100のとき、0.582207331651529
コードは書いてみましたが、Logが絡んできた時点でよくわからなくなりました。
VBS
1ns = 0 2n = inputbox("nの値を入力してください。") 3For i = 1 To n 4 ns = ns + (1 / CDbl(i + 1)) 5Next 6msgbox ns
計算するに当たり、考え方と回答を教えていただけると幸いです。
回答1件
あなたの回答
tips
プレビュー