设计计算1+1/2+1/3+...+1/100的算法~和代码或者光写算法

Sum=0
For i = 1 To 100
Sum = Sum + 1 / i
Next i
Print Sum
经计算机调试结果为5.18737751763962
伪代码是不是应该像下面这样写?
Sum←0
For i form 1 To 100
Sum ← Sum + 1 / i
Next i
Print Sum

最简单 人教版的 QBasic代码
input m //输入i最大值 这里为100
i=1
sum=0
while isum=sum+1/i
WEND
print sum
end

代码?编程?
很容易,用高一的知识就能解,就是"数列求和"
Sn＝1 + 1/2 + 1/3 + 1/4 + ……＋1／100
Sn＝1＋（1－1／2）＋（1－2／3）＋（1－3／4）＋……＋（1－ 99／100）
所有的1相加为100,剩下的数列通项公式为an＝n/(n+1),就能裂项消元了

VC++的:
#include
void main()
{
int i;
double a,sum=0;
for(i=1;i {a=1/i;sum=sum+a}
cout}