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或者甚至使用另一个源来制作？记事本++可能吗？

它可能取决于您使用的Pascal版本，但在许多版本中都可以使用

在

var

部分，添加

f : textfile;  // f can be any variable name

在

vect[i]：=i+1

行之后插入

assign( f, 'c:\path\filename.txt'; // where path and filename are what you want.

rewrite( f);

---

然后将write语句更改为

writeln（f，…）

，其中

f

是上面使用的名称。在结束语句之前插入

closefile（f）

（或在某些版本中

close（f）

。

当然，您可以用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.

---

我做了你所说的@Jud Mc Cranie，但现在它说：“链条必须在程序结束前关闭。”我不能告诉你为什么它不起作用，因为我看不出你尝试了什么。请看下面我的答案。为了您自己，请更好地缩进您的代码。这是一小段代码，@Joás，但当代码增长时，缩进是必须做的。最好现在就养成这个习惯。谢谢@EddeAlmeida的反馈。我要保存它，上面写着：“找不到那种文本文件语句”它应该是什么？嘿，我修好了！谢谢你可以把答案中的var“textfile”改为“text”。可能是因为pascal的版本。看起来你已经这么做了。：-）<代码>文本文件可能是Borland Pascal（甚至是Delphi）的东西。自20世纪80年代以来，我就没有使用过标准帕斯卡。