博客
关于我
强烈建议你试试无所不能的chatGPT,快点击我
三大基本排序专题
阅读量:5819 次
发布时间:2019-06-18

本文共 701 字,大约阅读时间需要 2 分钟。

 

 

//以下依次是冒泡、选择、插入排序

var n,i:longint;
    a:array[0..20] of longint;
procedure BUB;
var i,j,t:longint;
begin
    for i:=1 to n-1 do
        for j:=1 to n-i do
            if a[j]>a[j+1] then begin t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t; end;
end;
procedure SEL;
var i,j,k,t:longint;
begin
    for i:=1 to n-1 do
    begin
        k:=i;
        for j:=i+1 to n do
            if a[j]<a[k] then k:=j;
        t:=a[i]; a[i]:=a[k]; a[k]:=t;
    end;
end;
procedure INS;
var i,j,k,t:longint;
begin
    a[0]:=-2100000000;
    for i:=2 to n do
    begin
        t:=a[i];
        for j:=i-1 downto 0 do
            if a[j]>t then a[j+1]:=a[j] else break;
        a[j+1]:=t;
    end;
end;
begin
    readln(n);
    for i:=1 to n do read(a[i]);
    INS;
    for i:=1 to n-1 do write(a[i],' ');
    writeln(a[n]);
end.

转载于:https://www.cnblogs.com/pixiuart/p/5980472.html

你可能感兴趣的文章
Cocos2dx 3.0开发环境的搭建--Eclipse建立在Android工程
查看>>
基本概念复习
查看>>
重构第10天:提取方法(Extract Method)
查看>>
Android Fragment使用(四) Toolbar使用及Fragment中的Toolbar处理
查看>>
解决pycharm在ubuntu下搜狗输入法一直固定在左下角的问题
查看>>
“Info.plist” couldn’t be removed
查看>>
多线程day01
查看>>
react-native 模仿原生 实现下拉刷新/上拉加载更多(RefreshListView)
查看>>
MySQL出现Access denied for user ‘root’@’localhost’ (using password:YES)
查看>>
通过Roslyn构建自己的C#脚本(更新版)(转)
查看>>
红黑树
查看>>
UIImagePickerController拍照与摄像
查看>>
python调用windows api
查看>>
Linux内核中的printf实现【转】
查看>>
第四章 mybatis批量insert
查看>>
Java并发框架——什么是AQS框架
查看>>
【数据库】
查看>>
Win配置Apache+mod_wsgi+django环境+域名
查看>>
第四届中国汽车产业信息化技术创新峰会将于6月在沪召开
查看>>
linux清除文件内容
查看>>