算法本專題所討論的是兩種經(jīng)典冒泡排序選擇思想和程_第1頁
算法本專題所討論的是兩種經(jīng)典冒泡排序選擇思想和程_第2頁
算法本專題所討論的是兩種經(jīng)典冒泡排序選擇思想和程_第3頁
算法本專題所討論的是兩種經(jīng)典冒泡排序選擇思想和程_第4頁
算法本專題所討論的是兩種經(jīng)典冒泡排序選擇思想和程_第5頁
已閱讀5頁,還剩2頁未讀 繼續(xù)免費閱讀

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認領(lǐng)

文檔簡介

1)(n>=j>=i+1)ia(i)。①從后往前,小數(shù)往前冒(默認寫法Fori=1Ton Forj=nToi1Step- '注意jIfa(j)<a(j-1)Then t=a(j)a(j)=a(j-1)a(j-1)=tEndIfNextjNextFori=1Ton-1 Forj=1Ton-i '注意j的初值和終值Ifa(j)>a(j+1)Then t=a(j)a(j)=a(j+1)a(j+1)=tEndNextNext證明如下:假設(shè)數(shù)組已進行了i-1遍冒泡,在進行第i遍冒泡時,沒有相鄰元素交換,那么a(n)>=a(n-1)>= 有序部 無序部DoWhilei<=n-1and Forj=nToi+1Step-1Ifa(j)<a(j-1)Then EndIfNextja(i)。Fori=1Ton Forj=i+1to forjntoi+1step-1Ifa(j)<a(i)t=a(j):a(j)=a(i):a(i)=tEndIfNextNext②改進后的選擇排序(默認寫法n-1。Fori=1Ton Next

Forj=i+1ToIfa(j)<a(k)Then NextjIfk<>ithen t=a(i):a(i)=a(k):a(k)=tEndn*(n-01 若完成某一遍時的結(jié)果是35,88,110,48,64,則完成下一遍時的結(jié)果是( A. B.C. D.35a(5)a(4),a(4a(3),a(3)a(2),若后面元素比前面元素小,則交換。本題要注意冒泡排序與選擇排序的區(qū)分,防止誤選B【參考答案】16-2Dima(1To8)AsIntegerDimnAsIntegerPrivateSub'n=8,排序前數(shù)據(jù)在數(shù)組a中,并在列表框Listl中顯示'代碼略EndPrivateSubDimflagAsBoolean'flagTruei<=n-1OrDo '(i<=n-1OrForj=nToi+1Step-1Ifa(j)<a(j-1)EndIfNextj '(Fori=1ToList2.AddItemStr(a(i))NextiEndflag(某一遍結(jié)束后,flagFalse數(shù)據(jù)交換,否則說明有數(shù)據(jù)交換)i<=n-1flag=Truei-1?!緟⒖即鸢浮浚?)i<=n-1andflag=True(2)Str(i-2【例16-3(學科指導(dǎo)意見樣卷)6位評委為選手打分,給出的分數(shù)分別為91,88,97,89,95,94。采用選擇排序算法對其進行排序,若完成第一遍時的結(jié)果為:A. B.C. D.【參考答案】16-4】(20159月測試卷)采用如下選擇排序算法對數(shù)組a5個數(shù)據(jù)238698652”按從小到大的順序進行排序。Fori=1To4k=iForj=i+1ToIfa(j)<a(k)Thenk=jNextjIfk<>IThent=a(i):a(i)=a(k):a(k)=tEndIfNexti整個排序過程中,數(shù)組中的數(shù)據(jù)比較次數(shù)和交換次數(shù)分別是A.10次和3 B.10次和4C.15次和3 D.15次和10Fori=1ToForj=5Toi+1Step-1Ifa(j)>a(i)Thent=a(j):a(j)=a(i):a(i)=tEndIfNextjNextia(1)a(5)的值依次為A. B.C. D.a(i),所以排序方式是降序。【參考答案】s=Fori=1ToForj=7Toi+1Step-1Ifa(j)<a(j-1)t=a(j):a(j)=a(j-1):a(j-1)=tEndIfNexts=s+Str(a(i))NextiText1.Text=本框Text1中顯示的內(nèi)容是( A.12 B.98 C.39 D.86成績、國籍和道次按照道次從小到大的順序依次在a(2to9)、b(2to9)、c(2to9)d(2to94,VBList2中。代碼如下:Dima(9)AsString,b(9)AsSingle,c(9)AsString,d(9)AsIntegerPrivateSubCommand1_Click()Fori= k=iForj=i+1ToIf Thenk=j NextjIfi<>ka(0)=a(i):a(i)=a(k):a(k)=b(0)=b(i):b(i)=b(k):b(k)=c(0)=c(i):c(i)=c(k):c(k)=EndIfNextiList2.AddItem""+"成績(秒) "+"國籍 "+"道次

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負責。
  • 6. 下載文件中如有侵權(quán)或不適當內(nèi)容,請與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論