2、7(27)[13273849657697]49 J=8(49)[1327384949657697]ProcedureInsertSort(VarR:FileType);//对R[1..N]按递增序进行插入排序,R[0]是监视哨// Begin forI:=2ToNDo //依次插入R[2],...,R[n]// begin R[0]:=R[I];J:=I-1; WhileR[0]
3、 J:=J-1 end R[J+1]:=R[0]; //插入R[I]// end End; //InsertSort// 二、选择排序1.基本思想: 每一趟从待排序的数据元素中选出最小(或最大)的一个元素,顺序放在已排好序的数列的最后,直到全部待排序的数据元素排完。2.排序过程:【示例】: 初始关键字[4938659776132749]第一趟排序后13[38659776492749]第二趟排序后1327[659776493849]第三趟排序后132738[9776496549]第四趟排序后13273849[4997
4、6576]第五趟排序后1327384949[979776]第六趟排序后132738494976[7697]第七趟排序后13273849497676[97]最后排序结果1327384949767697ProcedureSelectSort(VarR:FileType); //对R[1..N]进行直接选择排序// Begin forI:=1ToN-1Do //做N-1趟选择排序// begin K:=I; ForJ:=I+1ToNDo //在当前无序区R[I..N]中选最小的元素R[K]//
5、 begin IfR[J]IThen //交换R[I]和R[K]// beginTemp:=R[I];R[I]:=R[K];R[K]:=Temp;end; end End. //SelectSort// 三、冒泡排序(BubbleSort)1.基本思想: 两两比较待排序数据元素的大小,发现两个数据元素的次序相反时即进行交换,直到没有反序的数据元素为止。2.排序过程: 设想被排