作业帮 > 数学 > 作业

数列an中a1=1,a n+1=pa n +2,求Sn.请写出求此问题的算法和程序框图(直到型和当型都要)

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/11 12:09:18
数列an中a1=1,a n+1=pa n +2,求Sn.请写出求此问题的算法和程序框图(直到型和当型都要)
a n+1=pa n +2 p是什么?必须是具体数值才能用计算机算啊
再问: p为常数
再答: 一、直到型循环:Rem 语言:Visual Basic 6.0
Sub Main()  '开始
  p = Val(InputBox("请输入p=", "输入"))
  n = Val(InputBox("请输入n=", "输入"))
  S = 0 : a = 1 : i = 1
  Do
    S = S + a
    a = a / p
    i = i + 1
  Loop Until i > n
  MsgBox S, vbInformation, "输出"
End Sub  '结束 二、当型循环:Rem 语言:Visual Basic 6.0
Sub Main()  '开始
  p = Val(InputBox("请输入p=", "输入"))
  n = Val(InputBox("请输入n=", "输入"))
  S = 0 : a = 1 : i = 1
  Do While i <= n
    S = S + a
    a = a / p
    i = i + 1
  Loop
  MsgBox S, vbInformation, "输出"
End Sub  '结束 【注】史上最强的画流程图专用工具!用简单的拖放图标的操作搭建流程图,流程线自动适应,程序代码自动生成,可编译立即运行检验算法正确与否(若编译有错还指出错误所在)本软件实现了机器自动编程,只要你能用流程图表达你的算法!设计算法是人的事,其余都交给机器吧!下载地址(百度云网盘)
http://yun.baidu.com/share/link?shareid=1615296535&uk=942206283