10.27 排名 2413

最新推荐文章于 2024-10-27 22:18:44 发布

yjy_aii

最新推荐文章于 2024-10-27 22:18:44 发布

阅读量236

点赞数

CC 4.0 BY-SA版权

分类专栏：冒泡排序

本文链接：https://blog.youkuaiyun.com/yjy_aii/article/details/78372308

冒泡排序专栏收录该内容

7 篇文章

订阅专栏

本文介绍了一种排序算法的具体实现过程，并通过示例代码详细解释了如何使用该算法对特定数据进行排序。此外，还展示了如何在排序过程中同步调整相关联的数据项，确保数据的一致性。

题目
题解
代码

题目

这里写图片描述

题解

排序一下就好了，没什么难的

代码

    var
      n,i,j,k:longint;
      a,b,c,d,e,f:array[1..50]of longint;

    procedure swap(var a,b:longint);
    var
      c:longint;
    begin
      c:=a;a:=b;b:=c;
    end;

    begin
      readln(n);
      for i:=1 to n do
        begin
          readln(a[i],b[i],c[i],d[i]);
          e[i]:=i;
        end;
      for i:=1 to n do
        for j:=i+1 to n do
          if b[e[i]]<b[e[j]] then
            begin
              k:=e[i];e[i]:=e[j];e[j]:=k;
            end;
      for i:=1 to n do
        f[e[i]]:=i;
      for i:=1 to n do
        for j:=i+1 to n do
          if d[i]<d[j] then
            begin
              swap(d[i],d[j]);
              swap(a[i],a[j]);
              swap(c[i],c[j]);
              swap(f[i],f[j]);
              swap(b[i],b[j]);
            end;
      for i:=1 to n do 
        writeln(a[i]:4,b[i]:5,c[i]:5,d[i]:5,f[i]:5,i:5,' ');
   end.