Ngày soạn:2/2/2013
Tiết PPCT: 40 Bài tập và thực hành 6 (t2)

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. 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

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







Từ câu a, hãy bổ sung vào đoạn chương trình hợp lý?
Gợi ý: sau khi đọc số nguyên trong tệp SN.TXT ra biến x ta sẽ kiểm tra nếu x là số dương thì ghi vào tệp






Giáo viên chỉnh sủa bổ sung và đánh giá.
1.Các nhóm trình bày
a.
var f,g;text;
x :integer;
begin
assign(f,’sn.txt’);
reset(f);
writeln(‘day so nguyen cua tep sn.txt la:’);
while not(eof(f)) do
begin
read(f,x);
write(x:5);
end;
close(f);
readln
end.

b.
assign(f,’sn.txt’);
assign(g,’snd.txt’);
reset(f);
rewrite(g);
while not(eof(f)) do
begin
read(f,x);
if x>0 then write(g,x:5);
end;
close(f);
close(g);


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à.
Ôn tập kiến thức phần xâu và phần tệp chuẩn bị tiết sau kiểm tra 1 tiết.