Ngày soạn:27/1/2013
Tiết PPCT: 39 Bài tập và thực hành 6 (t1)

I.MỤC TIÊU
1. Kiến thức
- Khắc sâu thêm phần kiến thức về lí thuyết kiểu tệp, đặc biệt là các hàm và thủ tục liên quan.
- Nắm được một số thuật toán cơ bản: các thao tác đọc và ghi dữ liệu.
2. kĩ năng
- Khai báo biến kiểu tệp văn bản, gắn tên tệp, mở tệp để đọc, mở tệp để ghi, đọc, ghi tệp.
3. Thái độ
- Góp phần rèn luyện tác phong, tư duy lập trình: Tự giác, tích cực, chủ động và sáng tạo trong tìm kiếm kiến thức.
II. ĐỒ DÙNG DẠY HỌC
1. Chuẩn bị của giáo viên.
- Phòng máy thực hành máy vi tính, máy chiếu Projector (nếu có), sách giáo khoa, sách giáo viên
2. Chuẩn bị của học sinh.
- Sách giáo khoa.
III. PHƯƠNG PHÁP: Nêu vấn đề, vấn đáp, học sử dụng liệu trực quan.
IV.HOẠT ĐỘNG DẠY- HỌC
1. Ổn định lớp, kiểm tra sỉ số học sinh, phân nhóm thực hành
2. Kiểm tra bài cũ: Tiến hành toàn tiết học
3. Nội dung:
Hoạt động 1: Thực hiện chương trình giải bài tập
Hoạt động của giáo viên
Hoạt động của học sinh

Giáo viên ra đề bài :
1. a. Từ chương trình ví dụ 1 bài 16, hãy ghi khoảng cách của trại các lớp tới trại của thầy hiệu trưởng vaò tệp trai.out các số ghi trên một dòng, với độ chính xác 2 chữ số thập phân mỗi số cách nhau ít nhất 1 phím cách (đã hướng dẫn tiết bài tập )
b. hãy ghi ra màn hình khoảng cách của các trại từ tệp trai.out ra màn hình

Yêu cầu học sinh soạn thảo chương trình và thực hiện trên máy.


Lưu ý : việc đọc DL từ tệp được lặp đi lặp lại, nhưng không biết bao nhiêu lần do đó phải sử dụng hàm EOF() để kiểm tra đã hết tệp chưa?




Từ câu a, hãy bổ sung vào đoạn chương trình hợp lý?





2.Lập trình để :
a. đọc dữ liệu từ tệp SN.TXT gồm các số nguyên và ghi ra màn hình
b. ghi vào tệp SND.TXT các số là nguyên dương được đọc từ tệp SN.TXT
Tùy theo điều kiện và đối tượng học sinh mỗi lớp yêu cầu các em hoàn thành và chuẩn bị bài 2b cho tiết học sau

1.Các nhóm trình bày
a.
var f,g;text;
d: real; x,y :integer;
begin
assign(f,’trai.tx.t’); assign(g,’trai.out’);
reset(f); rewrite(g);
while not(eof(f)) do
begin
read(f,x,y); d:= sqrt(x*x+y*y);
write(g,d:5:2);
end;
close(f); close(g);
readln
end.

b.
assign(f,’trai.out’);
reset(f);
while not(eof(f)) do
begin
read(f,d);
writeln(‘khoang cach:’,d:0:2);
end;
close(f);



V. ĐÁNH GIÁ CUỐI BÀI
1. Những nội dung đã học.
- Một số thao tác cơ bản liên quan đến Khai báo biến kiểu tệp văn bản, gắn tên tệp, mở tệp để đọc, mở tệp để ghi, đọc, ghi tệp.
2. Câu hỏi và bài tập về nhà.
Cho tệp SN.TXT gồm các số nguyên, hãy ghi vào tệp SND.TXT các số là nguyên dương được đọc từ tệp SN.TXT