Đang tải... (xem toàn văn)
Trong chương trình Pascal khi chúng ta muốn dùng một biến để chứa dữ liệu, thì việc đầu tiên chúng ta sẽ?. làm là gì,?[r]
(1)(2)(3)1 Vai trß kiĨu tƯp
D liệu kiểu tệp đ ợc l u tr lâu dài ữ ữ bộ nhớ ngồi (đĩa từ, CD, .) khơng bị tắt nguồn điện
(4)Cã hai lo¹i tƯp th êng dïng:
TƯp cú cấu trúc Tệp văn bản
L mà thành phần được tổ chức theo cấu trúc nhất định.
VD: Tệp hình ảnh, âm thanh, …
Là tệp mà liệu ghi dạng ký tự tệp văn dãy ký tự kết thúc ký tự xuống dòng hay ký tự kết thúc tệp tạo thành dòng
VD: tệp văn bản, sách báo…
(5)Trong chương trình Pascal muốn dùng biến để chứa liệu, việc
làm gì,
để sử dụng biến đó???
Trong chương trình Pascal muốn dùng biến để chứa liệu, việc
làm gì,
để sử dụng biến đó???
Khai báo biến
(6)3 Khai báo tệp văn bản
Cu trỳc chung:
Var <Tªn biÕn tƯp> : TEXT;
VÝ dơ:
tep1,tep2 : Text;
Program vd1;
Uses crt;
Var
tep1,tep2: TEXT;
(7)var tep1, tep2 : text;
var tep1, tep2 : text; var tep vb : text;
var tep vb : text; var tep1,tep2 : text.var tep1,tep2 : text.
Em chọn đáp án đúng?
Em chọn đáp án đúng?
(8)4 Thao t¸c víi tƯp
G¸n tªn tƯp
Mở tệp để ghi Mở tệp để c
Ghi liệu vào tệp Đọc liệu từ tệp
(9)a Gán tên tệp
ASSIGN(<biến tệp>,<tên tệp>);
Tên tệp: Là biến xâu xâu.
ASSIGN(tep1, DULIEU.DAT);
ASSIGN(tep2, D:\TP\BAITAP.INP);
Ví dụ:
Biến tep1 đ ợc gắn với tƯp cã tªn DULIEU.DAT
(10)b Mở tệp để ghi ghi tệp
REWRITE (<biÕn tÖp>);
Thủ tục mở tệp để ghi kết quả:
Nếu nh ổ D:\TP ch a có tệp BAITAP.INP, tệp đ ợc tạo rỗng Nếu có, nội dung cũ bị xố để chuẩn bị ghi liệu mới.
Thñ tục ghi d liệu vào tệp
Danh sách kết gồm hay nhiều phần tử Phần tử biến, xâu biểu thức.
WRITE(<biến tệp>, <Danh sách kết quả>);
WRITELN (<biến tệp>, <Danh sách kết quả>);
Program vd1; Uses crt; Var tep2: TEXT; a,b: integer; ASSIGN(tep2, ‘D:\TP\BAITAP.INP’); REWRITE (tep2);
WRITE (tep2,a,’ ‘,b);
(11)Giá trị hai biến a=3, b=5 đ ợc ghi tệp BAITAP.INP.
(12)RESET (<biÕn tÖp>);
Thủ tục mở tệp để đọc d liệuữ
Thủ tục đọc dữ liệu từ tệp:
ưDanhưsáchưbiếnưlàưmộtưhoặcư nhiềuưbiếnưđơn.
c Mở tệp để đọc ọc d liệu từ tệpđ ữ
Program vd2; Uses crt;
Var
tep2: TEXT; x1,y1: integer;
ASSIGN(tep2, ‘D:\TP\BAITAP.INP’);
RESET (tep2);
READLN (tep2,x1,y1);
BEGIN
Clrscr;
Close(tep2); Readln;
END.
WRITE (‘Hai so la ,x1,y1)’ ;
READ(<biÕn tƯp>, <Danh s¸ch biÕn>);
(13)Tại phải đóng tệp?
Tại phải đóng tệp?
Sau làm việc xong với tệp cần phải đóng tệp
Chỉ có đóng tệp hệ thống thực hồn tất trình đọc ghi
(14)Close(tep2); Program vd1; Uses crt; Var tep2: TEXT; a,b: integer; BEGIN Clrscr; ASSIGN(tep2, ‘D:\TP\BAITAP.INP’);
REWRITE (tep2); WRITE (tep2,a,b); a:=3; b:=5;
Readln;
END.
Close(tep2);
BEGIN
Clrscr;
ASSIGN(tep2, ‘D:\TP\BAITAP.INP’);
READLN(tep2, x1,y1);
WRITE (‘Hai so la ,x1,y1)’ ;
Readln; END. Program vd2; Uses crt; Var tep2: TEXT; x1,y1: integer;
RESET (tep2);
d Thủ tục đóng tệp CLOSE(< tên biến tệp>)
(15)e Mét sè hµm chuÈn th êng dïng xư lÝ tƯp v n b¶nă
EOF(<biÕn tÖp>);
Cho giá trị trỏ tới cuối tệp. EOFLN(<biến tệp>);
(16)Câu lệnh dùng mở tệp để đọc?
Câu lệnh dùng mở tệp để đọc?
a open(<biến tệp>,<tên tệp>); b reset (<biến tệp>,<tên tệp>); c open(<biến tệp>);
d reset(biến tệp);
a open(<biến tệp>,<tên tệp>); b reset (<biến tệp>,<tên tệp>); c open(<biến tệp>);
(17)Nối cấu trúc thích hợp
Nối cấu trúc thích hợp
1 Đóng tệp. 2 Mở tệp.
3 Gán tên tệp.
4 Đọc/ghi tệp văn bản. 1 Đóng tệp.
2 Mở tệp.
3 Gán tên tệp.
4 Đọc/ghi tệp văn bản.
a assign(<biến tệp>,<tên tệp>); b reset(<biến tệp>);
c read(<biến tệp>,<danh sách biến>);
d write(<biến tệp>,<danh sách kết quả>); e close(<biến tệp>);
a assign(<biến tệp>,<tên tệp>); b reset(<biến tệp>);
c read(<biến tệp>,<danh sách biến>);
d write(<biến tệp>,<danh sách kết quả>); e close(<biến tệp>);
1 – e 2 – b 3 – a 4 – c, d
(18)CHÚC CÁC
EM HỌC TỐT CHÚC
CÁC THẦY