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

Ngày soạn: 15/03/2009
Ngày giảng: 17/03/2009
Tiết theo PPCT: 36
§16. V Í D Ụ L ÀM VIỆC VỚI TỆP
I - Mục tiêu bài học
1. Kiến thức:
- Củng cố lại kiến thức đã học về tệp trong chương 5 thông qua ví dụ.
2. Kĩ năng:
- Sử dụng được các hàm và thủ tục liên quan để giải quyết các bài
II – Phương pháp, phương tiện dạy học
- Phương pháp: Đàm thoại, giảng giải…
- Phương tiện: sgk, giáo án…
2. Kiểm tra bàì cũ
3. Nội dung bài mới

HOẠT ĐỘNG CỦA GIÁO VIÊN VÀ HỌC SINH
NỘI DUNG

?Cách khai báo biến kiểu tệp?
- Var : Text;
?Có các thủ tục cơ bản nào khi làm việc với tệp?
- Assign(,);
- Rewrite();
- Reset();
- Close();
-Read/Readln(, );
- Write/Writeln(,
);
- Eof();
?Chương trình này thực hiện công việc gì?




? Cho biết ý nghĩa của các biến sử dụng trong chương trình?










?Có thể sử dụng cấu trúc For thay cho While được không?
- Không. Vì không biết số lượng phần tử của tệp.

- Giới thiệu đề bài
?Công thức tính điện trở của sơ đồ II, III, IV.
?Mảng a dùng để lưu giữ giá trị nào?


GV gợi ý chương cho học sinh.




? Thực hiện khai báo?





? Tác dụng của các câu lệnh:
- assign
- rewrite
- Đoạn chương trình từ For…end;






- Lệnh Close















Ví dụ 1:

- Tính và đưa ra màn hình khoảng cách từ trại của thầy hiệu trưởng đến trại của mỗi giáo viên.
Program khoang_cach;
Var d:real;
f:text;
x,y:integer;
begin
assign(f, ‘TRAI.TXT’);
reset(f);
while not eof(f) do
begin
read(f,x,y);
d:=sqrt(x*x + y*y);
writeln(‘khoang cach:’,d);
end;
close(f);
end.




Ví dụ 2.




- Dùng để lưu giữ điện trở tương đương của 3 điện trở theo 5 cách ghép nối như trong sơ đồ.

Ví dụ 3:
Đọc vào một dãy n số nguyên (n<=100), ghi dãy số đó vào tệp có tên là ‘BAITAP.INP’
Program bt;
Var f:text;
A : array[1..100] of integer;
i, n : byte;
begin
assign(f,BAITAP.INP’);
rewrite(f);
write(‘nhap n=’);
readln(n);
for i:=1 to n do
begin
write(‘nhap so thu’,i=’);
readln(A[i]);
write(f,A[i]);
end;
close(f);
end.


IV - Củng cố
- Các thao tác cơ bản với tệp
Bài tập về nhà
Mở tệp ‘BAITAP.INP’ in dãy số ra màn hình. Tính tổng của dãy số đó.