题解

197 条题解

  • 0
    @ 2008-10-29 19:25:06

    #include

    #include

    #define maxn 200

    #define maxm 200

    long n,m,sz,a[maxn+10],ans;

    int main()

    {

    long i,j,h;

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

    for(i=1;i

  • 0
    @ 2008-10-23 18:07:45

    program v1078;

    var b:array[1..200]of boolean;

    i,j,k,t,s,n,m:longint;

    begin

    fillchar(b,sizeof(b),true);

    readln(n);readln(m);

    i:=1;t:=1;

    while i

  • 0
    @ 2008-10-18 19:34:07

    这题简直太太太水。。。。了。。。。

    题目都有问题!

    让我看了好久都不敢交程序。

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    。。浪费时间。

  • 0
    @ 2008-10-11 20:51: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
    @ 2008-10-10 12:41:13

    d 1 A

    d 1 n = 5 d t

    q z

    h

  • 0
    @ 2008-10-06 19:07:39

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    var

    guozi:array[1..201]of longint;

    i,j,k,n,m,step,song:longint;

    begin

    readln(n);

    step:=0;

    song:=1;

    for i:=1 to n do

    guozi[i]:=i;

    read(m);

    repeat

    inc(step);

    song:=song+(step*step*step)mod 5+1;

    if (step=m)and(songn-step

    then begin

    song:=1;

    step:=step-1;

    end;

    until step=m;

    end.

    var

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

    map:array[1..1000]of longint;

    //!#\(#^&%&\*(%^&^)(\*&)(&\*(\*)\_\*)\_\*(^&&)(&)
    procedure inpit;
    begin
    readln(n,m);
    k:=0;
    for i:=1 to n do
    map[i]:=i;
    end;
    //!#\)&*^)*(*&_(*)(^*&\(^%#%^%\*&(&(\*%^&%\*(
    procedure outit;
    begin
    write(map[ans]);
    end;
    //@#()&(\*%^&%\*(&)(\)\(%@^%\*&\*(%%^&(\*)^&\)&*

    procedure eatit;

    var

    step:longint;

    begin

    step:=1;

    repeat

    inc(k);

    step:=step+(k*k*k) mod 5+1;

    if step>n

    then begin

    step:=1;

    dec(k);

    end

    else begin

    if k=m

    then begin

    ans:=step;

    outit;

    halt;

    end;

    for i:=step to n-1 do

    map[i]:=map;

    dec(n);

    end;

    until k=m;

    end;

    //\(\*)\_\*(\*\)&^%$)(+_(_)&%#%%(_*_)&(*%*(*)_

    begin

    inpit;

    eatit;

    end.

  • 0
    @ 2008-10-03 21:40:29

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    囧!样例是错的!应该是3,8,5,9。每次回到第一个果子的位置。

    对于i^3有一个规律若i mod 5=1 则i^3 mod 5=1;

    若i mod 5=2 则i^3 mod 5=3;

    若i mod 5=3 则i^3 mod 5=2;

    若i mod 5=4 则i^3 mod 5=4;

    若i mod 5=0 则i^3 mod 5=0;

    所以上升是个常数。

    然后模拟就可以了……

    var

    n,m,i,j,k,t,top,dep:integer;

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

    begin

    readln(n,m);

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

    dep:=1;

    top:=n;

    for i:=1 to m do

    begin

    t:=i mod 5;

    if t=1 then k:=2;

    if t=2 then k:=4;

    if t=3 then k:=3;

    if t=4 then k:=5;

    if t=0 then k:=1;

    if dep+k>top then dep:=1;

    dep:=dep+k;

    if i=m then begin writeln(a[dep]); halt; end;

    dec(top);

    for j:=dep to top do

    a[j]:=a[j+1];

    end;

    end.

  • 0
    @ 2008-10-03 18:48:59

    那个样例。。

    白白浪费我一次提交啊。。

  • 0
    @ 2008-10-02 15:24:46

    #include

    int main(){

    int i,j,n,m,guo[201],step,height=1,num;

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

    for (i=1;i

  • 0
    @ 2008-10-02 11:36:13

    简单模拟 水题 12行搞定

    #include

    int nowstep=0,nowheight = 1,fruitnum[201],N,m;

    main(){

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

    for(int a=1;a

  • 0
    @ 2009-07-06 20:27:28

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    你模拟一下就AC了

  • 0
    @ 2008-09-29 13:46:11

    easy!!!!!

  • 0
    @ 2008-09-23 22:37:44

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

  • 0
    @ 2008-09-22 17:40:51

    bochuan007

    (if k = 1 then write('2')

    else write(k-1);)

    绝对错误!!!

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    很简单的模拟

  • 0
    @ 2008-09-17 18:07:13

    水啊水

    样例没过也AC

    晕···

  • 0
    @ 2008-09-15 19:53:32

    来电代码

  • 0
    @ 2008-09-14 17:33:40

    不可否认,对于非本题的数据规模,用模拟的确可以解决,但是如果说这题的数据规模改了,不是200,而是200000呢?这个时候应该怎么做呢?

  • 0
    @ 2008-09-12 16:44:27

    -7怎么来的?

  • 0
    @ 2008-09-10 23:40:47

    明显的月色夫人。。。少了IF 和 ‘-1’ 0 分

    少了IF 90 分 一个都不少。。。

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    如果最后循环出来的结果是K,那么要加两句才能过。。。

    if k = 1 then write('2')

    else write(k-1);

    栽在这两句上了。。。我的AC率啊!!!!

    顺便。。。。庆祝下第60次AC。。。。。。:-)

  • 0
    @ 2008-09-05 15:19:43

    BSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBSBS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

信息

ID
1078
难度
4
分类
模拟 点击显示
标签
(无)
递交数
4180
已通过
1871
通过率
45%
被复制
9
上传者