随机数表如何制作？
同题。
参考答案:{本程序可以生成随机数表}
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