Question

急急急！！！已知数列an满足a1=1/2,a(n+1)=an/(1+an)试着写出求a(100)的算法并用流程图表示这

如题

Answer 1

Rem 语言：Visual Basic 6.0
Sub Main()  '开始
  a = 1 / 2 : i = 1
  Do While i < 100
    i = i + 1
    a = a / (1 + a)
  Loop
  MsgBox a, vbInformation, "输出"
End Sub  '结束