Question

设计一个算法，计算1+1/2+1/3+…+1/100的值，并画出程序框图

Answer 1

Rem 语言：Visual Basic 6.0
Sub Main()  '开始
  S = 0 : i = 1
  Do
    S = S + 1 / i
    If Not (i < 100) Then Exit Do
    i = i + 1
  Loop
  MsgBox S, vbInformation, "输出"
End Sub  '结束

Answer 2

int i,s=0;
for(i=1;i<=100;i++)
{
s+=1/i;
}