题解 - Vijos

0

ChinaLover LV 7 @ 2013-08-28 15:29:39

我就说，第三跳有问题，NND

0

Zggh LV 10 @ 2013-08-25 14:57:19

AC感想：建议出题者好好研读小学语文课本

吃掉的果子依次为3，8，4(回到下面重做第3跳)，9(回到下面重做第4跳)
（第三跳为5）不要被坑了

0

knea LV 7 @ 2013-02-27 21:11:11

呵呵，数组范围开小了，自我检讨一下--

0

knea LV 7 @ 2013-02-27 21:06:27

var
i,j,k,l,m,n,h:longint;
a:array[1..100]of integer;
begin
readln(n,m);
for i:=1 to n do
begin
a[i]:=i;
end;
h:=1;
for i:=1 to m do
begin
h:=h+i*i*i mod 5+1;
if h>n then
begin
h:=1;
h:=h+i*i*i mod 5+1;
end;
l:=a[h];
for j:=h to n-1 do
a[j]:=a[j+1];
n:=n-1;
end;
writeln(l);
end.
为何会超时两个点--

0

SEX丶Elope LV 6 @ 2013-02-16 10:20:13

点击查看程序源码+详细题解

0

s86644003 LV 6 @ 2012-11-28 16:56:39

haha

0

architect19 LV 4 @ 2012-11-14 09:51:29

1 2 3 4 5 6 7 8 9 10 （继续）

1 2 4 5 6 7 8 9 10 （从头）

