2017年10月21日普及组排名

最新推荐文章于 2021-07-21 18:36:14 发布

原创最新推荐文章于 2021-07-21 18:36:14 发布 · 395 阅读

0 ·

CC 4.0 BY-SA版权

普及模拟赛专栏收录该内容

91 篇文章

订阅专栏

本文介绍了一种基于数组的排序算法实现过程，使用了Pascal语言进行编程，并通过输入文件'sort.in'读取数据，经过一系列的比较和交换操作后，将排序后的结果输出到'sort.out'文件中。

这里写图片描述

程序：

var
n,i,j,x,z,w:longint;
a,b,c,d,p,y:array[0..200]of longint;
begin
    assign(input,'sort.in');
    reset(input);
    assign(output,'sort.out');
    rewrite(output);
    readln(n);
    for i:=1 to n do
    begin
        readln(x,y[i],z,d[i]);
        a[d[i]]:=x;
        b[d[i]]:=y[i];
        c[d[i]]:=z;
    end;

    for i:=1 to n-1 do
    for j:=i+1 to n do
    if d[i]<d[j] then
    begin
        w:=d[i];d[i]:=d[j];d[j]:=w;
    end;

    for i:=1 to n-1 do
    for j:=i+1 to n do
    if y[i]<y[j] then
    begin
        w:=y[i];y[i]:=y[j];y[j]:=w;
    end;
    p[y[1]]:=1;
    for i:=2 to n do
    if y[i]<>y[i-1] then p[y[i]]:=i else p[y[i]]:=p[y[i-1]];

    for i:=1 to n do
    writeln(a[d[i]],' ',b[d[i]],' ',c[d[i]],' ',d[i],' ',i,' ',p[b[d[i]]]);
    close(input);
    close(output);
end.