DaoVoice JS 代码接入示例

Pascal的数据生成器

预处理

• 新建一个makedata.bat，是生成数据的东东；
• 新建一个std.pas，是标程；
• 新建一个makein.pas，是产生数据的东东。

步骤

1. 在makedata.bat中输入如下内容：

fpc makein.pas
makein.exe
del makein.o
del makein.exe
fpc std.pas
for /l %%a in (1,1,10) do std.exe< data%%a.in >data%%a.out//data表示文件名，可修改
del std.o
del std.exe

2. 将std（标程）放进std.pas中；

3. 将生成数据的东东写好放入makein.pas中，这里以A+B为例：

var
  num:longint;
  ff:string;
 procedure make(num:longint);
  var
    i,n,m,x:longint;
  begin
    str(num,ff); ff:='data'+ff+'.in';//data表示文件名，可以修改
    assign(output, ff); rewrite(output);
    writeln(random(100000)+1,' ',random(100000)+1);//输出两个数
    close(output);
  end;
begin
  randomize;
  for num:=1 to 10 do make(num);//10表示生成数据的个数，从1开始
end.

4. 双击makedata.bat即可。