Bài tập :Viết chương trình đếm số từ có trong một file văn bản.
ai sửa giùm mik với...Code:var f: text; fn: string; kt: boolean; c: char; d: integer; function count(fn: string): integer; begin assign(F,fn); reset(F); d:=0; kt:=false; while not eof(f) do begin read(F,c); if c>#32 then kt:=true; if (c<#33)and(kt=true) then begin d:=d+1; kt:=false; end; end; if c>#32 then d:=d+1; count:=d; end; begin write('nhap ten file: '); readln(fn); write(count(fn)); readln; end.
Bookmarks