



免费预览已结束,剩余1页可下载查看
下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
冒泡排序:Program ;Const infile = sort.in; outfile = sort.out;Var a: Array1.100000 of Longint; f:Boolean;i,n,u:Longint;Begin Assign(input,infile); Assign(output,outfile); Reset(input); Rewrite(output); ReadLn(n); For i := 1 To n Do Read(ai); Repeat f := true; For i := 1 To n-1 Do If ai ai+1Then Begin u:=ai;ai:= ai+1;ai+1:=u;f:=false; End; Until f=true; For i := 1 To n Do Write(ai, ); Close(input); Close(output);End. 快排:Program;Const infile = sort.in; outfile = qsort.out;Var a:Array1.1000000Of Longint;i,n:Longint;Procedure quicksort(l,r:Longint);Var e,x:Integer; i,j:Longint;Begin i:=l;j:=r; x:=aRandom(r-l+1)+l; Repeat While aix Do Dec(j); If i j; If l i Then quicksort(i,r);End;Begin Assign(input,infile); Assign(output,outfile); Reset(input); Rewrite(output); ReadLn(n); For i := 1 To n Do Read(ai); quicksort(1,n); For i := 1 To n Do Write(ai, ); Close(input); Close(output);End. 希尔排序Program ;Const infile = sort.in; outfile = sort.out ;Var a:Array1.1000000 of Integer;t:Boolean; n,jump,i,e:Integer;Begin Assign(input,infile); Assign(output,outfile); Reset(input); Rewrite(output); ReadLn(N); For i := 1 To n Do Read(ai); jump := n; While jump 1 Do Begin jump:=jump div 2; Repeat t:= true; For i := 1 To n - jump Do Begin If aiai+jump Then Begin e := ai;ai:=ai+jump;ai+jump:=e;t:= false; End; End; until t= true; End; For i := 1 To n Do Write(ai, ); Close(input); Close(output);End. 选择法排序Program;Const infile = sort.in; outfile = sort.out;Var j,n,i,t:Longint; a:Array1.1000000of Longint;Begin Assign(input,infile); Assign(output,outfile); Reset(input); Rewrite(output); ReadLn(n); For i := 1 To n DO Read(ai); For i := 1 To n-1 Do For j := i+1 To n Do If aiaj Then Begin t := ai;ai:=aj;aj:=t; End; For i := 1 To n Do Write(ai, ); Close(input); Close(output);End. 冒泡法排序改进(两头)Program;Const infile = sort.in; outfile = sort.out;Var a:Array1.1000000OF Longint; t,I,L,R,N,R1,L1:Longint;f:Boolean;Begin Assign(input,infile); Assign(output,outfile); Reset(input); Rewrite(output); ReadLn(n); For i := 1 To n Do Read(ai); l := 1;R:=n-1; Repeat f := True; For i := l To r Do If aiai+1 Then Begin t:=ai;ai:=ai+1;ai+1:=t;f := false;r1:=i; End; If f THen Break; r := r1; For i := r Downto l+1 Do If aiai-1 Then Begin t:=ai;ai:=ai+1;ai+1:=t;l1:=i-1; End; l := l1; Until f; For i := 1 To n Do Write(ai, ); Close(input); Close(output);End. 基数法排序Program;Const infile = sort.in; outfile = sort.out; bin : Array1.9Of Longint =(1,10,100,1000,10000,100000,1000000,10000000,100000000);Function f(x,k:Longint):Longint;Begin f := x Div bink mod 10;End;Var c,a:Array1.100000Of Longint; s:Array0.9Of lOngint; b:Array0.9Of lOngint; k,j,n,i,x1,x2:Longint;Begin Assign(input,infile); Assign(output,outfile); Reset(input); Rewrite(output); ReadLn(n,k); For i := 1 To n Do Read(ai); For i := 1 TO k Do Begin For j := 0 to 9 dO bj:=0; For j := 1 To n Do Inc(bf(aj,i); s0:=b0; For j := 1 To 9 Do sj:=sj-1+bj
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2025年度厂房出租合同(含金融融资支持)
- 2025年度车辆进出口损害赔偿协议范本
- 2025房产中介合伙人投资合作及退出机制合同
- 2025年理发、美容服务项目建议书
- 提高护理文书书写规范的实施措施计划
- 仓库节能降耗工作的总结与展望计划
- 新年自我反思与成长计划
- 创造多元环境培养幼儿园小班的艺术表达能力计划
- 调整工作节奏的方法计划
- 经验教训与未来目标的思考计划
- 心肺复苏术课件2024新版
- 学校开学安全隐患自查表
- 内镜下粘膜剥离术(ESD)护理要点及健康教育
- 2022年全省百万城乡建设职工职业技能竞赛暨“华衍杯”江苏省第三届供水安全知识竞赛题库
- 广西北海LNG储罐保冷施工方案
- 《中国人阅读书目(三)——中国初中生基础阅读书目-导赏手册》新书简介2014.8.14 (1)
- 《生态学》课件—第1章:绪论
- 中心静脉压(CVP)监测及波形分析
- 人教版(PEP)英语五年级下册-Unit 1My day A Let’s spell 教案
- 家庭病床工作制度(共2页)
- 数控机床公司绩效计划(范文)
评论
0/150
提交评论