全国青少年信息学奥林匹克竞赛培训---冒泡排序

最新推荐文章于 2022-08-07 15:50:22 发布

编程老头

最新推荐文章于 2022-08-07 15:50:22 发布

阅读量456

点赞数

分类专栏： Pascal基础全国信息学奥林匹克竞赛

本文链接：https://blog.csdn.net/sjtu081200/article/details/8478739

版权

Pascal基础同时被 2 个专栏收录

56 篇文章 1 订阅

订阅专栏

全国信息学奥林匹克竞赛

26 篇文章 9 订阅

订阅专栏

program sort;

var
   a:array[0..9] of integer
     =(4,3,5,1,10,2,6,9,7,8);

procedure Print(var _a:array of integer);
var i:integer;
begin
    for i:=0 to 9 do
    begin
      write(_a[i]:5);
    end;
end;

procedure BubbleSort(var _a:array of integer);
var i,j,temp:integer;
begin
  Print(_a);
  writeln;
  for i:=0 to 8 do
  begin
    for j:=0 to 8-i do
    begin
      if _a[j]>_a[j+1] then
      begin
         temp:=_a[j];
         _a[j]:=_a[j+1];
         _a[j+1]:=temp;
      end;
    end;
    Print(_a);
    writeln;
  end;
end;



begin
   BubbleSort(a);
   Print(a);
   readln;
end.