视
视觉音乐
Unregistered / Unconfirmed
GUEST, unregistred user!
从intFrom到intTo连续整数当中,选出number个不重复的:
procedure RandomX(intFrom,intTo,number:Integer;
N:array of Integer);
var
Temp : Integer;
i,j : Integer;
Exist : Boolean;
begin
if Number>(intTo-intFrom) then
Raise Exception.Create('无法生成。');
SetLength(N,number);
N[0]:=-1;
for i:=1 to Number do
begin
Exist:=False;
repeat
Temp:=Random(intTo-intFrom)+intFrom;
for j:=0 to i-1 do
if Temp=N[j] then
begin
Exist:=True;
Break;
end;
until not Exist;
N[i-1]:=Temp;
end;
end;
procedure RandomX(intFrom,intTo,number:Integer;
var N:array of Integer);
同样提示错误,SetLength(N,number)提示类型不匹配。
procedure RandomX(intFrom,intTo,number:Integer;
N:array of Integer);
var
Temp : Integer;
i,j : Integer;
Exist : Boolean;
begin
if Number>(intTo-intFrom) then
Raise Exception.Create('无法生成。');
SetLength(N,number);
N[0]:=-1;
for i:=1 to Number do
begin
Exist:=False;
repeat
Temp:=Random(intTo-intFrom)+intFrom;
for j:=0 to i-1 do
if Temp=N[j] then
begin
Exist:=True;
Break;
end;
until not Exist;
N[i-1]:=Temp;
end;
end;
procedure RandomX(intFrom,intTo,number:Integer;
var N:array of Integer);
同样提示错误,SetLength(N,number)提示类型不匹配。