小游戏game

版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/SSLGZ_CJX/article/details/76849831

【题目背景】
yk同学是一个灰常灰常有爱的同学,虽然各种老师总是让他干看似很无聊的事情,但是他总是发明一些好玩的办法来完成这些无聊的任务,这样yk就不会整天那么忧郁啦~ 这次,老师又给他布置了一个任务,让他搬凳子~~ 当然他非常有爱地把这个任务发展成了一个小小小游戏~ hoho,现在他让你来玩这个小游戏,have a try~

【题目描述】
现在有M个凳子排成一个圈,我们顺时针给凳子依次编号为1,2,3……,M。我们从编号为S的凳子开始,每次先顺时针数N个凳子,将第N个凳子搬走,然后再逆时针数K个凳子,将第K个凳子搬走。每次都这样先顺时针数N个,再逆时针数K个,直到只剩1个凳子,直接搬走。最后,我们想知道M个凳子的搬走顺序。

【输入格式】
game.in
共4行,每行1个数,分别表示题目中的M,S,N,K。

【输出格式】
game.out
仅一行,凳子搬走的序列,每个编号间有一个空格。

【样例】
game.in
8
1
3
2

game.out
3 1 5 2 7 4 6 8

【数据范围】
100% M<=1000

var
 m,n,s,k,i,j,t,k1,n1,l:longint;
 a:array[0..1001] of longint;
begin
 read(m,s,n,k);
 for i:=1 to m do
  begin
   a[i]:=i;
  end;
 t:=m;
 j:=s;
 //n1:=n;
 //n1:=n1 mod t;
 //j:=s+n;
 //write(a[j],' ');
 //for l:=j to t-1 do
  //a[l]:=a[l+1];
 for i:=1 to m-1 do
  begin
   if i mod 2 <> 0 then
    begin
     //dec(t);
     n1:=n;
     n1:=n1 mod t;
     j:=j+n-1;
     while j>t do j:=j-t;
     write(a[j],' ');
     dec(t);
     for l:=j to t do
      a[l]:=a[l+1];
    end
   else
    begin
     //dec(t);
     k1:=k;
     k1:=k1 mod t;
     j:=j-k;
     while j<1 do j:=j+t;
     write(a[j],' ');
     dec(t);
     for l:=j to t do
      a[l]:=a[l+1];
    end;
  end;
 write(a[1]);
end.
阅读更多
想对作者说点什么?

博主推荐

换一批

没有更多推荐了,返回首页