高校问答张智尧谢衣高还原:PASCAL高手进~
来源：百度文库 编辑：高校问答 时间：2024/04/27 21:23:05
var a:integer;
begin
a:=random(10);
writeln(a);
end.
我想输出的是1-9里任意的数,为什么这程序只有输出0?
谢谢啦!
begin
a:=random(10);
writeln(a);
end.
我想输出的是1-9里任意的数,为什么这程序只有输出0?
谢谢啦!
1-9的话把a:=random(10); 改为a:=ramdom(8)+1;
(random(n)产生0-n之间的数)
还要在前面加语句 randomize;(初始化随机数据生成器)
random产生0-1之间的浮点数，转换成整数就是0了
var f:double
f:= random()*8+1;