Usaco 1.1.2 贪婪的送礼者（Greedy Gift Givers）

最新推荐文章于 2025-01-26 20:38:03 发布

原创最新推荐文章于 2025-01-26 20:38:03 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#output #pascal #input #string #div

Usaco 同时被 3 个专栏收录

22 篇文章

订阅专栏

模拟

9 篇文章

订阅专栏

贪心

9 篇文章

订阅专栏

本文详细解析了Usaco竞赛中1.1.2题——贪婪的送礼者（Greedy Gift Givers）的解题思路与方法。通过使用贪心策略，解决如何将礼物按大小顺序分配给收礼者的问题，确保每个收礼者至少得到一件礼物。文章深入浅出，适合编程初学者和竞赛选手学习。

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

题目：	贪婪的送礼者
来源：	Usaco1.1.2
题目大意：	有N个人，每个人会把自己手里的钱平均送给自己想送的人，也会收到一些人送的钱，按最后送出和获得的差值由大到小输出人名和值
数据范围：	每个字符串不超过6个字符
样例：	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
做题思路：	别想别的，模拟就好，每个人以0 0结尾的，把送出的钱和收到的分开记，这算贪心吧，姑且这么算着了
知识点：	模拟、贪心

{
ID:Dount Nameless
TASK:gift1
LANG:PASCAL
}
type
 node=record
 s:string;
 data:longint;
 money:longint;
 end;
var
 a:array[0..11]of node;
 n,i,j,m,num,k,t:longint;
 s:string;
 
begin
 assign(input,'gift1.in');reset(input);
 assign(output,'gift1.out');rewrite(output);
 readln(n);
 fori:=1 to n do
 readln(a[i].s);
 fori:=1 to n do
 begin
  readln(s);
  for j:=1 to n do
   if s=a[j].s then t:=j;{<查找这个人>}
  readln(num,m);
   ifm<>0 then{<有钱才能送呢>}
  a[t].money:=(num div m)*m{<这里记录的是送出的，不是自己当时拥有的>}
  else a[t].money:=0;
  for j:=1 to m do
   begin
    readln(s);
    for k:=1 to n do
     if a[k].s=s then inc(a[k].data,num div m);{<收到的钱>}
   end;
 end;
 fori:=1 to n do
 begin
  writeln(a[i].s,' ',a[i].data-a[i].money);{<差值>}
 end;
 close(input);close(output);
end.

题目来源： http://ace.delos.com/usacoprob2?a=RexmW8CclSt&S=gift1