Greedy Gift Givers 程序 - 今天开始刷USACO

有点晚了，但是，USACO很能考验基础数据结构和算法的熟练度。

题目描述

对于一群要互送礼物的朋友，你要确定每个人收到的礼物比送出的多多少(and vice versa for those who view gift giving with cynicism)(,反之亦然对于那些用贪婪的眼光来看礼物的人(by John))。

在这一个问题中，每个人都准备了一些钱来送礼物，而这些钱将会被平均分给那些将收到他的礼物的人。 然而，在任何一群朋友中，有些人将送出较多的礼物(可能是因为有较多的朋友)，有些人有准备了较多的钱。

给出一群朋友， 没有人的名字会长于 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

SAMPLE OUTPUT

dave 302 laura 66 owen -359 vick 141 amr -150

我的程序

{
ID:ceeji 
PROB:gift1 
LANG:PASCAL 
} 
Program gift1; 
var  
   name:array[1..20]of string; 
   q,n:array[1..20]of longint; 
   incom,outcom:array[1..20]of longint; 
   np,i,j,h,h2:longint; 
   s,s2:string; 

Function getBH(s:string):longint; 
var i:longint; 
begin 
   for i:=1 to np do 
   begin 
      if s=name[i] then exit(i); 
   end; 
   exit(0); 
end;

begin 
   assign(input,'gift1.in');   reset(input); 
   assign(output,'gift1.out'); rewrite(output); 
   readln(np); 
   fillchar(incom,sizeof(incom),0); 
   fillchar(outcom,sizeof(outcom),0); 
   for i:=1 to np do 
   begin 
     readln(name[i]); 
   end; 
   while eof(input)=false do 
   begin 
     readln(s); 
     h:=getBH(s); 
     readln(q[h],n[h]); 
     for i:=1 to n[h] do 
     begin 
        readln(s2); 
        h2:=getBH(s2); 
        inc(incom[h2],q[h] div n[h]); 
        inc(outcom[h],q[h] div n[h]); 
     end;      
   end; 
   close(input); 
   for i:=1 to np do 
   begin 
      writeln(name[i],' ',incom[i]-outcom[i]); 
   end; 
   close(output); 
end.

题外话：我帮你整理了包括 AI 写作、绘画、视频（自媒体制作）零门槛 AI 课程 + 国内可直接顺畅使用的软件。想让自己快速用上 AI 工具来降本增效，辅助工作和生活？限时报名。