Tham khảo tài liệu 'lập trình nâng cao trên ngôn ngữ pascal part 9', tài liệu phổ thông, tin học phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Chương 7. Một số thí dụ 229 Khối thứ ba là ghi danh sách thống kê vừa tìm lên file kết quả. Khối này được thực hiện nhờ thủ tục WriteResult name string trong đó name là tham trị xác định tên file kết quả. Với các thủ tục được xây dựng chương trình chính bao gồm 3 lời gọi tương ứng đến 3 thủ tục này ReadKeyWord KeyWordName CreatList InputName WriteResult ơutputName trong đó KeyWordName là tên file từ khóa còn inputName và OutputName là các tên file vào và ra tương ứng. Các thủ tục ReadKeyWord và writeResult là đơn giản chúng bao gồm các lệnh đọc và ghi file. Riêng thủ tục CreatList bao gồm nhiều thao tác cần được xây dựng thêm chi tiết. Các thao tác trong CreatList là Khởi tạo danh sách rỗng. Kiểm tra file nguồn còn hay hết. Đọc từng dòng của file nguồn. Tách lần lượt các từ của dòng được đọc. Kiểm tra một từ có phải là từ khóa. Tìm vị trì của một từ khóa trong danh sách để cập nhật lại danh sách. Việc khởi tạo danh sách rỗng được thực hiện bởi lệnh gán nList bằng 0. Việc kiểm tra còn file f được thực hiện bởi hàm chuẩn Eof f . Việc đọc từng dòng của file f vào xâu s được thực hiện bởi thủ tục chuẩn Readlnff s . Để tách lần lượt các từ của xâu s cho đến hết ta dựng hàm GetWord s i có nhiệm vụ trả về từ được tách tại vị trí i của s sau khi tách xong hàm trả lại vị trí kế tiếp cho biến i để chuẩn bị cho lần tách sau vì thế i phải là tham biến . Hàm này cũng kiêm luôn nhiệm vụ kiểm tra xem việc tách từ đã hết chưa bằng cách trả về từ rỗng nếu không còn từ nào được tách. Các chữ cái ưong từ được tách cũng được hàm đổi luôn thành chữ cái lớn để tiện so sánh với các từ khóa sau này. Việc kiểm tra từ w có phải là từ khóa hay không được thực hiện nhờ hàm lôgic isKeyWord w và việc tìm vị trí từ khóa w trong danh sách được thực hiện bởi hàm InList w . Hàm này trả về giá trị nguyên nList xác định chỉ số của phần tử được tìm thấy trong danh sách nếu không thấy hàm trả về giá ưị nList . Việc kết nạp w vào danh sách được thực hiện nhờ các thao tác truy cập danh sách nếu j là chỉ
