1. Ôn tập kiến thức lí thuyết GV: Cách khai báo biến kiểu tệp? HS: Var <tên biến tệp>: text; GV: Có các thủ tục cơ bản nào khi làm việc với tệp? HS: Assign(<tên biến tệp>,<tên tệp>); Rewrite(<tên biến tệp>); Reset (<tên biến tệp>); Close (<tên biến tệp>); Read/Readln(<tên biến tệp>,<danh sách tên biến>); Write/Writeln(<tên biến tệp>,<danh sách kết quả>); GV: Các hàm nào thường dùng khi đọc/ghi tệp văn bản HS: hàm eof (<tên biến tệp>) hàm eoln(<biến tệp>) 2. Tìm hiểu chương trình ví dụ Để hiểu rõ thế nào là làm việc tới tệp ta xét ví dụ sau: Ví dụ 1 SGK trang 87 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:10:2); end; close(f); End. GV: Hàm eof(f) ở ví dụ trên có chức năng gì? GV: Có thể sử dụng cấu trúc For thay cho While được không? GV: Chương trình này thực hiện công việc gì? 2. Tìm hiểu chương trình ví dụ HS: Hàm trả về giá trị True nếu con trỏ tệp đang chỉ tới cuối tệp HS: Không, vì không biết số lượng phần tử của tệp HS: 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 Chương trình Ví dụ 2 SGK trang 87 Program Dientro; Var a:array[1 5] of real; R1,R2,R3:real; i:integer; f1,f2:text; Begin Assign(f1,’RESIST.DAT’); Reset(f1); Assign(f2,’RESIST.EQU’); Rewrite(f2); While not eof(f1) do Begin Readln(f1,R1,R2,R3); a[1]:=R1*R2*R3/(R1*R2+R1*R3+R2*R3); a[2]:=R1*R2/(R1+R2)+R3; a[3]:=R1*R3/(R1+R3)+R2; a[4]:=R2*R3/(R2+R3)+R1; a[5]:=R1+R2+R3; For i:=1 to 5 do write(f2,a[i]:9:3,’ ‘); Writeln(f2); End; Close(f1); close(f2); End. 2. Tìm hiểu chương trình ví dụ GV: Mảng A dùng để lưu giữ giá trị nào? HS: 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ơ đồ 2. Tìm hiểu chương trình ví dụ Chương trình 3. Câu hỏi và bài tập về nhà Đọc trước nội dung bài: chương trình con và phân loại . khi đọc/ghi tệp văn bản HS: hàm eof (<tên biến tệp& gt;) hàm eoln(<biến tệp& gt;) 2. Tìm hiểu chương trình ví dụ Để hiểu rõ thế nào là làm việc tới tệp ta xét ví dụ sau: Ví dụ 1 SGK trang. Cách khai báo biến kiểu tệp? HS: Var <tên biến tệp& gt;: text; GV: Có các thủ tục cơ bản nào khi làm việc với tệp? HS: Assign(<tên biến tệp& gt;,<tên tệp& gt;); Rewrite(<tên biến tệp& gt;); Reset. GV: Hàm eof(f) ở ví dụ trên có chức năng gì? GV: Có thể sử dụng cấu trúc For thay cho While được không? GV: Chương trình này thực hiện công việc gì? 2. Tìm hiểu chương trình ví dụ HS: Hàm trả