Free Pascal 文件输入输出 怎样创建输入文件

Free Pascal 文件输入输出 怎样创建输入文件

write(f1,写入的内容）;将写入内容写入文件变量所关联的实际文件中。close(f1)；关闭文件reset(f1)打开该文件准备开始读取操作read(f1,<变量名表);从变量f所指向的实际文件中读取内容eoln(f1);判断行是否结束eof(f1);判断整个文件是否结束。还可以用input，output这两个变量input是freepascal默认的输入设备output是默认的输出设备如assign(input,'count.in');reset(input);以后程序中所有的读语句都是从count.in文件中读取内容assign(ouput,'count.out');rewrite(output);以后程序中所有的输出语句都是向count.out写入内容close(input);close(output);

创建一个txt文件，改名为‘文件名.in’ 在里面写入输入数据，保存（保存在pascal所在文件夹） 然后在程序开头begin后写 assign（input，‘文件名.in’）； reset(input); assign(output,'文件名.out'); rewrite(output); 程序结尾end.以前写 close(input); close(output); 运行以后，就可以在pascal所在文件夹内找到文件 '文件名.out' ,里面是输出数据。 注意：如果程序中有halt，记得在halt后也加 close(input); close(output);