16.對n項(n<=100)數(shù)據(jù)序列的前x項求和,可設(shè)計如下算法:將數(shù)據(jù)序列存儲在數(shù)組a中,并按一定規(guī)則轉(zhuǎn)換成數(shù)組c,再借助數(shù)組c實現(xiàn)求和。
將數(shù)組a轉(zhuǎn)換成數(shù)組c的方法描述如下:
①將數(shù)組a中的元素依次存儲到數(shù)組c中,把當(dāng)前數(shù)組c看作第一層;
②把第一層中的各元素進(jìn)行如下處理:奇數(shù)項值不變,偶數(shù)項的值更新為自己與自己前一項的和,將更新后的數(shù)組元素看作第二層;
③把第二層中的各元素,按上述方法進(jìn)行同樣操作,更新后的數(shù)組元素看作第三層;
④以此類推,直到當(dāng)前層中僅有一項為止。
例如x=11時,轉(zhuǎn)換過程如圖所示:
借助數(shù)組c,可快速計算出數(shù)組a中前x項的和。例如,數(shù)組a中前11項的和,可由表達(dá)式c(11)+c(10)+c(8)得到。表達(dá)式具體分析過程如下:
②表達(dá)式第一項為c(11);
②將下標(biāo)11轉(zhuǎn)換成二進(jìn)制數(shù)1011,計算該二進(jìn)制數(shù)最右邊的“1”所對應(yīng)的權(quán)值,再用11減去此權(quán)值得到10,即表達(dá)式第二項為c(10);
③按上述方法繼續(xù)操作,直到計算結(jié)果等于0為止。
小龍依據(jù)上述方法設(shè)計了如下vb程序。請回答下列問題:
(1)計算數(shù)組a中前22項和的表達(dá)式為
。(填寫表達(dá)式,如c(11)+c(10)+c(8))
(2)請在橫線處填入合適的代碼。
DimnAsInteger
Dima(1To1000)AsLong,c(1To1000)AsLong
PrivateSubForm_Load
'讀取n個數(shù)據(jù),并存儲到數(shù)組a中(代碼略)
EndSub
PrivateSubCommand1_Click ( ?。?br />DimiAsInteger,jAsInteger,kAsInteger,spaceAsInteger
Fori=1Ton
c(i)=a(i)
Nexti
k=2'當(dāng)前層第一個偶數(shù)項的位置
space=1'當(dāng)前層偶數(shù)項與前一項的間距
DoWhilek<=n
Fori=kTonStepk
c(i)=c(i)+c(i-space)
Nexti
k=k*2
①
Loop
EndSub
PrivateSubCommand2_Click ( )
DimxAsInteger,sumAsLong
x=Val(Text1.Text):sum=0
DoWhilex<>0
sum=sum+c(x)
②
Loop
Text2.Text=Str(sum)
EndSub
Functionlowbit(xAsInteger)AsInteger
DimtempAsInteger
temp=x:lowbit=1
DoWhile③
'
lowbit=lowbit*2
temp=temp\2
Loop
EndFunction