Bài 1 :Hãy lập chương trình tạo một tệp số nguyên chứa các số nguyên tố nhỏ hơn 10000 theo thứ tự tăng dần .

Bài 2 :Cho f là tệp văn bản chứa các xâu 10 kí tự . Hãy lập chương trình nhập và hiển thị nội dung file đó lên màn hình , mỗi xâu một dòng , đầy trang màn hình thì dừng lại đợi gõ Enter mới hiển thị trang tiếp theo cho tới hết.

Bài 3 :Bạn hãy viết chương trình cho phép đọc dữ liệu từ bàn phím và ghi thêm vào cuối một tệp các bản ghi .

Bài 4 :Cho một văn bản chứa trong một text file f . Trong văn bản , tính từ trái sang phải , từ trên xuống dưới , kí tự # là kí hiệu xoá đi một từ đứng ngay trước nó nếu có . Ví dụ ‘

Ta

oi di ngu

h

hoc’ có nghĩa là ‘Toi di hoc’ . Bạn hãy viết chương trình sửa lại file f theo quy ước trên .

Bài 5 :Cho 2 file f và g cùng kiểu ( nhưng không rõ kiểu nào ) . Bạn hãy lập thủ tục gán nội dung của file g cho file f.

Bài 6 :Cho một file text ghi lại một chương trình Pascal của một học sinh . Hãy viết chương trình kiểm tra lỗi của chương trình Pascal trên theo các cách sau đây : Cách 1 : Kiểm tra xem số lượng các dấu ‘ ( dấu mở và dấu đóng ) có bằng nhau không ? Cách 2 : Kiểm tra xem số lượng các từ Begin và End có bằng nhau không ?

Bài 7 :Cho một file text . Hãy viết chương trình đếm xem file text trên chứa bao nhiêu từ . ( Chú ý : theo quy định , các từ cách nhau bởi một hay nhiều dấu cách ) .

Nhập và xuất dữ liệu là hai công việc rất phổ biến khi thực hiện một chương trình. Cho đến nay, ta mới chỉ nhập dữ liệu từ bàn phím và xuất dữ liệu ra màn hình. Các dữ liệu này được tổ chức trong bộ nhớ của máy, chúng tồn tại khi chương trình đang chạy và bị xóa khi chương trình kết thúc. Muốn lưu trữ các dữ liệu lâu dài để sử dụng nhiều lần thì phải ghi chúng lên đĩa thành các tập tin.

Tập tin (file) trong Pascal là một kiểu dữ liệu có cấu trúc. Mỗi tập tin là một tập hợp các phần tử có cùng chung một kiểu dữ liệu được nhóm lại thành một dãy và được ghi trên đĩa dưới một cái tên chung.

Khái niệm tập tin và mảng có những điểm rất gần nhau. Song tập tin khác mảng ở những điểm sau đây:

• Mảng được tổ chức trong bộ nhớ còn tập tin chủ yếu được tổ chức trên đĩa.
• Số phần tử của mảng được xác định ngay khi khai báo, còn số phần tử của tập tin thì không. Các tập tin được kết thúc bằng một dấu hiệu đặc biệt gọi là EOF ( End Of File).
• Các phần tử của mảng được truy xuất thông qua chỉ số. Các phần tử của tập tin được truy xuất nhờ một biến trung gian chỉ điểm vào vị trí của chúng trên đĩa, gọi là con trỏ tệp. Tại mỗi thời điểm, con trỏ sẽ chỉ vào một vị trí nào đó trong tập tin, gọi là vị trí hiện thời.

Dưới đây sẽ trình bày hai loại tập tin thường gặp là tập tin có định kiểu và tập tin văn bản.

Tập tin văn bản

Để thao tác trên tập tin trong Pascal thì cần khai báo biến đại diện cho tập tin đó. Các biến kiểu tập tin là một loại biến đặc biệt, không dùng để gán giá trị như các biến nguyên, thực hay chuỗi. Mỗi biến này đại diện cho một tập tin mà thông qua các biến đó ta có thể thực hiện các thao tác trên tập tin như: tạo mới, mở, đóng, xóa, ghi dữ liệu hay đọc dữ liệu từ tập tin, … Ta có thể khai báo biến kiểu tập tin văn bản như sau:

Var  : Text;

Các phần tử của tập tin văn bản là các ký tự được ghi thành từng dòng có độ dài khác nhau. Các dòng được phân cách nhờ các dấu kết thúc dòng (End of line). Ðó là hai ký tự điều khiển CR (Carriage return : nhảy về đầu dòng) và LF (Line feed: xuống dòng dưới). Ví dụ, đoạn văn bản sau:

Tap tin van ban Text
12345
Het

Được chứa trong tập tin văn bản thành một dãy :

Tap tin van ban Text    CR LF    12345    CR LF    Het    EOF

Trước khi thao tác với tập tin chúng ta cần sử dụng thủ tục:

Assign(, );

Thủ tục này là để gán một

Tap tin van ban Text
12345
Het

7 trên đĩa cho

Tap tin van ban Text
12345
Het

8 trong RAM. sau lệnh này,

Tap tin van ban Text
12345
Het

8 sẽ được dùng để thực hiện tất cả thao tác cần thiết lên

Tap tin van ban Text
12345
Het

7 được chỉ định.

Mở tập tin mới để ghi:

Assign(, );
Rewrite();

Thủ tục

Tap tin van ban Text    CR LF    12345    CR LF    Het    EOF

1 tạo một tập tin trên đĩa có tên đã gán cho

Tap tin van ban Text
12345
Het

