[USACO 1.1.2] Greedy Gift Givers

原創

zane295384295

2020-02-21 10:05

[題目描述]

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.