高校问答索尼55x9000c:数字分组随机编程
来源：百度文库 编辑：高校问答 时间：2024/04/29 19:42:06
数字1-8，随机排列为2组，每组4个数字，如何用C语言或PASCAL语言实现编程？
Pascal:
const a:array[1..8] of integer=(1,2,3,4,5,6,7,8);
var
t,n,i:integer;
s:set of byte;
begin
randomize;
t:=0;
s:=[];
write('Set 1:');
repeat
n:=random(8)+1;
if not(n in s) then begin
s:=s+[n];
write(n:2);
t:=t+1;
end;
until t=4;
writeln;
write('Set 2:');
for i:=1 to 8 do begin
if not(i in s) then write(i:2);
end;
end.