随机数首先要初始化,然后使用random函数来做,(random函数的作用是取0~1之间的实数,须将其*一个数或者random(x)来取)基本格式是这样的: var i:integer; begin randomize; {初始化随机数发生器} for i:=1 to 10 do write(random(100):5); {随机取10个100内的整数} end;
展开全部
收起
热心网友回答时间:2024-05-05 13:04
begin randomize; {初始化,程序会通过系统时间初始化随机种子} writeln(random(100)); {产生一个0-19的随机数} end.
展开全部
收起
热心网友回答时间:2024-05-05 13:05
用一个大数取模 大约是这样的 random(100)=(x+k) mod 100 x是上一次随机数的值,k是一个变化的巨大整数(一般和系统时间有关的) 大概就是这样