Question

Cho tệp vanban.inp gồm nhiều dòng hãy đọc dữ liệu từ tệp vanban.inp và đếm xem trong tệp có tất cả bao nhiêu dòng rồi ghi kết quả vào tệp vanban.out

Answer 1

const fi='vanban.inp'

fo='vanban.out'

var f1,f2:text;

dem,i:integer;

a:array[1..1000]of string;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

dem:=0;

while not eof(f1) do 

begin

inc(dem);

readln(f1,a[dem]);

end;

writeln(f2,dem);

close(f1);

close(f2);

end.