小游戏game

Description

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

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

Input

共4行，每行1个数，分别表示题目中的M，S，N，K。

Output

仅一行，凳子搬走的序列，每个编号间有一个空格。

Sample Input

8
1
3
2

Sample Output

3 1 5 2 7 4 6 8

Hint

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

分析
这就是一道模拟题，bz表示当前的状态（顺时针还是逆时针），t指向当前凳子的编号，s1表示当前状态的数了的第几个凳子。

程序：

var
m,s,n,k,tj:longint;
f:array[0..2000]of boolean;

procedure init;
begin
    readln(m);
    readln(s);
    readln(n);
    readln(k);
    fillchar(f,sizeof(f),true);
    tj:=0;
end;

procedure main;
var
bz,t,s1:longint;
begin
    bz:=1;t:=s-1;s1:=0;
    while tj<m do
    begin
        if bz=1 then
        begin
            inc(t);
            if t>m then t:=1;
            if f[t]=true then inc(s1);
            if s1=n then
            begin
                write(t,' ');
                bz:=2;
                s1:=0;
                f[t]:=false;
                inc(tj);
            end;
        end else
        if bz=2 then
        begin
            dec(t);
            if t<1 then t:=m;
            if f[t]=true then inc(s1);
            if s1=k then
            begin
                write(t,' ');
                bz:=1;
                s1:=0;
                f[t]:=false;
                inc(tj);
            end;
        end;
    end;
end;

begin
    init;
    main;
end.