USACO-Chapter1-Section 1.1-Greedy Gift Givers (gift1)

【问题描述】

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

【输入格式】

第 1 行: 人数NP,2<= NP<=10
第 2 行 到 第NP+1 行:这NP个在组里人的名字　一个名字一行
第NP＋2到最后：
这里的I段内容是这样组织的：
第一行是将会送出礼物人的名字。
第二行包含二个数字:　第一个是原有的钱的数目（在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

【思路】

      这是一道简单的模拟题，主意问题求解的是送出的和收到的差值，所以本钱是不计入的，并且要求送出尽可能多，也就意味是最大整除。这道题我采用两个数组分别记录收入和送出的钱，一个数组记录名字，然后读入时线性扫描（数据范围太小），进行处理。

【代码】

• Executing...
• Test 1: TEST OK [0.000 secs, 280 KB]
• Test 2: TEST OK [0.000 secs, 280 KB]
• Test 3: TEST OK [0.000 secs, 280 KB]
• Test 4: TEST OK [0.000 secs, 280 KB]
• Test 5: TEST OK [0.000 secs, 280 KB]
• Test 6: TEST OK [0.000 secs, 280 KB]
• Test 7: TEST OK [0.000 secs, 280 KB]
• Test 8: TEST OK [0.000 secs, 280 KB]
• Test 9: TEST OK [0.000 secs, 280 KB]
• All tests OK.

{
 ID  : c_CaM.19
 LANG: PASCAL
 TASK: gift1
}
Program CaM(input,output);
Var
  n,i,j,jj,k,c,m,mo:longint;
  nam:array[0..20] of string;
  mon1,mon2:array[0..20] of longint;
  ss,sss:string;

Procedure innt;
Begin
  assign(input,'gift1.in'); reset(input);
  assign(output,'gift1.out'); rewrite(output);
End;

Procedure outt;
Begin
  close(input);
  close(output);
End;

Begin
  innt;

  readln(n);
  for i:=1 to n do
    readln(nam[i]);

  for i:=1 to n do
  Begin
    readln(sss);
    readln(mo,m);
    for j:=1 to n do
      if nam[j]=sss then
      Begin
        if m<>0 then c:=mo div m;
        mon2[j]:=mon2[j]+c*m;
        for jj:=1 to m do
        Begin
          readln(ss);
          for k:=1 to n do
            if nam[k]=ss then
            Begin
              mon1[k]:=mon1[k]+c;
              break;
            End;
        End;
        break;
      End;
  End;

  for i:=1 to n do
    writeln(nam[i],' ',mon1[i]-mon2[i]);

  outt;
End.