一大堆的福利之【USACO题库】Greedy Gift Givers贪婪的礼物送礼者

最新推荐文章于 2025-07-04 09:50:14 发布

原创最新推荐文章于 2025-07-04 09:50:14 发布 · 933 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#Pascal #OJ #福利 #USACO

本文介绍了一种用于计算朋友间礼物交换的算法，确保每位参与者能够准确地计算出他们应该收到或支付的金额差额。

题目描述

对于一群要互送礼物的朋友，你要确定每个人送出的礼物比收到的多多少(and vice versa for those who view gift giving with cynicism)。

在这一个问题中，每个人都准备了一些钱来送礼物，而这些钱将会被平均分给那些将收到他的礼物的人。

然而，在任何一群朋友中，有些人将送出较多的礼物(可能是因为有较多的朋友)，有些人有准备了较多的钱。

给出一群朋友，没有人的名字会长于 14 字符，给出每个人将花在送礼上的钱，和将收到他的礼物的人的列表，

请确定每个人收到的比送出的钱多的数目。

测试系统是 Linux 符合标准的 Unix 的协定。

用'\n'作为行的结束。

这和　Windows 系统用'\n' 和 '\r'作为行的结束是不同的。

你的程序不要被这困住了。

输入

第 1 行:	人数NP,2<= NP<=10
第 2到 NP+1 行:	这NP个在组里人的名字　一个名字一行
第NP＋2到最后：	这里的NP段内容是这样组织的：第一行是将会送出礼物人的名字。第二行包含二个数字:　第一个是原有的钱的数目（在0到2000的范围里），第二个NGi是将收到这个送礼者礼物的人的个数如果 NGi 是非零的, 在下面 NGi 行列出礼物的接受者的名字，一个名字一行。

输出

输出 NP 行

每行是一个的名字加上空格再加上收到的比送出的钱多的数目。

对于每一个人，他名字的打印顺序应和他在输入的2到NP＋1行中输入的顺序相同。所有的送礼的钱都是整数。

每个人把相同数目的钱给每位要送礼的朋友，而且尽可能多给，不能给出的钱被送礼者自己保留。

样例输入

5
dave
laura
owen
vick
amr
dave
200 3
laura
owen
vick
owen
500 1
dave
amr
150 2
vick
owen
laura
0 2
amr
vick
vick
0 0

样例输出

dave 302
laura 66
owen -359
vick 141
amr -150

var
        n,i,j,k:longint;
        ls1,ls2:longint;
        r1,r2:array[1..10] of string;
        q:array[1..10] of longint;
        ls:string;
begin
        readln(n);
        for i:=1 to n do
                readln(r1[i]);
        for i:=1 to n do
        begin
                readln(r2[i]);
                readln(ls1,ls2);
                for j:=1 to n do
                        if r2[i]=r1[j] then
                        begin
                                if ls2>0 then q[j]:=q[j]-(ls1-ls1 mod ls2);
                        end;
                if ls2>0 then
                begin
                        for j:=1 to ls2 do
                        begin
                                readln(ls);
                                for k:=1 to n do
                                        if r1[k]=ls then
                                        q[k]:=q[k]+ls1 div ls2;
                        end;
                end;
        end;
        for i:=1 to n do
                writeln(r1[i],' ',q[i]);
end.