[USACO 1.1.2] Greedy Gift Givers

最新推荐文章于 2025-01-26 20:38:03 发布

原创最新推荐文章于 2025-01-26 20:38:03 发布 · 462 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#output #input #pascal #file #windows #unix

USACO 专栏收录该内容

38 篇文章

订阅专栏

本文介绍了一个关于朋友间互相赠送礼物的模拟问题——GreedyGiftGivers。问题中，每个人会根据自己的预算平均分配给指定的朋友，文章详细解释了输入输出格式，并提供了示例。

[题目描述]

Greedy Gift Givers

贪婪的礼物送礼者

对于一群要互送礼物的朋友，你要确定每个人送出的礼物比收到的多多少(and vice versa for those who view gift giving with cynicism)。在这一个问题中，每个人都准备了一些钱来送礼物，而这些钱将会被平均分给那些将收到他的礼物的人。然而，在任何一群朋友中，有些人将送出较多的礼物(可能是因为有较多的朋友)，有些人有准备了较多的钱。给出一群朋友，没有人的名字会长于 14 字符，给出每个人将花在送礼上的钱，和将收到他的礼物的人的列表，请确定每个人收到的比送出的钱多的数目。

IMPORTANT NOTE

测试系统是 Linux 符合标准的 Unix 的协定。
用'\n'作为行的结束。
这和　Windows 系统用'\n' 和 '\r'作为行的结束是不同的。
你的程序不要被这困住了。

PROGRAM NAME: gift1

INPUT FORMAT

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

SAMPLE INPUT (file gift1.in)

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

OUTPUT FORMAT

输出 NP 行
每行是一个的名字加上空格再加上收到的比送出的钱多的数目。
对于每一个人，他名字的打印顺序应和他在输入的2到NP＋1行中输入的顺序相同。所有的送礼的钱都是整数。
每个人把相同数目的钱给每位要送礼的朋友，而且尽可能多给，不能给出的钱被送礼者自己保留。

SAMPLE OUTPUT (file gift1.out)

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

[解题思路]

简单的模拟，依据题目描述，计算出每个人的支出与收入，统计答案即可。

[Code]

{
ID: zane2951
PROG: gift1
LANG: PASCAL
}

program gift1;
var
   s:array[0..11] of string;
   moin,mout:array[0..11] of longint;
   i,p,ce,n:longint;
   ss:string;

//----------main-----------
begin
   assign(input,'gift1.in'); reset(input);
   assign(output,'gift1.out'); rewrite(output);
   readln(n);
   for i:=1 to n do readln(s[i]);
   while not seekeof do
      begin
         readln(ss);
         for i:=1 to n do if s[i]=ss then break;
         readln(mout[i],p);
         if p=0 then continue;
         mout[i]:=mout[i]-(mout[i] mod p);
         ce:=mout[i] div p;
         for p:=1 to p do
            begin
               readln(ss);
               for i:=1 to n do
                  if s[i]=ss then
                     begin
                        moin[i]:=moin[i]+ce;
                        break;
                     end;
            end;
      end;
   for i:=1 to n do writeln(s[i],'':1,moin[i]-mout[i]);
   close(input); close(output);
end.