运输pascal 90分程序

最新推荐文章于 2023-06-24 12:16:00 发布

原创最新推荐文章于 2023-06-24 12:16:00 发布 · 334 阅读

0 ·

CC 4.0 BY-SA版权

贪心专栏收录该内容

37 篇文章

订阅专栏

本文介绍了一种数组处理算法，该算法将数组中相邻的两个元素相加并除以给定值m，然后将结果重新插入数组并进行排序。通过不断重复此过程直至只剩下一个元素。文中提供了一段Pascal语言实现的示例代码。

这题有点像合并果子，只不过是合并最大的两个，并div k，再放进数组里排序。

错了一个点，求大神看看。

var
a:array[0..10000]of int64;
i,j,n,m:longint;

procedure kp(l,r:longint);
var
i,j,mid:longint;
begin
    if l>=r then exit;
    i:=l;j:=r;mid:=a[(l+r) div 2];
    repeat
         while a[i]<mid do inc(i);
         while a[j]>mid do dec(j);
         if i<=j then
         begin
             a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];
             inc(i);dec(j);
         end;
    until i>j;
    kp(l,j);
    kp(i,r);
end;
begin
    readln(n,m);
    for i:=1 to n do
    read(a[i]);
    kp(1,n);//从小到大排序
    for i:=n-1 downto 1 do//最后面合并
    begin
        a[i]:=(a[i]+a[i+1]) div m;//记住要div m
        for j:=i-1 downto 1 do//合并了还要放进数组排序，插入排序
        if a[i]<a[j] then
        begin
            a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];
        end;
    end;
    write(a[1]);//最后合并成一个
end.