Bài 16. Ví dụ làm việc với tệp

Giáo sinh thực hiện: Nguyễn Văn Triển
ĐÀ NẴNG
Kiểm tra bài cũ

- Em hãy khai báo một tệp văn bản, viết thao tác gán tên tệp cho ví dụ minh họa.
- Em hãy nêu các thao tác với tệp.






1.Khai báo
Cấu trúc: VAR : TEXT;
2.Gán tên tệp :
Cấu trúc : ASSIGN(< Tên biến tệp>, );
3.Mở tệp :
Để đọc cấu trúc : RESET();
Để ghi cấu trúc : REWRITE();
4.Đọc/ghi tệp :
Đọc tệp : READ(,);
Ghi tệp: WRITE(, );
5. Đóng tệp:
Cấu trúc : Close
Ôn tập về tệp
Ví dụ 1: Viết chương trình nhập vào 2 số a, b và ghi vào tệp Songuyen.txt.





- Khai bỏo;
Var
tep: TEXT;
a, b:Integer;
- Gán tên tệp;
ASSIGN(tep, ‘ Songuyen.txt’);
- Mở tệp ra để ghi;
REWRITE (tep);
CÁC BƯỚC:
THỂ HIỆN BẰNG PASCAL
- Nhập dữ liệu
Write(tep,A[i]);
Write(‘Nhap a,b `);Readln(a,b);
- Ghi ra tệp DULIEU.INP;
- Đóng tệp.
Close(tep);
Click Xem Chương trình
Ví dụ 2: Viết chương trình mở tệp Songuyen.txt , in 2 số a, b trong tệp ra màn hình.





- Khai bỏo;
Var
tep: TEXT;
a, b:Integer;
- Gán tên tệp;
ASSIGN(tep, ‘ Songuyen.txt’);
- Mở tệp ra để đọc;
RESET (tep);
CÁC BƯỚC:
THỂ HIỆN BẰNG PASCAL
- Đọc dữ liệu từ tệp
Writeln(a,b);
Xuất dữ liệu ra màn hình;
- Đóng tệp.
Close(tep);
Click Xem Chương trình
Readln(tep, a, b);
Ví dụ 3: Viết chương trình mở tệp TRAI.INP , đưa ra màn hình khoảng cách giữa trại của mỗi giáo viên chủ nhiệm và trại của thầy hiệu trưởng





- Khai bỏo;
Var tep : TEXT;
d : real;
x,y : Integer;
- Gán tên tệp;
ASSIGN(tep, ‘ Trai.INP’);
- Mở tệp ra để đọc;
CÁC BƯỚC:
THỂ HIỆN BẰNG PASCAL
- Đóng tệp.
Close(tep);
Click Xem Chương trình
RESET(tep);
- D?c d? li?u t? file Trai.INP
Readln(tep,a, b);
- Xuất dữ liệu ra màn hình;
Writeln( d);
- Dóy s? nguyờn d?c ra du?c b?ng cỏch dựng h�m EOF(tờn bi?n t?p);
WHILE NOT(EOF(tep)) DO
- Kho?ng cỏch
d:=sqrt(x*x+y*y);






Program Vidu1;
Uses crt;
Var { phan Khai bao}
tep: TEXT;
a,b: Integer;
Begin
Clrscr;
ASSIGN(tep, `Songuyen.txt’); { Gán tệp}
REWRITE (tep); { Mở tệp để ghi}
Write(‘Nhap 2 so a , b `);
Readln(a,b);
Write(tep,a,b); { Ghi tệp }
Close(tep); { Đóng tệp}
Readln;
END.
Click Chạy Chương Trình
Back






Program Vidu2;
Uses crt;
Var { Phần khai báo}
tep: TEXT;
a,b: Integer;
Begin
Clrscr;
ASSIGN(tep, `Songuyen.txt’); { Gán tệp }
RESET(tep); { Mở tệp để đọc }
Readln(tep,a,b); { Đọc tệp }
Writeln(` Hai so trong tep la:`);
Writeln(a:3, b:3); { Xuất dữ liệu }
Close(tep);
Readln;
END.
Click Chạy Chương Trình
Back





Program vidu3;
Uses crt;
Var tep : TEXT;
d : real;
x,y : Integer;
BEGIN
Clrscr;
ASSIGN(tep, ‘TRAI.INP’);
RESET(tep);
While not eof(tep) do
Begin
read(tep,x,y) ;
d:=sqrt(x*x+y*y);
Writeln(‘Khoang cach:’,d:10:2);
End;
Close(tep);
Readln;
END.
Click Chạy Chương Trình
Ghi nhớ
Cách khai báo tệp
- Các thao tác với tệp
Các em về xem lại các ví dụ vừa học, chuẩn bị làm bài tập sách bài tập.
Về nhà làm cho Thầy bài tập sau: Nhập vào một mảng số nguyên và ghi vào tệp Mang.txt.
Bài học của chúng ta hôm nay đến đây kết thúc
Thân ái chào các em