USACO 1.1-Greedy gift givers

最新推荐文章于 2024-09-14 23:01:09 发布

inspoy

最新推荐文章于 2024-09-14 23:01:09 发布

阅读量357

点赞数

分类专栏： USACO 文章标签： output input string pascal 测试 div

本文链接：https://blog.csdn.net/inspoy/article/details/5667459

版权

USACO 专栏收录该内容

12 篇文章 0 订阅

订阅专栏

题目见：http://www.nocow.cn/index.php/Translate:USACO/gift1

sd的我愣是看了半天没看懂题...-_-!

代码如下：

{ ID:asdcyt01 PROB:gift1 LANG:PASCAL } program gift1(input,output); var n:longint; id,i,j,send:longint; s:string; name:array[1..10]of string; money:array[1..10]of longint; ng:longint; receive:array[1..10]of longint; function getid(s:string):longint; var i,id:longint; begin for i:=1 to n do if s=name[i] then begin id:=i;break;end; getid:=id; end; begin assign(input,'gift1.in');reset(input); assign(output,'gift1.out');rewrite(output); readln(n); for i:=1 to n do readln(name[i]); id:=0; fillchar(receive,sizeof(receive),0); while not eof do begin readln(s); id:=getid(s); readln(money[id],ng); if ng<>0 then send:=money[id] div ng else continue; for j:=1 to ng do begin readln(s); inc(receive[getid(s)],send); end; dec(receive[id],money[id]-money[id] mod ng); end; for i:=1 to n do writeln(name[i],' ',receive[i]); close(input); close(output); end .

结果发现了一个诡异的问题：在本地运行会201，交给USACO就AC了～

明白了，粘测试数据的时候多粘了一个空行...