makedata.pas

PASCAL光盘资料PASCAL光盘资料PASCAL光盘资料

program makedataofstick;

var
   i,n:integer;
   s:string;
begin
     randomize;
     writeln('Input N:(<=5000)');
     readln(n);
     writeln('Input file name:');
     readln(s);
     assign(output,s);
     rewrite(output);
     writeln(n);
     for i:=1 to n do
      begin
        write(random(10000)+1,' ',random(10000)+1,' ');
      end;
     writeln;
     close(output);
end.