posts - 6,  comments - 5,  trackbacks - 0

program ljkkk;
type
 linktype=^node;
 node=record
   num:integer;
   link:linktype;
  end;
var
 n,m:integer;
 i,j:integer;
 root,pre:linktype;
 p,q:linktype;
begin
 readln(n,m);
 root^.num:=1;
 root^.link:=nil;
 p:=root;
 for i:=2 to n do
 begin
  new(q);
  q^.num:=i;
  p^.link:=q;
  p:=q;
 end;
  pre:=p;
  p^.link:=root;
 p:=root;
 j:=1;
 while (p^.link<>p) do
 begin
  if (j=m)  then
  begin
   pre^.link:=p^.link;
   writeln(p^.num);
   dispose(p);
   p:=pre^.link;
   j:=1;
  end
  else
  begin
   pre:=p;
   p:=p^.link;
   j:=j+1;
  end;
 end;
 writeln(p^.num);
end.

 


 

posted on 2005-08-19 15:30 李青 阅读(1305) 评论(1)  编辑 收藏 引用

FeedBack:
# re: 循环队列报数出队
2009-12-14 08:21 | 李青
好  回复  更多评论
  
只有注册用户登录后才能发表评论。
<2009年12月>
293012345
6789101112
13141516171819
20212223242526
272829303112
3456789

常用链接

留言簿(1)

随笔档案

搜索

  •  

最新评论

阅读排行榜

评论排行榜