如何使PASCAL程序将结果输出到记事本上?

来源:百度知道 编辑:UC知道 时间:2024/05/31 18:07:08
例如 WRITELN('if odd(n) then writeln(n+1)');
如何使这句话输出到某个TXT文件上?
主要是为了方便写出考虑到所有情况的程序文件(就是题解的全集,实质是在作弊,=。=)

assign(output,'d:\xxx.txt');
rewrite(output);
WRITELN('if odd(n) then writeln(n+1)');
close(output);

囧...做题要厚道...cheat一定得少用。

凭这知识还可以使用最贱的打表

assign(output,'文件名.txt');rewrite(output);
writeln(输出内容);
close(output);

assign(output,'a.txt');
rewrite(output);
writeln('if odd(n) then writeln(n+1)');
close(output);
end.

文件不要打路径,楼上的啊~~~~~~~~
assign(output,'文件名.in');rewrite(output);
writeln(输出内容);
close(output); //文件一定要关!
如果没输出的话就去change dir里改路径。