有n个人围成一圈,按顺序编号。从第1个人开始报数,数到m时该人退出,

个人

开

始

报

数，数到

m1

时该

人退出，并且

从

下一个

%

重新

开

始

报

数。

x=1:n1;

y=1:n1;

p=size(x,2);

s=fix(p/m1);

while s>0

x(m1:m1:3*s)=[];

if m1*s

x=x([(m1-1)*s+1:p-s,1:(m1-1)*s]);

end

p=size(x,2);

s=fix(p/3);

end

d isp('

未被圈出的号

码

:')

disp(x)

for m=1:size(x,2)

n=1;

while n<=size(y,2)

if x(m)==y(n)

y(n)=[];

end

n=n+1;

end

end

disp('

圈出的号

码

:')

disp(y)

程序二：

function

y=baoshu(m,n)

x=1:n;

y=zeros(1,n-m+1);

t=0;

p=size(x,2);

s=fix(p/m);

while

s>0

j=1;

while

j<=s

y(t+j)=x(m*j);

j=j+1;

end

x([m:m:m*s])=[];