高校问答华为比较好的部门:PASCAL一道搞脑筋的题(自己想出来的)
来源：百度文库 编辑：高校问答 时间：2024/04/29 12:57:44
先从文件里读入一个数,再用键盘输入一个数,将两数相加的和替换掉原文件里的数,再在屏幕上显示出来这个数.
我主要对文件的处理有点迷惑才出此题的.望回答者编完先试过可以运行再发上来.谢谢
不知道为什么,一楼我看挺对的,但出来是乱码.我是用TP的
我主要对文件的处理有点迷惑才出此题的.望回答者编完先试过可以运行再发上来.谢谢
不知道为什么,一楼我看挺对的,但出来是乱码.我是用TP的
var f:file of integer;
i,j:integer;
begin
assign(f,'test.in'); {读数据}
reset(f);
read(f,i);
close(f);
read(j); {计算两数和}
j:=j+i;
assign(f,'test.in'); {输出数据}
rewrite(f);
write(f,j);
close(f);
writeln(j); {屏幕显示}
end.