197 条题解
-
0chengchen LV 8 @ 2009-08-21 14:40:31
-
02009-08-20 22:33:46@
靠,我LJ啊,连链表都不会就来耍了,没脸啦
-
02009-08-19 00:16:42@
2遍才AC 郁闷
-
02009-08-15 12:56:44@
作完这道题,我想说:
1.贼你妈,劳资过了(没骂人,一种心情的表达,管理员不要封我,有意见发信息,我一定改)
2.模拟搞了一晚上都没过,用静态链表一遍过,我无语了,我好LJ,BS我 -
02009-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. -
02009-08-11 12:06:29@
YYY
-
02009-08-06 23:35:46@
晕倒 三次AC
第一次 是把初值赋成0
的二次 是把关键循环的i写成j 居然还过了9个点 数据很弱? -
02009-08-06 21:40:19@
不要让复杂的题目弄呆滞了
很郁闷啊,一个简单的题目都弄糊涂了
-
02009-08-06 20:25:21@
其实这题可以打表的。。。
-
02009-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.
-
02009-08-04 13:57:40@
麻烦
一直把m和n搞混了,结果一直不对,郁闷。。 -
02009-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 -
02009-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.
哪里不对啊? -
02009-08-03 08:03:17@
用链表做很容易的 只是题目那个数据范围很有问题明摆着m
-
02009-08-02 13:35:46@
明摆着要用链表做的...
-
02009-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");
} -
02009-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 -
02009-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 有效耗时:0msvar 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. -
02009-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 -
02009-07-23 23:35:36@
模拟 小试牛刀