【USACO】贪婪的送礼者

最新推荐文章于 2020-06-29 11:02:05 发布

转载最新推荐文章于 2020-06-29 11:02:05 发布 · 104 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/qilinart/articles/3020684.html

该算法解决了一群朋友间公平分配送礼资金的问题。每个参与者按平均数分配资金给指定的接收者，同时计算出每个人最终获得的净收益。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

题目描述

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

输入

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

提示

来源

USACO

[ 提交][ 状态][ 讨论版]

type
    PP= record
        name:string;
        money:longint;
     end;
var
    a: array[ 1.. 10] of PP;
    i,j,k,n,m,r:integer;
    s:string;

begin
    readln(n);
     for i:= 1 to n do readln(a[i].name);
     for i:= 1 to n do
     begin
        readln(s,m,r);
         if(r= 0) then continue;
         for j:= 1 to n do
             if(s=a[j].name) then a[j].money:=a[j].money-m div r *r;
         for j:= 1 to r do
         begin
            readln(s);
             for k:= 1 to n do
                 if(s=a[k].name) then inc(a[k].money,m div r);
         end;
     end;
     for i:= 1 to n do writeln(a[i].name, ' ',a[i].money);
end.

转载于:https://www.cnblogs.com/qilinart/articles/3020684.html