猜数字程序

来源：百度知道 编辑：UC知道 时间：2024/06/21 00:11:44
在0-9中随机抽取5个数字，要求抽出的数字不重复，输出时不用排序。

var a:array[0..9] of boolean;
i,x,sum:longint;
begin
fillchar(a,sizeof(a),#1);
randomize;
repeat
x:=random(10);
if a[x] then
begin
a[x]:=false;
write(x,' ');
inc(sum);
end;
until sum=5;
end.

先给一个循环while()
用rand()生成5个数
当生成的有相等的情况continue，继续循环
直到生成了5个不相等的数就跳出循环