倒水

【题目描述】 

从前有一个DTZ,它面前有一排格子,每个格子都放着一个杯子,每个杯子下面都配有一个集水盘,每个杯子都有有限的容量,而集水盘没有容量限制。

由于水利局局长Skylynf想喝水,DTZ需要往杯子里面倒水。

DTZ有两种操作,1.倒水;2.交换。具体如下:

· 1.倒水:DTZ不是一个一个杯子地倒水,而是一片片的倒水。它每次选择一个连续区域a~b,第a个杯子倒到第b个杯子(包含ab),往里面的每个杯子倒入相同的水(即杯子们的水量同时加上一个数)。由于杯子大小不一。倒了若干次以后,某些杯子会溢出来很多水,流进这些杯子下面的集水盘里面。如果第a个杯子(即最前面那个杯子)溢水了,DTZ就会毫不犹豫地交换第a个杯子和第b个杯子,但不移动原本的集水盘。(以上2个操作同属1个倒水操作)

· 2.交换:但是DTZ特别调皮,除了上述情况,他有时候会在倒完一片水之后,交换一些杯子的位置,但不移动原本的集水盘。

Skylynf在想知道DTZ一系列操作完成后,最后所有杯子水量的情况的同时,喝令DTZ算出每个集水盘有多少被浪费的水。

同时,DTZ被红云威胁去帮它解密码,好让红云有时间喂养它的蜘蛛们,但他倒水任务在身,请你赶快帮他完成任务,不然DTZ就会变成一台Iphone6.

所以请帮DTZ计算一下倒水的结果吧。

【输入描述】 

第一行2个整数n,m,表示方格阵有n个格子(1<=n<=3000 1<=m<=100),DTZ总共倒了m次水。

接下来一行n个整数,每个数字之间用空格隔开。表示每个杯子的最大容量为X 份水(1<=X<=1000)。

接下来m行,每行3个整数a, b, s (1<=a<=b<=n 0<=s<=30),

· 如果s等于0,则表示DTZ要把第a个杯子和第b个杯子交换位置;

· 如果s不为0,那就表示DTZ要倒水,这次倒水从第a个杯子倒到第b个杯子(包含ab)每一个杯子倒s份水。

【输出描述】 

第一行n个整数,每个整数之间用空格隔开,表示最后每个杯子里面有多少水。

接下来一行再有n个整数,表示最后每个杯子的集水盘里面有多少水。

【输入样例】 

3 3

1 2 3

1 2 1

1 3 0

2 3 1

【输出样例】 

0 2 1

0 0 1



程序:

var
n,m,i,a,b,s:longint;
x:array[0..6000]of longint;
r,p:array[0..5000]of int64;
procedure jh;
begin
    x[0]:=x[a];x[a]:=x[b];x[b]:=x[0];
    r[0]:=r[a];r[a]:=r[b];r[b]:=r[0];
end;
procedure js;
var
i:longint;
begin
    for i:=1 to n do
    begin
        if r[i]>x[i] then
        begin
            p[i]:=(r[i]-x[i])+p[i];
            r[i]:=x[i];
        end;
    end;
end;
procedure jia;
var
i:longint;
begin
    for i:=a to b do
    r[i]:=r[i]+s;
    for i:=a+1 to b do
    if r[i]>x[i] then
    begin
        p[i]:=(r[i]-x[i])+p[i];
        r[i]:=x[i];
    end;
end;
begin
    fillchar(r,sizeof(r),0);
    fillchar(p,sizeof(p),0);
    readln(n,m);
    for i:=1 to n do
    read(x[i]);
    readln;
    for i:=1 to m do
    begin
        readln(a,b,s);
        if s=0 then jh;
        if s>0 then
        begin
            jia;
            if r[a]>x[a] then
            begin
                p[a]:=p[a]+(r[a]-x[a]);
                r[a]:=x[a];
                jh;
            end;
        end;
    end;
    js;
    for i:=1 to n do
    write(r[i],' ');
    writeln;
    for i:=1 to n do
    write(p[i],' ');
end.

posted @ 2017-06-05 21:10  银叶草  阅读(706)  评论(0编辑  收藏  举报
Live2D