您所在位置：主题：[讨论]我写的程序为什么没有结果，请大家帮忙
gljie
[专家分：30] 发布于 2006-05-18 10:19:00
编一程序，计算文本文件中行结束标志的数目。
我写的程序为什么没有结果，我在同目录下建立了file1.dat文件，里面输入了5行长度不等的整数。
var f:text;i:integer;
begin
assign(f,'file1.dat');
reset(f);
i:=0;
while not eof(f) do
begin
read(f);
while eoln(f) do i:=i+1;
end;
writeln('gong you:',i:4,'hang.');
readln;
end.
我写的程序为什么没有结果，我在同目录下建立了file1.dat文件，里面输入了5行长度不等的整数。
var f:text;i:integer;
begin
assign(f,'file1.dat');
reset(f);
i:=0;
while not eof(f) do
begin
read(f);
while eoln(f) do i:=i+1;
end;
writeln('gong you:',i:4,'hang.');
readln;
end.
