ghi vào tệp SND.TXT các số là begin nguyên dương được đọc từ tệp assignf,’sn.txt’; SN.TXT resetf; writeln‘day so nguyen cua tep sn.txt la:’; Yêu cầu học sinh soạn thảo chương while noteo[r]
Trang 1Ngày soạn:2/2/2013
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
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
Trang 2chươ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á
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