pascal 文件读写程序问题

2025-04-28 20:32:58

推荐回答（1个）

回答1：

啊哈~~
问题很简单~
关注如下程序段~
WHILE not(eof(ff)) do begin
if not (eoln(ff))
then begin
i:=i+1;
read (ff,a[i]); end
else readln(ff);
END;
这里，这个if判断是多余的

而且我认为readln(ff)是卡住的罪魁祸首~

我建议改为...
i:=0;{这里i要初始化~最好这样做~}
WHILE not(eof(ff)) do begin
i:=i+1;
read (ff,a[i]);
END;
其实~因为原题目已经说了是一百个数据~所以可以直接~
for i:=1 to 100 do read(ff,a[i]);

这样也是没有问题的

最后~貌似你要把数据输出到fff.txt文件中
你自己改改吧~~

就这样了~~