浙江高中信息技術(shù)（主講人：郭郭）冒泡排序目錄Contents1基本思想2程序?qū)崿F(xiàn)34課堂小結(jié)與課后練習(xí)例題講解PART01基本思想數(shù)組元素的最值、均值數(shù)組元素的排序（冒泡法和選擇法）數(shù)組元素的插入和刪除1.數(shù)組的排序冒泡排序基本思想：將相鄰兩數(shù)兩兩比較，次序不對時(shí)兩數(shù)交換排序步驟(以升序?yàn)槔?：1)從第1個(gè)數(shù)開始比較相鄰兩數(shù)，使小數(shù)在前大數(shù)在后；2)一輪比較完畢，大數(shù)沉底(定位)，小數(shù)上浮一個(gè)位置；3)n個(gè)數(shù)，經(jīng)過n-1輪比較后完成排序1.數(shù)組的排序冒泡排序P183基本思想：將相鄰兩數(shù)兩兩比較，次序不對時(shí)兩數(shù)交換排序步驟(以升序?yàn)槔?：1)從第1個(gè)數(shù)開始比較相鄰兩數(shù)，使小數(shù)在前大數(shù)在后；2)一輪比較完畢，大數(shù)沉底(定位)，小數(shù)上浮一個(gè)位置；3)n個(gè)數(shù)，經(jīng)過n-1輪比較后完成排序a(1)a(2)a(3)a(4)a(5)a(6)…..n=6

Forj=1Ton-1

Ifa(j)>a(j+1)Thent=a(j):a(j)=a(j+1):a(j+1)=t

NextjFori=1Ton–1‘外循環(huán)控制比較的輪數(shù)Nextin-i‘內(nèi)循環(huán)控制每輪的比較次數(shù)例1:用冒泡法對一組數(shù)按從小到大的順序排列。編程思路：OptionBase1定義1個(gè)動(dòng)態(tài)變體數(shù)組并賦初值Picture1中顯示未排序的數(shù)利用冒泡法進(jìn)行排序Picture2中顯示已排序的數(shù)Fori=________

Forj=_______

If_________Then

t=a(j):a(j)=a(j+1):a(j+1)=t

EndIfNextjNextiDima(),n%,i%,t%a()=Array(12,7,10,3,8,15,24,6)Fori=1Ton

Picture2.Printa(i);Nextia(j)>a(j+1)1Ton–11Ton-in=Ubound(a)‘?dāng)?shù)組個(gè)數(shù)Fori=1TonPicture1.Printa(i);Nexti選擇法排序基本思想：找到最小數(shù)(最大數(shù))后交換排序過程(以升序?yàn)槔?：

選擇法排序基本思想：找到最小數(shù)(最大數(shù))后交換排序過程(以升序?yàn)槔?：

min=1

Forj=2Ton

Ifa(j)<a(min)

Thenmin=jNextjt=a(1):a(1)=a(min):a(min)=tFori=1Ton-1Nextiii+1ii例2:用隨機(jī)函數(shù)產(chǎn)生50個(gè)2位的隨機(jī)整數(shù)，并按由小到大的順序打印出來(要求每行顯示10個(gè)整數(shù))。編程思路：定義通用數(shù)組

Dima(50)AsInteger“產(chǎn)生數(shù)組”按鈕的作用產(chǎn)生50個(gè)隨機(jī)整數(shù)保存在數(shù)組a中Picture1中顯示數(shù)據(jù)Dimi%Picture1.ClsPicture1.Print“排序前數(shù)據(jù):"RandomizeFori=1To50

a(i)=Int(Rnd*90+10)

Picture1.Printa(i);

IfiMod10=0ThenPicture1.PrintNexti例2:用隨機(jī)函數(shù)產(chǎn)生50個(gè)2位的隨機(jī)整數(shù)，并按由小到大的順序打印出來(要求每行顯示10個(gè)整數(shù))。編程思路：定義通用數(shù)組

Dima(50)AsInteger“產(chǎn)生數(shù)組”按鈕的作用產(chǎn)生50個(gè)隨機(jī)整數(shù)保存在數(shù)組a中Picture1中顯示數(shù)據(jù)“排序輸出”按鈕的作用選擇法排序Picture1中顯示數(shù)據(jù)Dimi%,j%,p%,t%Fori=________p=i

Forj=_________Ifa(p)>a(j)Then_____

Nextjt=a(i):a(i)=a(p):a(p)=tNextiPicture1.Print"排序后的數(shù)據(jù)："Fori=1To50

Picture1.Printa(i);

IfiMod10=0ThenPicture1.PrintNexti1To49i+1To50p=j課堂作業(yè)：隨機(jī)產(chǎn)生10個(gè)100以內(nèi)的整數(shù)存入數(shù)組中，將其中的最小元素和第1個(gè)元素交換。編程思路：定義數(shù)組和變量產(chǎn)生隨機(jī)數(shù)存入數(shù)組并輸出找出最小數(shù)的下標(biāo)交換最小數(shù)和第1個(gè)元素輸出交換后的全部元素……k=0Fori=1To9Ifa(i)<a(k)Thenk=iNexti……min=19k=52.插入和刪除數(shù)據(jù)插入數(shù)據(jù)在有序數(shù)組中插入數(shù)據(jù)后數(shù)組仍舊有序步驟(以升序?yàn)槔?：1)找到插入位置k2)騰出位置(后移)3)插入數(shù)據(jù)x……Fori=0Ton

Ifx<a(i)Thenk=i:ExitForNexti……Fori=ntokStep-1

a(i+1)=a(i)Nextia(k)=x

例7-7:將一個(gè)數(shù)插入到已排序的一組數(shù)的適當(dāng)位置中，使該組數(shù)仍然有序。1)找到插入位置k2)騰出位置(后移)3)插入數(shù)據(jù)xDima(),i%,n%,k%,x%a()=Array(1,4,7,10,13,16,19,22,25)n=UBound(a)Fori=0TonPicture1.Print"a(";i;")=";a(i)Nextix=val(Text1.text)Fori=0Ton

Ifx<a(i)Thenk=i:ExitForNexti_____________________Fori=ntokStep-1a(i+1)=a(i)Nextia(k)=xFori=0Ton+1

Picture2.Print"a(";i;")=";a(i)NextiReDimPreservea(n+1)2.插入和刪除數(shù)據(jù)刪除數(shù)據(jù)在有序數(shù)組中刪除數(shù)據(jù)后數(shù)組仍舊有序步驟(以升序?yàn)槔?：1)找到刪除位置k2)刪除元素(前移)……Fori=0Ton

Ifx=a(i)Thenk=i:ExitForNextiFori=kton

a(i)=a(i+1)Nexti……

本章小結(jié)了解數(shù)組的概念,靜態(tài)數(shù)組與動(dòng)態(tài)數(shù)組的區(qū)別。掌握一維數(shù)組和二維數(shù)組的定義和使用。掌握數(shù)據(jù)的排序方法。作業(yè)2編程題1：實(shí)現(xiàn)如右圖所示的排序編程題2:實(shí)現(xiàn)如圖所示的楊輝三角形作業(yè)講評編程題1：將10個(gè)隨機(jī)整數(shù)按升序或降序排列輸出。分析冒泡排序選擇排序Dima%(10),i%,j%,t%,n%n=10Fori=1Tona(i)=Int(Rnd*90+10)Picture1.Printa(i);NextiFori=1Ton-1Forj=1Ton-iIfa(j)>a(j+1)Then

t=a(j):a(j)=a(j+1):a(j+1)=tEndIf