由n行數(shù)字組成的數(shù)字三角形如圖所示。設(shè)計(jì)一個(gè)算法,對(duì)于由n行數(shù)字組成的數(shù)字三角形(數(shù)字范圍[1,50],計(jì)算從三角形的頂至底的路徑經(jīng)過(guò)的數(shù)字和的最大值,每一步可以從當(dāng)前點(diǎn)走到左下方的點(diǎn)也可以走到右下方的點(diǎn)。
尋求路徑最大值的算法設(shè)計(jì)如下:
按三角形的行劃分,若有n行,則有n-1個(gè)步驟
①?gòu)牡讓娱_(kāi)始,本身數(shù)即為最大值
②倒數(shù)第二層的計(jì)算取決于底層的數(shù)據(jù):
12+6=18,13+14=27,24+15=39,24+8=32;
③倒數(shù)第三層的計(jì)算取決于底二層的數(shù)據(jù):
27+12=39,39+7=46,39+26=65;
④倒數(shù)第四層的計(jì)算取決于底三層的數(shù)據(jù):
46+11=57,65+8=73;
⑤最后的路徑:13-8-26-15-24其和為86。
根據(jù)上述算法描述,設(shè)計(jì)程序界面如圖所示,點(diǎn)擊“生成金字塔”按鈕,在列表框中生成數(shù)字金字塔,點(diǎn)擊“尋求路徑最大值”按鈕,在文本框text1中輸出最大值。
依據(jù)上述描述設(shè)計(jì)如下VB程序:
Constn=5
DimsxAsString
Dimi,j,k,a(1To100)AsInteger
PrivateSubCommand1_Click ( ?。?br />List1.Clear
Fori=1Ton
Forj=1Toi
a((i-1)*n+j)=Int(Rnd*50)+1a((i-1)*n+j)=Int(Rnd*50)+1
sx=sx+Str(a((i-1)*n+j))
Nextj
Fork=nToiStep-1
sx=″″+sx
Nextk
List1.AddItemsx
sx=″″
Nexti
EndSub
PrivateSubCommand2_Click ( ?。?br />Fori=nTo1Step-1
Forj=2Toi
Ifa((i-1)*n+j-1)>a((i-1)*n+j)a((i-1)*n+j-1)>a((i-1)*n+j)Then
a((i-2)*n+j-1)=a((i-1)*n+j-1)+a((i-2)*n+j-1)
Else
a((i-2)*n+j-1)=a((i-1)*n+j)+a((i-2)*n+j-1)
EndIf
Nextj
Nexti
Text1.Text=a(1)Text1.Text=a(1)
EndSub
請(qǐng)回答下列問(wèn)題:
(1)若數(shù)字金字塔如圖,輸出路徑最大值是3030。
(2)請(qǐng)?jiān)冖佗冖蹤M線處填入合適的代碼。
【考點(diǎn)】應(yīng)用程序的試運(yùn)行和保存.
【答案】a((i-1)*n+j)=Int(Rnd*50)+1;a((i-1)*n+j-1)>a((i-1)*n+j);Text1.Text=a(1);30
【解答】
【點(diǎn)評(píng)】
聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書(shū)面同意,不得復(fù)制發(fā)布。
發(fā)布:2024/6/27 10:35:59組卷:0引用:1難度:0.3
相似題
-
1.有如下VB程序段:
執(zhí)行該程序段后,變量c的值是( ?。?/h2>發(fā)布:2024/12/16 5:0:1組卷:1引用:2難度:0.3 -
2.由大寫(xiě)字母組成的長(zhǎng)度相同的兩個(gè)字符串s1和s2,檢測(cè)各字母的數(shù)量,如“ABDAC”與“AABCD”所含字母數(shù)量一樣,與“AABBC”所含字母數(shù)量不一樣。實(shí)現(xiàn)該功能的VB程序段如下:
填空處的代碼可以由以下部分組成:
①Text2.Text ②val(Text2.Text) ③b(a)=b(a)+1 ④b(a)=b(a)-1 ⑤b(i)<>0⑥b(i)=0
代碼順序正確的是( ?。?/h2>發(fā)布:2024/12/16 9:30:1組卷:3引用:3難度:0.4 -
3.小明用python語(yǔ)言中對(duì)大小為100*100像素的圖像“上.jpg”(如圖所示)進(jìn)行簡(jiǎn)單處理,部分代碼如圖:
程序執(zhí)行后的圖像效果是( )發(fā)布:2024/12/20 9:30:2組卷:3引用:5難度:0.4
把好題分享給你的好友吧~~