随机函数（Pascal入门）

随机函数是最主要的，在比赛的时候我们能够用随机函数来測试自己的程序是否会超时。

随机函数也能够做出一些大数据。用于两个程序之间对拍（一个是爆搜。一个是正解）。

当然平时我们也能够用随机函数測自己的程序，出题时随机函数是不可缺少的。

以下就看一看随机函数怎样编写（伪代码）：

1.首先我们要将随机生成的数据放入一个文本或记事本中，那么就要先写文件读写即为：

assign(input,'***.in');

assign(output,'***.out');

reset(input);

rewrite(output);（***为题目名或平时你想取的名字）；

...

close(input);

close(output);

2.接着随机函数必须出现一句话，就是：randomize；

3.然后当你想随机生成一个小于x的数存入y中：y:=random(x);(y能够为0）

一个完整的随机函数：（生成1000个100以内的数）

var

  i:longint;

begin

  assign(input,'sss.in');

  assign(output,'sss.out');

  reset(input);

  rewrite(output);



  randomize;

  for i:=1 to 1000 do

  write(random(100),' ');



  close(input);

  close(output);

end.