电脑随机抽取数字的程序

你需要随机抽取1～100中的数字100个，实际上你已经把数字收取完了，搏携只是随机排序的问题，可以用数组来实现，第一次产生一个1～100的随机数，把这个数交换到数组第1个位置，第二次产生2～100的随机数交换到第二个位置判银芹，直到最后产生100～100的随机数，下面是我写的例子程序：

{$apptype console}

program exp

var a:array[1..100] of 1..100i,j,k:integer

begin

randomize

for i:=1 to 100 do a[i]:=i

for i:=1 to 100 do

begin

j:=random(100-i+1)+i

if j<>i then begin k:=a[i]a[i]:=a[j]a[j]:=kend

end

for i:=1 to 100 do write(a[i]:4)

end.

此程序在DELPHI下运行成功，结果如掘毕下：

E:\ygb>dcc32 b.dpr

Borland Delphi Version 15.0

Copyright (c) 1983,2002 Borland Software Corporation

b.dpr(14)

15 lines, 0.05 seconds, 10724 bytes code, 1905 bytes data.

E:\ygb>b.exe

66 33 17 83 67 88 85 78 92 93 82 13 80 22 11 24 46 64 97 75

54 70 55 49 5 40 23 45 6 62 4 29 47 71 10 99 14 25 48 3

20 58 42 41 15 1 7 19 100 34 2 18 30 53 26 38 44 37 9 61

73 96 95 39 68 31 72 79 59 86 16 57 8 51 89 50 28 87 81 36

69 77 65 91 56 76 60 84 63 21 12 94 74 90 98 27 43 52 32 35

E:\ygb>b.exe

63 1 44 40 68 46 77 93 58 39 52 14 51 96 71 26 100 84 25 56

94 83 55 65 16 66 88 18 27 4 80 38 69 54 92 89 3 9 7 53

28 67 31 19 81 62 24 37 45 10 59 78 20 12 72 48 29 74 36 50

86 42 79 6 41 75 76 73 5 95 8 61 85 87 23 32 99 15 82 33

57 49 98 17 47 11 30 22 34 35 64 70 91 43 2 60 21 13 90 97

只能提判肢供想法假定屏幕能显示5行则做一个5元素物世数组存编号每刷新一罩冲肢次 name[i]=name[i-1] 将后4个元素推一级(i=5~2)再赋random值给name[1]再显示

卓越语音点名、梦畅语音点名。

1、友族卜卓越语音点名是一款免费的随机抽取语音点名工具，可以随机抽取事先编辑好的人员名单并以语音的形穗蔽式报出，是一款非常适合年会抽奖等场合的软件。

2、梦畅语音点名软件是一款支持语音播好穗报点名结果的随机点名软件，可以自定义名单，点击开始，点名软件会快速滚动显示名字，增加紧张气愤。

---