Đang tải... (xem toàn văn)
o Chương trình dùng để tạo một tệp mới và ghi nội dung nhập từ bàn phím vào trong tệp.[r]
(1) Trong PASCAL để khai báo biến tệp văn ta phải sử dụng cú pháp o Var <tên tệp> : Text;
o Var <tên biến tệp> : Text; (*)
o Var <tên tệp> : String; o Var <tên biến tệp> : String;
Trong PASCAL, để khai báo hai biến tệp văn f1, f2 ta viết o Var f1 f2 : Text;
o Var f1 ; f2 : Text;
o Var f1 , f2 : Text; (*) o Var f1 : f2 : Text;
Để thao tác với tệp
o Ta gán tên tệp cho tên biến tệp, sử dụng trực tiếp tên tệp o Ta thiết phải gán tên tệp cho tên biến tệp (*)
o Ta nên sử dụng trực tiếp tên tệp chương trình
o Ta thiết phải sử dụng trực tiếp tên tệp chương trình
Để gán tên tệp cho tên biến tệp ta sử dụng câu lệnh o <tên biến tệp> := <tên tệp>;
o <tên tệp> := <tên biến tệp>;
o Assign(<tên biến tệp>,<tên tệp>); (*) o Assign(<tên tệp>,<tên biến tệp>);
Để gắn tệp KQ.TXT cho biến tệp f1 ta sử dụng câu lệnh o f1 := ‘KQ.TXT’;
o KQ.TXT := f1; o Assign(‘KQ.TXT’,f1); o Assign(f1,‘KQ.TXT’); (*)
Trong PASCAL mở tệp để đọc liệu ta phải sử dụng thủ tục o Reset(<tên tệp>);
o Reset(<tên biến tệp>); (*) o Rewrite(<tên tệp>); o Rewrite(<tên biến tệp>);
Trong PASCAL mở tệp để ghi kết ta phải sử dụng thủ tục o Reset(<tên tệp>);
o Reset(<tên biến tệp>); o Rewrite(<tên tệp>);
o Rewrite(<tên biến tệp>); (*) Vị trí trỏ tệp sau lời gọi thủ tục Reset
o Nằm đầu tệp (*)
o Nằm cuối tệp o Nằm tệp
o Nằm ngẫu nhiên vị trí
Để đọc liệu từ tệp văn ta sử dụng thủ tục o Read(<tên tệp>,<danh sách biến>);
o Read(<tên biến tệp>,<danh sách biến>); (*)
o Write(<tên tệp>,<danh sách biến>); o Write(<tên biến tệp>,<danh sách biến>);
Để ghi kết vào tệp văn ta sử dụng thủ tục o Read(<tên tệp>,<danh sách kết quả>);
o Read(<tên biến tệp>,<danh sách kết quả>); o Write(<tên tệp>,<danh sách kết quả>);
o Write(<tên biến tệp>,<danh sách kết quả>); (*)
Nếu hàm eof(<tên biến tệp>) cho giá trị true trỏ tệp nằm vị trí o Đầu dịng
o Đầu tệp o Cuối dòng
(2) Nếu hàm eoln(<tên biến tệp>) cho giá trị true trỏ tệp nằm vị trí o Đầu dịng
o Đầu tệp
o Cuối dòng (*) o Cuối tệp
Trong Pascal để đóng tệp ta dùng thủ tục o Close(<tên biến tệp>); (*)
o Close(<tên tệp>); o Stop(<tên biến tệp>); o Stop(<tên tệp>);
Var <tên biến tệp> : Text ; có ý nghĩa ? o Thủ tục gán tên tệp cho tên biến tệp o Thủ tục mở tên để đọc liệu o Khai báo biến tệp (*)
o Thủ tục đóng tệp
Assign(<tên biến tệp>,<tên tệp) ; có ý nghĩa ? o Thủ tục gán tên tệp cho tên biến tệp (*)
o Thủ tục mở tên để đọc liệu o Khai báo biến tệp
o Thủ tục đóng tệp
Reset(<tên biến tệp>) ; có ý nghĩa ? o Thủ tục gán tên tệp cho tên biến tệp o Thủ tục mở tên để đọc liệu (*)
o Khai báo biến tệp o Thủ tục đóng tệp
Close(<tên biến tệp>) ; có ý nghĩa ? o Thủ tục gán tên tệp cho tên biến tệp o Thủ tục mở tên để đọc liệu o Khai báo biến tệp
o Thủ tục đóng tệp (*)
Rewrite(<tên biến tệp>) ; có ý nghĩa ? o thủ tục mở tệp để ghi liệu (*)
o thủ tục đọc liệu từ tệp o thủ tục ghi liệu vào tệp o thủ tục đóng tệp
read(<tên biến tệp>,<danh sách biến>) ; có ý nghĩa ? o thủ tục mở tệp để ghi liệu
o thủ tục đọc liệu từ tệp (*) o thủ tục ghi liệu vào tệp
o thủ tục đóng tệp
write(<tên biến tệp>,<danh sách kết quả>) ; có ý nghĩa ? o thủ tục mở tệp để ghi liệu
o thủ tục đọc liệu từ tệp
o thủ tục ghi liệu vào tệp (*) o thủ tục đóng tệp
Trong Pascal, thực chương trình VD_bt1_txt ghi kết kết cho vào tệp văn BT1.TXT ?
o 123 + 456 o 123456
o 579 (*)
o 123 456
Program VD_bt1_txt ; Uses crt ;
Var f : text ; Begin
Clrscr;
(3) Trong Pascal, cho trước tệp văn BT2.TXT có dịng, chứa dịng chữ : CHAO MUNG BAN DEN VOI LAP TRINH đầu dịng Thực chương trình VD_bt2_txt , màn hìnhsẽ kết kết cho ?
o CHAO MUNG BAN DEN VOI LAP TRINH
o CHAO MUNG BAN (*)
o CHAO MUNG BAN DEN VOI o CHAO MUNG
Program VD_bt2_txt ; Uses crt ;
Var f : text ; S : string[13] ; Begin
Clrscr;
Assign(f, ‘BT2.TXT ’) ; Reset(f) ;
(4) Phát biểu sau với chương trình Vi_Du ?
o Chương trình dùng để mở đọc tệp có nội dung tệp lên hình
(*)
o Chương trình dùng để tạo tệp ghi nội dung nhập từ bàn phím vào tệp o Chương trình dùng để mở đọc tệp có cho phép nhìn thấy tồn kí tự có
tệp lên hình
o Cả khẳng định sai
Program Vi_Du ; Uses crt ;
Var f : text ; ch : char ; tenfile : string[30] ; Begin
Write(‘ Nhap ten file : ’) ; readln(tenfile) ; Assign(f, tenfile) ; Reset(f) ;
While not eof(f) do Begin
Read(f, ch) ; Write(ch) ; End ;