gift1
对于一群要互送礼物的朋友,你要确定每个人收到的礼物比送出的多多少(and vice versa for those who view gift giving with cynicism)。
在这一个问题中,每个人都准备了一些钱来送礼物,而这些钱将会被平均分给那些将收到他的礼物的人。 然而,在任何一群朋友中,有些人将送出较多的礼物(可能是因为有较多的朋友),有些人有准备了较多的钱。
给出一群朋友, 没有人的名字会长于 14 字符,给出每个人将花在送礼上的钱,和将收到他的礼物的人的列表,请确定每个人收到的比送出的钱多的数目。
格式
PROGRAM NAME: gift1
INPUT FORMAT:
(file gift1.in)
第 1 行: 人数NP,2<= NP<=10
第 2到 NP+1 行:这NP个在组里人的名字 一个名字一行
第NP+2到最后:
这里的NP段内容是这样组织的:
第一行是将会送出礼物人的名字。
第二行包含二个数字: 第一个是原有的钱的数目(在0到2000的范围里),第二个 NGi 是将收到这个送礼者礼物的人的个数 如果 NGi 是非零的, 在下面 NGi 行列出礼物的接受者的名字,一个名字一行。
OUTPUT FORMAT:
(file gift1.out)
输出 NP 行
每行是一个的名字加上空格再加上收到的比送出的钱多的数目。
对于每一个人,他名字的打印顺序应和他在输入的2到NP+1行中输入的顺序相同。所有的送礼的钱都是整数。
每个人把相同数目的钱给每位要送礼的朋友,而且尽可能多给,不能给出的钱被送礼者自己保留。
IMPORTANT NOTE:
测试系统是 Linux 符合标准的 Unix 的协定。 用'\n'作为行的结束。这和 Windows 系统用'\n' 和 '\r'作为行的结束是不同的。 你的程序不要被这困住了。
SAMPLE INPUT
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
![](https://images.cnblogs.com/OutliningIndicators/ContractedBlock.gif)
1 program gift1; 2 var 3 name1:string; 4 i,j,n,man:integer; 5 a:array[1..10]of string; 6 give,get:array[1..11]of longint; 7 money,givenum:longint; 8 c:char; 9 10 function getnum(s:string):integer; 11 var 12 i:integer; 13 begin 14 for i:=1 to n do 15 if a[i]=s then exit(i); 16 end; 17 18 begin 19 assign(input,'gift1.in'); reset(input); 20 assign(output,'gift1.out'); rewrite(output); 21 22 readln(n); 23 fillchar(get,sizeof(get),0); 24 for i:=1 to n do readln(a[i]); 25 readln(name1); 26 while name1<>'' do 27 begin 28 man:=getnum(name1); 29 readln(money,givenum); 30 31 if givenum <> 0 then give[man]:=money-(money mod givenum) else 32 give[man]:=0; 33 for i:=1 to givenum do 34 begin 35 readln(name1); man:=getnum(name1); 36 if givenum<>0 then get[man]:=get[man]+(money div givenum); 37 end; 38 readln(name1); 39 end; 40 41 for i:=1 to n do writeln(a[i],' ',get[i]-give[i]); 42 close(input); 43 close(output); 44 end.
SAMPLE OUTPUT
dave 302 laura 66 owen -359 vick 141 amr -150