查人人中国名人网沈阳反串演员:编程PASCAL
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/29 04:11:28
有一个文件,问如何知道它的行数.
例如: 文件内容: A
15511
5478*
输出:3
例如: 文件内容: A
15511
5478*
输出:3
program countline;
var
f: text;
s: string;
n: integer;
begin
write('File name: ');
readln(s);
assign(f, s);
reset(f);
n := 0;
while not eof(f) do
begin
readln(f);
inc(n);
end;
writeln('Lines: ', n);
close(f);
end.
没调试, 自己调试吧.
var f:text;i:integer
begin
assign (f,StrFILENAME);
reset (f);
repeat
readln(f);
i:i+1;
until eoln(f);
writeln (i)
end.