随机取数

[baconxd]

各位高手，请教一下，如何让a，b，c，d随机取1，2，3，4四个整数，但不会重复，
麻烦讲解一下解答中各命令和字符的含义，谢谢！！

[baconxd]

请问，但是用集合也有可能重复的？

[hiflower]

var
s:set of 1..4;
s:=[];
a:=RandomFrom([1,2,3,4]);
s:=s+[a];
repeat
b:=RandomFrom([1,2,3,4]);
undilt not (b in s);
s:=s+[b];
repeat
c:=RandomFrom([1,2,3,4]);
undilt not (c in s);
s:=s+[c];
repeat
d:=RandomFrom([1,2,3,4]);
undilt not (d in s);
s:=s+[b];

[47522341]

呵呵；试试这个；

var L : string;
begin
a := randomfrom(['1'.'2'.'3'.'4']);

L := randomfrom(['1'.'2'.'3'.'4']);
while L = a then
L := randomfrom(['1'.'2'.'3'.'4']);
end;
B := L;

L := randomfrom(['1'.'2'.'3'.'4']);
while (L = a) or (L = b) then
L := randomfrom(['1'.'2'.'3'.'4']);
end;
c := L;

L := randomfrom(['1'.'2'.'3'.'4']);
while (L = a) or (L = b) or (L = c) then
L := randomfrom(['1'.'2'.'3'.'4']);
end;
D := L;

[47522341]

错了；应该是：

var L : string;
begin
a := randomfrom(['1','2','3','4']);

L := randomfrom(['1','2','3','4']);
while L = a do
L := randomfrom(['1','2','3','4']);
end;
B := L;

L := randomfrom(['1','2','3','4']);
while (L = a) or (L = b) do
L := randomfrom(['1','2','3','4']);
end;
c := L;

L := randomfrom(['1','2','3','4']);
while (L = a) or (L = b) or (L = c) do
L := randomfrom(['1','2','3','4']);
end;
D := L;

[ly_liuyang]

数据很少的时候使用集合
大的用动态数组记录已选取的数
这样就不会有重复

具体算法比较简单，自己想了，不能什么都靠别人的