随机数表如何制作？

同题。

{本程序可以生成随机数表}

program suijishu;

var x,i:integer; txt:text;

begin

assign(txt, 'math.txt'); {把内部变量与外部文本关联}

rewrite(txt); {打开文件，写入数据}

randomize; {随机数生成初始化}

for i:=1 to 1008 do {生成1008个随机数}

begin

x:=random(100); {随机数范围为0-99}

write(txt,x:4); {将生成的随机数写入文件，每个随机数占用4个字节}

end;

close(txt); {关闭文件，保存数据}

end.

参考资料：Pascal