随机函数（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.