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还是使用其他来源？ Notepad ++也许？

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);

然后将write语句更改为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.

从代码中保存文本文件

2 个答案: