program suijishu;
{$APPTYPE CONSOLE}
var
i,j,r,n,m:integer;
All:array[0..1000] of integer;//这个数组用来装随机数的
Result:array[0..1000] of integer;//这个数组用来装结果的
begin
writeln('请输入m,n,产生在n范围内的m个随机数');
readln(m,n);
if n<m then
writeln('错了喔..大小倒了也!')
else
begin
for i:=0 to n-1 do
All[i]:=i;
//产生M个随机数
for i:=0 to m-1 do
begin
j:=random(n);
r:=j mod (n-1-i);
Result[i]:=All[r];
All[r]:=All[n-1-i];
end;
for i:=0 to m-1 do
begin
write(Result[i],' ');
end;
end; writeln;
writeln('按回车退出!');
readln;
end.
{$APPTYPE CONSOLE}
var
i,j,r,n,m:integer;
All:array[0..1000] of integer;//这个数组用来装随机数的
Result:array[0..1000] of integer;//这个数组用来装结果的
begin
writeln('请输入m,n,产生在n范围内的m个随机数');
readln(m,n);
if n<m then
writeln('错了喔..大小倒了也!')
else
begin
for i:=0 to n-1 do
All[i]:=i;
//产生M个随机数
for i:=0 to m-1 do
begin
j:=random(n);
r:=j mod (n-1-i);
Result[i]:=All[r];
All[r]:=All[n-1-i];
end;
for i:=0 to m-1 do
begin
write(Result[i],' ');
end;
end; writeln;
writeln('按回车退出!');
readln;
end.