pascal初级题

来源：百度知道 编辑：UC知道 时间：2024/06/09 08:17:02
谁能帮我写一个产生随机数的pascal程序？
谢谢！

var a:integer;
begin
randomize;
a:=random(100);
writeln(a);
end.
a为1-100间的随机数。

给个范围啊````
program lx02;
a:longint;
begin
readln(a);
write(random(a));
end.

就这样，输出的是a以下随机数，你也可以直接定，去掉a：longin 和readln（a），再把random后面括号中的a换成你要的数（换成100则输出小于等于100的随机数）