找回密码
 加入我们

QQ登录

只需一步,快速开始

搜索
查看: 5064|回复: 0

[函数] 计算1+(1+2)+(1+2+3)+(1+2+3+4)+……+(1+2+3+4+…+20)之和。两法

[复制链接]

1214

主题

352

回帖

11

精华

管理员

菜鸟

积分
93755

贡献奖关注奖人气王精英奖乐于助人勋章

发表于 2012-10-30 10:42:24 | 显示全部楼层 |阅读模式
  1. Clea
  2. ?js1(10),js2(20)

  3. &&方法1
  4. Function js1(N)
  5. Private s,i
  6. s=0
  7. For i=1 To 20
  8.         s=s+js(i)
  9. Endfor
  10. Return s
  11. Endfunc

  12. &&方法2
  13. Function js2(N)
  14. Private s,i
  15. s=0
  16. For i=1 To N
  17.         s=s+(N-i+1)*i
  18. Endfor
  19. Return s
  20. ENDFUNC

  21. &&计算1+2+3+...n的各
  22. Function js(N)
  23. Private s,i
  24. s=0
  25. For i=1 To N
  26.         s=i+s
  27. Endfor
  28. Return s
  29. Endfunc
复制代码
运行得出结果。
结果是1540
【VB】QQ群:1422505加的请打上VB好友
【易语言】QQ群:9531809  或 177048
【FOXPRO】QQ群:6580324  或 33659603
【C/C++/VC】QQ群:3777552
【NiceBasic】QQ群:3703755
您需要登录后才可以回帖 登录 | 加入我们

本版积分规则

快速回复 返回顶部 返回列表