Question

lazarus怎样文件读入

Answer 1

文件读入：在所有读入前输入以下语句（只需一次，建议放开头）
assign(input,'123.in'); //其中123.in为输入文件名，可替换，要包含后缀
reset(input);
读入完以后要输入：
close(input);
这个语句是为了程序运行时读入后要关闭文件，必不可少，否则会出错，且必须放在所有读入
之后，程序结束之前（只需一次，建议放末尾，如有halt语句前也必须要放在其之前)。
文件输出：对应改为：
assign(output,'123.out');rewrite(output);
close(output);
实例：
Var a:longint;
Begin
Assign(input,’123.in’);reset(input);
Assign(output,’123.out’);rewrite(output);
Read(a);
Write(a);
Close(input);close(output);
End.