洛谷1201 贪婪的送礼者
本题地址： http://www.luogu.org/problem/show?pid=1201
题目描述
对于一群（NP个）要互送礼物的朋友，GY要确定每个人送出的钱比收到的多多少。在这一个问题中，每个人都准备了一些钱来送礼物，而这些钱将会被平均分给那些将收到他的礼物的人。然而，在任何一群朋友中，有些人将送出较多的礼物(可能是因为有较多的朋友)，有些人有准备了较多的钱。给出一群朋友，没有人的名字会长于 14 字符，给出每个人将花在送礼上的钱，和将收到他的礼物的人的列表，请确定每个人收到的比送出的钱多的数目。
输入输出格式
输入格式：
第 1 行: 人数NP,2<= NP<=10
第 2 行 到 第NP+1 行:这NP个在组里人的名字 一个名字一行
第NP＋2到最后：
这里的I段内容是这样组织的：
第一行是将会送出礼物人的名字。
第二行包含二个数字: 第一个是原有的钱的数目（在0到2000的范围里），第二个 NGi 是将收到这个人礼物的人的个数 如果 NGi 是非零的, 在下面 NGi 行列出礼物的接受者的名字，一个名字一行。
输出格式：
输出 NP 行
每行是一个的名字加上空格再加上收到的比送出的钱多的数目。
对于每一个人，他名字的打印顺序应和他在输入的2到NP＋1行中输入的顺序相同。所有的送礼的钱都是整数。
每个人把相同数目的钱给每位要接受礼物的朋友，而且尽可能多给，不能给出的钱由送礼者本人持有。
输入输出样例
输入样例#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
输出样例#1：
dave 302 laura 66 owen -359 vick 141 amr -150
说明
题目翻译来自NOCOW。
USACO Training Section 1.1
题解
模拟+字符串
充满陷阱的一道题。。。
这道题的字符串显然需要用数组来存储。
我们需要将每个人按一定顺序读入（输出的顺序同样如此）。
然后罗列出每个人的送礼情况。特别特别注意（陷阱1）：这里的顺序将不一定是先前读入的顺序（需要比较来确定）。
送出礼物的钱为整除后的数目，余数则是归送礼者持有。特别特别注意（陷阱2）：当除数为0时无意义（需要特判）。
最后按读入顺序输出结果（每个人最初的钱数为0，最终可能为负）。
下面附上代码。
代码
- var
- n,x,y,i,j,k,l:longint;
- z,zz:string;
- a:array[1..10] of string;
- b:array[1..10] of longint;
- begin
- readln(n);
- for i:=1 to n do
- readln(a[i]);
- for l:=1 to n do
- begin
- readln(zz);
- for i:=1 to n do
- if zz=a[i] then break;
- readln(x,y);
- if y<>0 then dec(b[i],x-(x mod y));
- for j:=1 to y do
- begin
- readln(z);
- for k:=1 to n do
- if z=a[k] then inc(b[k],x div y);
- end;
- end;
- for i:=1 to n do
- writeln(a[i],' ',b[i]);
- end.
（本文系笔者原创，未经允许不得转载）