从代码中保存文本文件

Question

我做了这个代码：

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 甚至使用其他来源制作吗？也许是记事本++？

Answer 1

这可能取决于您使用的是哪个版本的 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);

然后将写入语句更改为 writeln( f, ...) 其中 f 是上面使用的名称。在结束语句之前，插入 closefile( f);（或某些版本中的 close(f)）。

Answer 2

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

从代码中保存文本文件

Saving text file from code

text

pascal

file

notepad++