题解

197 条题解

  • 0
    @ 2009-08-20 22:33:46

    靠,我LJ啊,连链表都不会就来耍了,没脸啦

  • 0
    @ 2009-08-19 00:16:42

    2遍才AC 郁闷

  • 0
    @ 2009-08-15 12:56:44

    作完这道题,我想说:

    1.贼你妈,劳资过了(没骂人,一种心情的表达,管理员不要封我,有意见发信息,我一定改)

    2.模拟搞了一晚上都没过,用静态链表一遍过,我无语了,我好LJ,BS我

  • 0
    @ 2009-08-14 10:35:57

    program sscgz;

    var

    i,j,m,n,nowwz,willwz,nown,ans:longint;

    x:array[0..300]of integer;

    begin

    readln(n,m);

    nown:=n; nowwz:=1;

    fillchar(x,sizeof(x),0);

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

    for i:=1 to m do

    begin

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

    if nowwz>nown then

    begin

    nowwz:=1;

    while nowwz>nown do nowwz:=nowwz+(i*i*i mod 5)+1;

    end;

    if i=m then ans:=x[nowwz];

    for j:=nowwz to nown do x[j]:=x[j+1];

    dec(nown);

    end;

    writeln(ans);

    end.

  • 0
    @ 2009-08-11 12:06:29

    YYY

  • 0
    @ 2009-08-06 23:35:46

    晕倒 三次AC

    第一次 是把初值赋成0

    的二次 是把关键循环的i写成j 居然还过了9个点 数据很弱?

  • 0
    @ 2009-08-06 21:40:19

    不要让复杂的题目弄呆滞了

    很郁闷啊,一个简单的题目都弄糊涂了

  • 0
    @ 2009-08-06 20:25:21

    其实这题可以打表的。。。

  • 0
    @ 2009-08-06 16:29:07

    一遍AC...

    只要模拟一下就好啦~~

    program sscgz;

    var

    i,j,m,n,nowwz,willwz,nown,ans:longint;

    x:array[0..300]of integer;

    begin

    readln(n,m);

    nown:=n; nowwz:=1;

    fillchar(x,sizeof(x),0);

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

    for i:=1 to m do

    begin

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

    if nowwz>nown then

    begin

    nowwz:=1;

    while nowwz>nown do nowwz:=nowwz+(i*i*i mod 5)+1;

    end;

    if i=m then ans:=x[nowwz];

    for j:=nowwz to nown do x[j]:=x[j+1];

    dec(nown);

    end;

    writeln(ans);

    end.

  • 0
    @ 2009-08-04 13:57:40

    麻烦

    一直把m和n搞混了,结果一直不对,郁闷。。

  • 0
    @ 2009-08-04 10:01:05

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

  • 0
    @ 2009-08-04 02:49:46

    var i,k,m,n,x,y:integer;

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

    begin

    readln(m,n);

    for i:=1 to n do

    a[i]:=i;y:=1;

    for i:=1 to m do

    begin

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

    if x+y>n

    then x:=1;

    x:=x+y;

    if im then

    begin

    for k:=x to n-1 do

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

    n:=n-1;

    end;

    end;

    write(a[x]);

    end.

    哪里不对啊?

  • 0
    @ 2009-08-03 08:03:17

    用链表做很容易的 只是题目那个数据范围很有问题明摆着m

  • 0
    @ 2009-08-02 13:35:46

    明摆着要用链表做的...

  • 0
    @ 2009-07-31 21:51:34

    我只想练练链表......总算AC了......

    #include

    #include

    typedef struct node{

    int data;

    struct node *next;

    }NODE;

    NODE *tou;

    NODE *create(int n)

    {

    NODE *p,*q,*head;int i;

    if(n==0)return(NULL);

    head=(NODE*)malloc(sizeof(NODE));

    p=head;

    for(i=1;idata=i;

    p->next=q;

    p=q;

    }

    p->data=n;

    p->next=NULL;

    return(head);

    }

    NODE *del(NODE*now,int no)

    {

    NODE *p=now,*q;int i;

    for(i=1;inext;

    }

    if(p==NULL)return del(tou,no);

    q->next=p->next;free(p);

    return q;

    }

    main()

    {

    int n,m,i;

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

    tou=create(n);

    NODE *last=tou;

    for(i=1;inext;}

    printf("%d",last->data+1);

    system("pause");

    }

  • 0
    @ 2009-07-31 20:38:37

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

  • 0
    @ 2009-07-27 15:16:38

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    var list:array[1..200] of integer;

    a,n,m,c,tmp:integer;

    p:real;

    function ceil(a:real):integer;

    begin

    a:=a+0.1;

    ceil:=round(a);

    end;

    begin

    readln(n);

    readln(m);

    for a:=1 to n do

    list[a]:=a;

    c:=0;

    p:=0.5;

    while cm do

    begin

    c:=c+1;

    p:=(c*c*c)mod 5+1+p;

    if p>n then

    p:=(c*c*c)mod 5+1.5;

    tmp:=list[ceil(p)];

    for a:=ceil(p)+1 to n do

    list[a-1]:=list[a];

    list[n]:=0;

    n:=n-1;

    end;

    write(tmp);

    end.

  • 0
    @ 2009-07-26 20:35:13

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

  • 0
    @ 2009-07-23 23:35:36

    模拟 小试牛刀

信息

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