码迷,mamicode.com
首页 > 其他好文 > 详细

Greedy Gift Givers

时间:2016-10-09 09:03:05      阅读:111      评论:0      收藏:0      [点我收藏+]

标签:

题解:

模拟。

照着他的过程(看看提示)模拟下去就行了。

{

ID:h1956701

LANG:PASCAL

PROB:gift1

}

var n,i,k,j,m:longint;

    s:ansistring;

    a:array[0..11]of ansistring;

    b,c:array[0..11]of longint;

function find(s:ansistring):longint;

var i:longint;

 begin

  for i:=1 to n do

   if a[i]=s then exit(i);

 end;

begin

 assign(input,‘gift1.in‘);

 reset(input);

 assign(output,‘gift1.out‘);

 rewrite(output);

 readln(n);

 for i:=1 to n do readln(a[i]);

 for i:=1 to n do

  begin

   readln(s);

   k:=find(s);

   readln(b[k],m);

   for j:=1 to m do

    begin

     readln(s);

     inc(c[find(s)],b[k] div m);

    end;

   if m>0 then

   b[k]:=b[k]-b[k] mod m;

  end;

 for i:=1 to n do writeln(a[i],‘ ‘,c[i]-b[i]);

 close(input);

 close(output);

end.

Greedy Gift Givers

标签:

原文地址:http://www.cnblogs.com/huzhaoyang/p/5940791.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!