program mm;

var

f:array[0..500,0..500] of longint;

a:array[0..1000] of record

x,y,z:longint;

end;

i,j,k,l,m,n,x,y,z,x1,y1,s,t:longint;

begin

assign(input,'peanuts.in'); reset(input);

assign(output,'peanuts.out'); rewrite(output);

fillchar(a,sizeof(a),0);

fillchar(f,sizeof(f),0);

readln(n,m,t);

k:=0;

for i:=1 to n do

for j:=1 to m do begin

read(f);

if f0 then begin

inc(k);

a[k].z:=f;

a[k].x:=i;

a[k].y:=j;

end;

end;

for i:=1 to k-1 do

for j:=1 to k-i do

if a[j].z0) and (i

program kabulieke;

var ss,n:array[1..100] of string;

a,b:array[1..100] of int64;

m,z:array[1..100] of int64;

s,temp:string;

i,j,x,y,p,q,r,code,count:integer;

chengfang:int64;

begin

readln(s);

for i:=1 to length(s) do

begin

ss[i]:=copy(s,i,1);

val(ss[i],a[i],code);

end;

for p:=1 to length(s) do

for q:=1 to length(s)-1 do

begin

if a[p]

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

program p1120;

var a:array[1..20,1..20] of integer;

m,n,k,i,j,max,maxi,maxj,maxdi,maxdj,sum,t:longint;

begin

readln(m,n,k);

max:=0;

for i:=1 to m do

for j:=1 to n do begin

read(a);

if a>max then begin

max:=a;

maxi:=i;

maxj:=j;

end;

end;

k:=k-2;

t:=maxi;

sum:=0;

while (t+maxi-10) do begin

sum:=sum+max;

a[maxi,maxj]:=0;

max:=0;

for i:=1 to n do

for j:=1 to m do

if a>max then begin

maxdi:=i;

maxdj:=j;

max:=a;

end;

t:=t+1+abs(maxi-maxdi)+abs(maxj-maxdj);

maxi:=maxdi;

maxj:=maxdj;

end;

writeln(sum);

end.

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

program xiti;

var a:array[0..401,1..3]of integer;

m,n,k,i,j,s,u,t,ii,jj:integer;

ans:longint;

begin

readln(m,n,k);

s:=0;

t:=k;

for i:=1 to m do

begin

for j:=1 to n do

begin

read(u);

if u>0 then

begin

inc(s);

a:=u;

a:=i;

a:=j;

end;

end;

readln;

end;

ans:=0;

for i:=1 to s-1 do

for j:=i+1 to s do

if at then

break

else

begin

ans:=ans+a;

t:=t-(abs(a-ii)+abs(a-jj)+1);

ii:=a;

jj:=a;

end;

writeln(ans);

end.

水题交了5次 。。。。。。。。。。。。。。。。。。。。。。。

打错了一个数字。。。。。。。。

没rp

。。。题目都叫大伙贪心～就贪心给他看～

其实，，，考的应该是模拟吧，，，，

。。。考的是RP～

因为题目的不严谨,让我WA了3次,泪奔啊!

Program P1120(input,output);

var a,b:array[0..1000] of longint;

k,tot,sum,x,y,x1,y1,i,j,n,m,l:longint;

procedure qsort(s,t:longint);

var i,j,mid,temp:longint;

begin

i:=s; j:=t; mid:=a[(i+j) div 2];

repeat

while a[i]>mid do inc(i);

while a[j]

是返回到路上啊~~

第一次只有一株花生的情况没注意到，第二次AC。。。

我一次AC

此题用排序吗？

虽说是贪心，但是要用模拟来做。。。。。。。

虽说是水题。。

但是但是。。。。

咋交了3次才。。。。

第一次排序没写好。。。。50分

第二次少走了一步。。。。。80分

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

此题无聊。。。乃NOIp之败笔。。。

原来返回路边是返回到第一行啊。。。。。我以为是回到路上。。。

模拟题,一次秒杀

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

var n,k,m,a,b,c,x,y,left,p,rs:integer;

map:array[1..20,1..20] of integer;

list:array[1..400,0..2] of integer;

procedure huan(var a,b:integer);

var c:integer;

begin

c:=a;

a:=b;

b:=c;

end;

procedure qsort(l,r:integer);

var il,ir,m:integer;

begin

il:=l;

ir:=r;

m:=list[(il+ir)div 2,0];

while ilm do inc(il);

while list[ir,0]

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

这道题目三年前看过...

本来没打算过这道题目的 毕竟这只是普及组的

但是为了刷水题 还是不得不秒死它

我忽然记起了 3年前 那时候我还是一个初中生 普及组的

复赛复习的时候 老师在讲这道题目

然后我在那里不断点头 脑袋里却不知道老师在讲什么.....

然后...觉得.....天啊 这是啥子题目啊 这么难啊 竞赛没希望啊

现在回过头来看这道题目啊 too easy to say anything!!O(∩_∩)O哈哈~

---|---|---|---|---|---|---|---|---|---|--晒程序啊---|---|---|---|---|---|---|---|--

program p1120;

var n,m,i,j,max,maxi,maxj:longint;

x0,y0,ans,time,t:longint;

a:array[0..20,0..20] of longint;

procedure find;

var t1,t2:longint;

begin

max:=0;

for t1:=1 to n do

for t2:=1 to m do

if max=maxi then

begin

time:=time-t;

ans:=ans+max;

a[maxi,maxj]:=0;

x0:=maxi; y0:=maxj;

find;

end else break;

until time=0;

writeln(ans);

end.

纪念一下第100题

Debug后，连样例都没过，却过了8个点。。。

注意是剩余时间>=0,不是>0

采了一棵植株下的花生后，

时间要加1。

type

stype=record

x:integer;

y:integer;

end;

var

i,j,m,n,k,temp,flag,sum:integer;

a,x1,y1:array[1..1000]of integer;

max:array[0..1000] of stype;

procedure qsort(l,r:integer);

var i,j,temp,mid:integer;

begin

i:=l;j:=r;

mid:=a[(r+l)div 2];

repeat

while a[i]>mid do i:=i+1;

while a[j]

秒杀啊~~~

program qq;

var

i,j,m,n,k,p,q,max,s,x1,y1:longint;

a:array[0..200,0..200] of integer;

x,y:array[0..400] of integer;

begin

readln(m,n,k);

for i:=1 to m do

for j:=1 to n do

read(a);

max:=0;

j:=1;

for i:=1 to m do

for s:=1 to n do

if (max

我郁闷 =.= 还以为碰到花生直接采摘 WA了6次降低2个百分点 呜呜