未分类题

阅读以下说明和流程图,回答问题将解答填入对应栏内。
[说明]
已知递推数列:a(1)=1,a (2s)= a (s),a(2s+1)=a (s)+a (s+1)(s 为正整数)。试求该数列的第n项与前n项中哪些项最大?最大值为多少?
算法分析:该数列序号分为奇数或偶数两种情况做不同递推,所得数列呈大小有规律的摆动。设置a数组,赋初值a (1)=1。根据递推式,在循环中分项序号s (2~n)为奇数或偶数作不同递推:每得一项 a (s),即与最大值max 作比较,如果a (s)>max,则max=a(i)。最后,在所有项中搜索最大项(因最大项可能多于一项),并打印最大值max。
[问题]
将流程图中的(1)~(5)处补充完整。
注:流程图中(1)循环开始的说明按照“循环变量名:循环初值,循环终值,增量”格式描述。
[流程图]

A.shangxueba.cn/images/ct_crppxm_crppxliucheng_00081(20093).jpg'

【参考答案】

(1)for s=2 to n (2) mod(s2)=0(3) a(s)=a(s/2) (4) a(s)=a(s+1)......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)
热门 试题

未分类题
阅读以下说明Visual Basic代码,回答问题1~2,将解答填入对应的栏内。[说明]本程序实现的功能是判断指定的文本文件中是否包含指定的字符串,并且如果包含则返回其第一次出现的位置(行号、列号)。程序运行界面如下图所示,用户只要通过驱动器列表框、目录列表框选定文件夹,文件列表框会自动列出该文件夹下所有文本文件名称,选中其中某个文件,再输入目标字符串并且单击“查找”按钮,就能看到查找的结果。在开发过程中,驱动器列表框名为Drive1,目录列表框名为Dirl,文件列表框名为File1,目标字符串输入框名为Text1,“查找”按钮名为Command1。[Visual Basic 代码]Private Sub Drivel_Change()Dirl. Path=(1) '更新目录列表框的路径End SubPrivate Sub Dirl_Change( )(2)= Dirl. Path '更新文件列表框的路径 End SubPrivate Sub Commandl_Click( )Dim fso, a As ObjectDim i, j As IntegerIf (3) = '' Then '判断是否已经选中某个文件MsgBox '请选择一个文件文件!'(4) '退出事件过程End If'创建文件系统对象以及文本流对象Set fso = CreateOhjecl( 'Scripting. FileSystemOhject' )Set a = fso. OpenTextFile( Dirl. Path & ' ' &(3))i=1Do While (5)<> True '逐行读取文件,直至文件末尾strLine = a. ReadLinej = InStr(1,(6))'返回目标字符串在文件这一行中的位置If j > 0 Then '如果目标字符串在这一行出现,则返回其位置MsgBox '字符串第一次出现的位置是' & '(' & i & ',' &j & '),,'(4) '退出事件过程End Ifi:i+lLoopMsgBox '字符串在文件中不出现,'End Sub