組3 課件- 高中信息技術(shù)浙教版選修1

程序設(shè)計(jì)的核心——數(shù)組目錄1考試要求3學(xué)習(xí)難點(diǎn)5作業(yè)講解7課后鞏固2學(xué)習(xí)重點(diǎn)4作業(yè)講解6課堂練習(xí)1.數(shù)組(c)考試要求1.掌握數(shù)組的運(yùn)用。2.嘗試用數(shù)組來(lái)解決問(wèn)題學(xué)習(xí)重點(diǎn)1.數(shù)組下標(biāo)的運(yùn)用。2.用數(shù)組來(lái)解決問(wèn)題學(xué)習(xí)難點(diǎn)目錄01作業(yè)講解作業(yè)講解1.在一個(gè)數(shù)據(jù)序列中，如果出現(xiàn)連續(xù)升序的幾個(gè)數(shù)，稱為一個(gè)升序序列，該序列中數(shù)的個(gè)數(shù)稱為序列長(zhǎng)度。用隨機(jī)函數(shù)產(chǎn)生10個(gè)數(shù)據(jù)的序列，查找其中升序序列的個(gè)數(shù)及最大序列長(zhǎng)度。程序運(yùn)行界面如圖所示：作業(yè)講解tmp=1:ans=0Fori=2To6Ifa(i)>a(i-1)Thentmp=tmp+1

Else

tmp=1

Endif

Iftmp>ansThenans=tmpNextia(1)a(2)a(3)a(4)a(5)a(6)213758數(shù)組最長(zhǎng)連續(xù)上升子序列作業(yè)講解1.在一個(gè)數(shù)據(jù)序列中，如果出現(xiàn)連續(xù)升序的幾個(gè)數(shù)，稱為一個(gè)升序序列，該序列中數(shù)的個(gè)數(shù)稱為序列長(zhǎng)度。用隨機(jī)函數(shù)產(chǎn)生10個(gè)數(shù)據(jù)的序列，查找其中升序序列的個(gè)數(shù)及最大序列長(zhǎng)度。程序運(yùn)行界面如圖所示：Dima(1To10)AsInteger‘隨機(jī)產(chǎn)生10個(gè)隨機(jī)數(shù)存儲(chǔ)在數(shù)組a中,代碼略。PrivateSubCommand1_Click()max=0:t=1:c=0Fori=1to9

If

①

Then t=t+1

Else If

②

Thenmax=t Ift>1Thent=1:

③

EndIfNextia(i)<a(i+1)max<tc=c+1作業(yè)講解1.在一個(gè)數(shù)據(jù)序列中，如果出現(xiàn)連續(xù)升序的幾個(gè)數(shù)，稱為一個(gè)升序序列，該序列中數(shù)的個(gè)數(shù)稱為序列長(zhǎng)度。用隨機(jī)函數(shù)產(chǎn)生10個(gè)數(shù)據(jù)的序列，查找其中升序序列的個(gè)數(shù)及最大序列長(zhǎng)度。程序運(yùn)行界面如圖所示：Ift>1Then

Ifmax<tThenmax=t

c=c+1EndIfText1.Text=Str(c)Text2.Text=Str(max)EndSub作業(yè)講解2.在比賽計(jì)分時(shí)經(jīng)常采用去除最大值和最小值然后計(jì)分的方式，小華編寫了一個(gè)刪除數(shù)據(jù)中最大值和最小值的程序，功能如下：程序運(yùn)行時(shí)，自動(dòng)產(chǎn)生n個(gè)不同隨機(jī)數(shù)存儲(chǔ)在數(shù)組a中，并在列表List1中顯示。單擊按鈕Command1后，去除數(shù)組中的最大值和最小值后在列表框List2中顯示。實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)趧澗€處填入合適的代碼。課堂練習(xí)變量k的作用k=1Fori=2TonIfa(i)>a(k)Thenk=iNextiText1.Text=Str(k)a(1)a(2)a(3)a(4)a(5)59-11211變量k的作用k=a(1)Fori=2To5Ifa(i)>kThenk=a(i)NextiText1.Text=Str(k)變量k用于存儲(chǔ)數(shù)組中最大元素的值變量k用于存儲(chǔ)數(shù)組中最大元素的下標(biāo)求數(shù)組中的最大值作業(yè)講解2.在比賽計(jì)分時(shí)經(jīng)常采用去除最大值和最小值然后計(jì)分的方式，小華編寫了一個(gè)刪除數(shù)據(jù)中最大值和最小值的程序，功能如下：程序運(yùn)行時(shí)，自動(dòng)產(chǎn)生n個(gè)不同隨機(jī)數(shù)存儲(chǔ)在數(shù)組a中，并在列表List1中顯示。單擊按鈕Command1后，去除數(shù)組中的最大值和最小值后在列表框List2中顯示。實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)趧澗€處填入合適的代碼。Constn=10Dima(1Ton)AsInteger‘隨機(jī)產(chǎn)生n個(gè)不同隨機(jī)數(shù)存儲(chǔ)在數(shù)組a中,代碼略。PrivateSubCommand1_Click()imin=1:imax=1i=2DoWhilei<=n‘找最大值和最小值

Ifa(i)<a(imin)Then①

②

