usaco1.1.2

楼下大牛注意素质

知道是USACO的原题就行了

非这么直白整啥！

{

ID:ferrari3

PROG:gift1

LANG:PASCAL

}

program gift1;

var

ng,ngi:string;

s:array[1..10]of string;

f:array[1..10]of longint;

i,j,k,np,x,y:longint;

begin

readln(np);

for i:=1 to np do

readln(s[i]);

for i:=1 to np do

begin

readln(ng);

readln(x,y);

for j:=1 to y do

begin

readln(ngi);

if x>0 then

for k:=1 to np do

if s[k]=ngi then inc(f[k],x div y);

end;

if (y>0)and(x>0) then begin

for k:=1 to np do

if s[k]=ng then break;

f[k]:=f[k]-x+x mod y;

end;

end;

for i:=1 to np do

writeln(s[i],' ',f[i]);

end.

试一下海峡俩岸的帐号

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

一次就AC，爽！

看下我的变量定义：

type

node=record

name:string;

left,money,spng,eachget,selfget:integer;

acnm:array[1..10] of string;

end;

var

p:array[1..10] of node;

n,i:integer;

const maxn=10;

var n,i,j,tot,num,k:integer;

name,m:array[1..maxn]of string;

money:array[1..maxn]of integer;

s:string;

procedure try(x:string);

begin

for j:=1 to n do

if x=name[j] then exit;

end;

begin

assign(input,\'gift1.in\');reset(input);

assign(output,\'gift1.out\');rewrite(output);

fillchar(money,sizeof(money),0);

readln(n);

for i:=1 to n do

readln(name[i]);

for i:=1 to n do

begin

readln(s);

try(s);

readln(tot,num);

if num0 then

money[j]:=money[j]-(tot div num)*num;

for k:=1 to num do

begin

readln(m[k]);

try(m[k]);

money[j]:=money[j]+(tot div num);

end;

end;

for i:=1 to n do

writeln(name[i],\' \',money[i]);

close(output);

end.

#include

#include

using namespace std;

int main()

{int np,i,j,money,num,k,mon,pm[10]={0};

string name,pn[10];

cin>>np;

for(i=0;i>pn[i];

for(i=0;i>name>>money>>num;

for(j=0;j0) mon=money/num;

else mon=0;

pm[j]-=mon*num;

for(j=0;j>name;

for(k=0;k

直接COPY原来USACO的代码...

窘，竟然交错题了..

USACO

-- -|-- -|- 读入写了10分钟.

还好是一次AC…… RP啊RP……

这题太阴啦，，，

‘0 0’并不代表结束害我交了两边；

并且有一个点超时--90分；可过了一会再交，居然过了。这评策机太不稳定了！

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

细心就行。送剩的钱不算，0不可做除数。

USACO1.1.2

无意用发现了这个题目,把我在USACO里面写的代码考了过来

very easy;我是第三千个做出来的，好高兴啊！！

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

昨天想了一晚上竟然没AC(这么水的题让我很无语)，今天突然发现了一个致命的错误（我是一步一步滴调试才发现错误的，其实错的很弱智，比这个题更弱智！）所以大家要注意了 ，简单的题也要小心，要是让这么个题毁了AC率，就很无语了，对吧？呵呵呵！

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

过了，哈哈》》》》》》》》》》。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

引用大牛的一句话

@_@ 水水流了啊 @_@

我晕勒，这个题目居然要我提交了三次，， 要记着0 0不代表输入结束了。。。这个问题很严重。。

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案错误...　├ 标准行输出

　├ 错误行输出

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：90 有效耗时：0ms

汗...第10个数据怎么了？？？