8 bằng lệnh gán

Tap tin van ban Text    CR LF    12345    CR LF    Het    EOF

3 đồng thời mở tập tin đó ra để ghi dữ liệu. Khi mở tập tin bằng lệnh

Tap tin van ban Text    CR LF    12345    CR LF    Het    EOF

1 nếu trên đĩa đã có tập tin trùng với tên bạn đặt thì tập tin trên đĩa sẽ bị xoá thay vào đó là một tập tin trống. Nên bạn cần cẩn thận khi mở tập tin bằng lệnh

Tap tin van ban Text    CR LF    12345    CR LF    Het    EOF

1.

Mở tập tin đã có để ghi thêm:

Assign(, );
Append();

Mở tập tin để đọc dữ liệu:

Assign(, );
Reset();

Chú ý: Khi mở một tập tin bằng lệnh Reset nếu tập tin không có trên đĩa sẽ gây lỗi.

Đóng tập tin

Cuối cùng, ta phải đóng tập tin bằng thủ tục:

Thủ tục này chuyển nội dung trong bộ nhớ vào tập tin trên đĩa đồng thời đóng tập tin lại giải toả bộ nhớ dành cho biến tập tin. Các tập tin khi đã mở nếu không đóng lại sẽ mất các dữ liệu truy xuất trên Tên biến File.

Việc xuất nhập dữ liệu trên biến File có kiểu chỉ được thực hiện như sau: – Ðọc dữ liệu từ tập tin dùng thủ tục

Readln(, );

– Ghi dữ liệu vào đĩa: dùng thủ tục

Writeln(, );

Ví dụ:

Var t : Text;
    str : String;
Begin
    Assign(t, 'inputText.txt'); {Gắn inputText.txt và biến t}
    Rewrite(t); {Tạo mới tập tin để ghi dữ liệu}
    Writeln(t, 'Lê Hoàn Chân');
    Writeln(t, '============');
    Reset(t); {Mở tập tin để đọc dữ liệu}
    Writeln('Dữ liệu trong file inputText.txt:');
    While Not EOF(t) Do {Đọc dữ liệu tới hết tập tin}
    Begin
        Readln(t, str);
        Writeln(str);
    End;
    Append(t); {Mở tập tin để ghi thêm dữ liệu}
    Writeln(t, 'Kiểm tra thử xem sao');
    Close(t); {Đóng tập tin lại}
    Reset(t);
    Writeln;
    Writeln('Dữ liệu trong file inputText.txt sau khi thay đổi:');
    While Not EOF(t) Do {Đọc dữ liệu tới hết tập tin}
    Begin
        Readln(t, str);
        Writeln(str);
    End;
    Close(t); {Đóng tập tin lại}
End.

Tập tin có định kiểu

Tập tin mà các phần tử của nó có cùng một kiểu dữ liệu gọi là tập tin có định kiểu. Kiểu dữ liệu của các phần tử của tập tin có thể là kiểu đơn giản (nguyên, thực, ký tự , logic, chuỗi ký tự…) hoặc kiểu có cấu trúc (mảng, bản ghi, …).

Khai báo

Tap tin van ban Text
12345
Het

0

Cụ thể:

Tap tin van ban Text
12345
Het

1

Định nghĩa trực tiếp biến kiểu tập tin trong phần khai báo biến:

Tap tin van ban Text
12345
Het

2

Cụ thể:

Tap tin van ban Text
12345
Het

3

Đọc và ghi

Như chúng ta đã biết khi nhập xuất file có kiểu text gây ra nhiều khó khăn khi phải ghi dữ liệu như khi đọc, ghi dữ liệu của 1 sinh viên phải làm rất phức tạp. Chúng ta có thể xử lý đơn giản hơn với tập tin có kiểu.

– Ghi lên tập tin:

Tap tin van ban Text
12345
Het

4

Với các giá trị trong

Tap tin van ban Text    CR LF    12345    CR LF    Het    EOF

6 phải cùng kiểu với

Tap tin van ban Text
12345
Het

8.

– Đọc tập tin:

Tap tin van ban Text
12345
Het

5

Chú ý:

Khác với tập tin văn bản, việc ghi và đọc tập tin có kiểu không sử dụng các lệnh Writeln hoặc readln nghĩa là tập tin có kiểu không ghi dữ liệu thành các dòng. Các phần tử của tập tin có kiểu được ghi liên tục trong các ô nhớ và chỉ có ký hiệu kết thúc tập tin

Tap tin van ban Text    CR LF    12345    CR LF    Het    EOF

8. Khi chúng ta đọc hoặc ghi xong một phần tử thì con trỏ tập tin sẽ tự động chuyển đến vị trí kế tiếp.

Truy nhập vào phần tử thứ i của tập tin: Seek(, i); i=0,1,2,…

Thủ tục seek sẽ định vị con trỏ tại vị trí thứ i của tập tin.

Các hàm xử lý tập tin:

• Filesize() cho biết số phần tử có trong tập tin
• FilePos() cho biết vị trí hiện thời của con trỏ tập tin
• Eof() cho giá trị là True nếu con trỏ tập tin ở vị trí cuối tập tin, ngược lại cho giá trị False

Ví dụ:

Tap tin van ban Text
12345
Het

6

Khi các bạn mở tập tin

Tap tin van ban Text    CR LF    12345    CR LF    Het    EOF

9 ra thì sẽ không thể thấy thông tin như mong muốn vì nó được ghi dưới dạng mã nhị phân chứ không phải Text nhưng thông tin của nó chứa thì vẫn chính xác.