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