What is the purpose of the repeat loop from the following?
var.........
begin
...
for k:=1 to 6 do
begin
repeat
n:=random(40);
until a[n]=0;
a[n]:=1
end;
...
end.
Pascal Question F.4 (Urgent) 急啊~~
2006-12-20 7:03 am
回答 (1)
2006-12-20 5:10 pm
✔ 最佳答案
在 40 個號碼 (1-40) 中隨機選取6個不重複的號碼
收錄日期: 2021-04-23 19:19:32
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20061219000051KK04593