1 2 4 6 7 8 9 10 (从头）

1 2 4 6 7 9 10

0

maddoctor LV 8 @ 2012-10-23 13:19:44

用STL水过的复杂度为O(m *logn)

不知道下面有同学写的O（m）的算法怎么正确的

#include

#include

#include

#include

#include

#include

#include

#include

#include

#define MAXN 777

#define MAXM 400005

#define INF 1000000007

using namespace std;

vectorg;

int n, m;

int main()

{

scanf("%d%d", &n, &m);

for(int i = 1; i

0

c16jjh LV 9 @ 2012-07-20 16:23:58

注意初值是1,因为松鼠是从第一个果子开始跳

每跳一次后更新的位置为原来的位置+i*i*i mod 5+1

0

may25forever LV 7 @ 2010-07-16 19:31:41

编译通过...

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

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

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

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

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

├ 测试数据 06：运行超时...

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

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

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

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

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

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

var st:string;

i,f,n,m:longint;

begin

readln(n,m);

for i:=1 to n do st:=st+chr(i);

i:=1; f:=1;

repeat

inc(f,(i*i*i) mod 5+1);

if f>length(st) then begin f:=1; inc(f,(i*i*i) mod 5+1);end;

delete(st,f,1);

inc(i);

until i=m;

inc(f,(i*i*i) mod 5+1);

if f>length(st) then begin f:=1; inc(f,(i*i*i) mod 5+1);end;

writeln(ord(st[f]));

end.

TOT...

0

aoshu1516 LV 7 @ 2010-04-02 16:41:58

VAR

A:ARRAY[1..200]OF INTEGER;

I,J,L,N,M:INTEGER;

BEGIN

READLN(N); READLN(M);

FOR I:=1 TO N DO A:=1; I:=1; L:=1;

REPEAT

J:=((I*I*I) MOD 5) + 1;

REPEAT

IF A[L]0 THEN BEGIN DEC(J); INC(L); END

ELSE IF A[L]=0 THEN INC(L);

UNTIL ((JN);

IF ((JN THEN L:=1;

UNTIL I>M;

WRITELN(L-1);

END.

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

0

芒果木瓜榴莲 LV 9 @ 2009-11-10 16:15:55

为什么

感觉

我的

大脑

成

浆糊了

心情刚刚还

好一点

天意……

编译通过...

├ 测试数据 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,m,i,j,x,k,last:longint;

b:boolean;

a:array[1..200]of boolean;

begin

read(n,m);fillchar(a,sizeof(a),false);last:=1;

for i:=1 to m do

begin

x:=i mod 5; for j:=1 to 2 do x:=x*i mod 5;

inc(x);k:=last; b:=true;

for j:=1 to x do

begin

while a[k]do begin inc(k);if k>n then begin b:=false;break end end;

inc(k); if k>n then begin b:=false;break;end;

end;

if not b then

begin

k:=1;while a[k] do inc(k);

for j:=1 to x do

begin

while a[k]do inc(k);

inc(k);

end;

while a[k]do inc(k);

end;

a[k]:=true;last:=k;

end;

writeln(last);

end.

好长啊……

0

sunshihao98 LV 4 @ 2009-11-08 12:00:06

编译通过...

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

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

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

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

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

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

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

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

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

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

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

Accepted 有效得分：100 有效耗时：0ms program m1;

var

s:string;

x,m,k,n,t,i:integer;

begin

read(n,m);

s:='';

for i:=1 to n do

s:=s+chr(i);

t:=1;

x:=1;

repeat

x:=x+t*t*t mod 5 +1;

if x>length(s) then x:=1

else begin

if t=m then

write(ord(s[x]));

delete(s,x,1);

t:=t+1;

end;

until t=m+1;

end.

0

冬天不冷 LV 8 @ 2009-11-07 14:23:08

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

program ex;

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

a:array[1..200] of longint;

begin

readln(n,m);

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

i:=0;xian:=1;

repeat

i:=i+1;k:=0;j:=0;

begin

tiao:=(i*i*i)mod 5+1;

if xian+tiao

0

jiayu888 LV 8 @ 2009-11-07 11:47:53

一定要注意细节，这种题尽量一次ac……

var

a:array[1..200]of integer;

i,h,j,k,n,num:integer;

begin

readln(n);

readln(k);

h:=1;

for i:=1 to n do

a[i]:=i;

for i:=1 to k do

begin

j:=(i*i*i)mod 5 +1;

if h+j>n then h:=1+j

else h:=h+j;

num:=a[h];

move(a[h+1],a[h],2*(n-h));

dec(n);

end;

writeln(num);

end.

0

xuji LV 8 @ 2009-11-06 18:57:18

题题题题题题题题题题题题题题题题题题题题题题题题题题题题题题题题题题题题题

题题题题题题题题题题题题题题题题题题题题题题题题题题题题水水水水题题题题题

题题题题题题题题题题题题题题题题题题题题题题题题水水水水水水水水水题题题题

题题题题题题题题题题题题题题题题题题水水水水水水水水水水水水水水水题题题题

题题题题题题题题题题题题题题题题水水水水水水水水水水水水水水水题题题题题题

题题题题题题题题题题题水水水水题水水水水水水水水水水水题题题题题题题题题题

题题题题题题题题水水水水水水水题水水水题题水水水水水题题题题题题题题题题题

题题题水水水水水水水水水水水水题题题题题题水水水水题题题题题题题题题题题题

题水水水水水水水水水水水水水水题题题题题题水水水水题题题题题题题题题题题题

题水水水水水水水水水水水水题题题题题题题水水水水水水水水水水水题题题题题题

题水水水水水水水水水水水水题题题题题题水水水水水水水水水水水水水水题题题题

题题水水水水水水水水水水题题题题题水水水水水水题题题水水水水水水水题题题题

题题题题题题题题水水水水题题题题题水水水水题题题题题题水水水水水题题题题题

题题题题题题题题水水水水题题题题水水水水题题水水题题题水水水水水题题题题题

题题题题题题题题水水水水题题题题水水水水题题水水水水题水水水水水题题题题题

题题题题题题题题水水水水题题题题水水水水题题水水水水题水水水水水题题题题题

题题题题题题题题水水水水题题题题水水水水题题水水水题题水水水水水题题题题题

题题题题题题题题水水水水题题题题水水水水题题水水水题题水水水水水题题题题题

题题题题题题题题水水水水题题题题水水水水题水水水水题题水水水水水题题题题题

题题题题题题题题水水水水题题题题水水水水题水水水水题题水水水水水题题题题题

题题题题题题题题水水水水题题题题水水水水题水水水水题题水水水水水题题题题题

题题题题题题题题水水水水题题题题水水水水题水水水水题题水水水水水题题题题题

题题题题题题题题水水水水题题题题水水水题题水水水水题题水水水水水题题题题题

题题水水题题题水水水水水题题题题水水水题题水水水题题题水水水水水题题题题题

题题水水水水水水水水水水题题题题题水水题题水水题题题题水水水水水题题题题题

题题题水水水水水水水水水题题题题题题题题水水水题题题题水水水水题题题题题题

题题题题题水水水水水水水题题题题题题题题水水水题水水水水题题题题题题题题题

题题题题题题水水水水水水题题题题题题题水水水水题题水水水水题题题题题题题题

题题题题题题题题题水水水题题题题题题水水水水水题题题水水水水水水水题题题题

题题题题题题题题题题题题题题题题水水水水水水题题题题题水水水水水水题题题题

题题题题题题题题题题题题题题题水水水水水水题题题题题题水水水水水水水题题题

题题题题题题题题题题题题题题水水水水水题题题题题题题题题水水水水水水题题题

题题题题题题题题题题题题题水水水水水题题题题题题题题题题题水水水水题题题题

题题题题题题题题题题题题水水水题题题题题题题题题题题题题题题水水水题题题题

题题题题题题题题题题题题题题题题题题题题题题题题题题题题题题题题题题题题题

0

沉默々泽 LV 8 @ 2009-10-31 20:18:11

var

m,n,i,k,t:integer; q:boolean;

a:array[0..200]of boolean;

begin

readln(n); readln(m);

for i:=0 to n do a[i]:=true;

i:=1; t:=0;

while i

0

永恒888 LV 7 @ 2009-10-31 15:02:51

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

0

鸣船劲航 LV 8 @ 2009-10-28 16:49:13

编译通过...

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

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

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

├ 测试数据 04：运行超时...

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

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

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

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

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

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

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

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

编译通过...

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

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

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

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

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

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

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

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

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

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

晕死，同是一个测评机 Vag 6K 给我不同分！

0

任逍遥LGL LV 7 @ 2009-10-28 08:24:26

模拟通过....数组储存

题解

197 条题解

松鼠吃果子

信息

状态

开发

支持

题解

197 条题解

松鼠吃果子

信息

状态

开发

支持

还没有账户？

登录