i=i+1Loopimin=iIfa(i)>a(imax)thenimax=i作業(yè)講解2.在比賽計(jì)分時(shí)經(jīng)常采用去除最大值和最小值然后計(jì)分的方式，小華編寫了一個(gè)刪除數(shù)據(jù)中最大值和最小值的程序，功能如下：程序運(yùn)行時(shí)，自動(dòng)產(chǎn)生n個(gè)不同隨機(jī)數(shù)存儲(chǔ)在數(shù)組a中，并在列表List1中顯示。單擊按鈕Command1后，去除數(shù)組中的最大值和最小值后在列表框List2中顯示。實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)趧澗€處填入合適的代碼。Fori=1TonIf③ThenList2.AddItemStr(a(i))EndIfNextiEndSubi<>iminandi<>imax作業(yè)講解3.小王用VB編寫一個(gè)自動(dòng)統(tǒng)計(jì)離散數(shù)據(jù)的“極大值”（峰值）個(gè)數(shù)的程序。功能如下：在列表框List1中隨機(jī)產(chǎn)生10個(gè)介于[1，99]的正整數(shù)，單擊“統(tǒng)計(jì)極大值”命令按鈕Command1，程序自動(dòng)統(tǒng)計(jì)出極大值，并將其輸出到列表框List2，且將其中的最大值輸出在標(biāo)簽Label1中。程序界面如圖所示，實(shí)現(xiàn)上述功能的VB程序如下。（假設(shè)：數(shù)據(jù)的左右兩個(gè)端點(diǎn)不計(jì)入極大值，且相等的兩個(gè)值也不計(jì)入極大值）。請(qǐng)回答以下問(wèn)題：（1）如果原始數(shù)據(jù)為“8392457125”，此時(shí)極大值有：①。作業(yè)講解3.小王用VB編寫一個(gè)自動(dòng)統(tǒng)計(jì)離散數(shù)據(jù)的“極大值”（峰值）個(gè)數(shù)的程序。功能如下：在列表框List1中隨機(jī)產(chǎn)生10個(gè)介于[1，99]的正整數(shù)，單擊“統(tǒng)計(jì)極大值”命令按鈕Command1，程序自動(dòng)統(tǒng)計(jì)出極大值，并將其輸出到列表框List2，且將其中的最大值輸出在標(biāo)簽Label1中。程序界面如圖所示，實(shí)現(xiàn)上述功能的VB程序如下。（假設(shè)：數(shù)據(jù)的左右兩個(gè)端點(diǎn)不計(jì)入極大值，且相等的兩個(gè)值也不計(jì)入極大值）。請(qǐng)回答以下問(wèn)題：Dima(1To10)AsInteger'存儲(chǔ)原始數(shù)據(jù)Dimmax(1To10)AsInteger'存儲(chǔ)極大值數(shù)據(jù)‘隨機(jī)產(chǎn)生10個(gè)介于[1，99]的正整數(shù)存儲(chǔ)在數(shù)組a中,代碼略。PrivateSubCommand1_Click()count=0Fori=2To9'統(tǒng)計(jì)極大值，左右兩邊端點(diǎn)值除外If

②

Thencount=count+1

③

=a(i)EndIfNextia(i)>a(i-1)anda(i)>a(i+1)max(count)作業(yè)講解3.小王用VB編寫一個(gè)自動(dòng)統(tǒng)計(jì)離散數(shù)據(jù)的“極大值”（峰值）個(gè)數(shù)的程序。功能如下：在列表框List1中隨機(jī)產(chǎn)生10個(gè)介于[1，99]的正整數(shù)，單擊“統(tǒng)計(jì)極大值”命令按鈕Command1，程序自動(dòng)統(tǒng)計(jì)出極大值，并將其輸出到列表框List2，且將其中的最大值輸出在標(biāo)簽Label1中。程序界面如圖所示，實(shí)現(xiàn)上述功能的VB程序如下。（假設(shè)：數(shù)據(jù)的左右兩個(gè)端點(diǎn)不計(jì)入極大值，且相等的兩個(gè)值也不計(jì)入極大值）。請(qǐng)回答以下問(wèn)題：maxa=0Fori=1TocountList2.AddItemStr(max(i))If

④

Thenmaxa=max(i)EndIfNextiLabel1.Caption="極大值中的最大值為："+Str(maxa)EndSubmaxa<max(i)目錄02課堂練習(xí)課堂練習(xí)小王編寫VB程序，功能如下：在文本框Text1中輸入一段英語(yǔ)短文，點(diǎn)擊“統(tǒng)計(jì)”按鈕Command1，在標(biāo)簽Label2中輸出該短文中出現(xiàn)次數(shù)最多的小寫字母、次數(shù)和頻率，程序運(yùn)行界面如圖所示。課堂練習(xí)PrivateSubCommand1_Click()DimmaxAsInteger'變量max表示出現(xiàn)最多的字母DimsumAsInteger'sum表示字母總數(shù)Dimzm(1To26)AsInteger'數(shù)組zm存放26個(gè)字母出現(xiàn)的次數(shù)s=Text1.TextFori=1ToLen(s)c=Mid(s,i,1)Ifc>="a"Andc<="z"Then

n=asc(c)-96zm(n)=zm(n)+1sum=sum+1EndIfNext