[题目描述]
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段内容是这样组织的: |
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.