pascal 随机数

来源：百度知道 编辑：UC知道 时间：2024/05/12 16:29:03
随机输出一个1到58之间的整数……pascal语言写……直接发代码……谢
random(a)到底包不包括a?

var
i:integer;
begin
randomize;
i:=random(57)+1;
writeln(i);
end.
randomize是一个初始化随机数发生器，如同初始化的东西，写随机数时一定要在random(n)前写。
random(n)表示0~n的随机的正整数，所以，如果要1~58的数，必须用随机选取0~57中的每一个数+1。

ps：如果要p~q之间的随机数只要写random(q-p)+p。

var i:longint;
begin
randomize;//初始化随机数发生器
i:=random(58)+1;
write(i);
end.

begin
randomize;
writeln(radnom(58)+1);
end.
楼下产生的数里还包括了0，是错误的。