file - 从代码保存文本文件

我已经做了这个代码:

Program Pzim ;
   var
     i:integer;
     vect:array[1..1001] of integer;
Begin
     i:=1;
     for i:= 1 to 999 do
     vect[i]:=i+1;
     for i:= 1 to 999 do
     writeln (vect[i]);
   readln;
End.

该程序打印一个数字序列。
我想将打印的内容保存在文本文件中。

它可以使用 Pascal 制作，甚至可以使用其他来源制作？ Notepad++ 也许？

最佳答案

当然，您可以在 Pascal 中写入文本文件。

Program Pascal ;

var
  i:integer;
  vect:array[1..1001] of integer;
  Myfile: text;

begin
  i:=1;
  for i:= 1 to 999 do
    vect[i]:=i+1;

  Assign(Myfile, 'Myfile.txt');
  Rewrite(MyFile);

  for i:= 1 to 999 do
  begin
    WriteLn (vect[i]);
    WriteLn(Myfile, vect[i]);
  end;
  Close(Myfile);
  ReadLn;
end.

关于file - 从代码保存文本文件，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/35386314/