神马品牌网医保特殊病种有哪些:编程PASCAL
来源：百度文库 编辑：神马品牌网 时间：2024/04/30 02:15:17
有一个文件,问如何知道它的行数.
例如: 文件内容: 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.