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

Gốc > THPT (Chương trình cũ) > Tin học > Tin học 11 >

0 / 0

Tham khảo cùng nội dung: Bài giảng, Giáo án, E-learning, Bài mẫu, Sách giáo khoa, ...

Nhấn vào đây để tải về
Báo tài liệu có sai sót
Nhắn tin cho tác giả

(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Nguyễn Văn Triển (trang riêng)
Ngày gửi: 01h:40' 28-03-2009
Dung lượng: 1.6 MB
Số lượt tải: 138

Số lượt thích: 0 người

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 :
Để đọc cấu trúc : RESET();
Để ghi cấu trúc : REWRITE();
4.Đọ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

↓ CHÚ Ý: Bài giảng này được nén lại dưới dạng RAR và có thể chứa nhiều file. Hệ thống chỉ hiển thị 1 file trong số đó, đề nghị các thầy cô KIỂM TRA KỸ TRƯỚC KHI NHẬN XÉT ↓