生日聚会（pascal）
答案:1 悬赏:0 手机版
解决时间 2021-10-18 04:54
- 提问者网友：相思似海深
- 2021-10-18 01:33
生日聚会（pascal）
最佳答案
- 五星知识达人网友：刀戟声无边
- 2021-10-18 01:41
程序如下:///生日聚会varused : array[1..40] of boolean;same : array[1..40] of integer;i,x,n:integer;begin n:=1; for i:=1 to 40 do used[i]:=false; //初始化 randomize; for i:=1 to 40 do begin x:=random(40)+1; //生成1~4随机数 while used[x] do x:=random(40)+1; write(i,'-',x,' '); if i mod 10 = 0 then writeln; //10个一行 used[x] := true; if i=x then begin same[n]:=i; inc(n); end; end; writeln; for i:=1 to n-1 do writeln(same[i],'-',same[i]); end. 这个程序,每次运行结果是不同的,其中之一1-22 2-9 3-6 4-23 5-27 6-7 7-18 8-38 9-3 10-3011-20 12-14 13-19 14-4 15-26 16-13 17-1 18-25 19-36 20-1221-28 22-40 23-10 24-17 25-34 26-35 27-37 28-29 29-11 30-3931-15 32-32 33-33 34-24 35-2 36-5 37-16 38-31 39-21 40-832-3233-33
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