Giáo án môn Tin học 11 - Bài 16: Ví dụ làm việc với tệp (45 phút)

<span class='text_page_counter'>(1)</span>Tên : Thành Quang tuyên Trường : DTNT.PR Bài 16: VÍ DỤ LÀM VIỆC VỚI TỆP (45p) I, Mục đích và yêu cầu: - Hiểu các thao thao tác làm việc với tệp gồm gắn tên tệp, mở đóng tệp, đọc/ghi dữ liệu từ tệp. II, Phương tiện: - Máy chiếu. - bảng, phấn viết, ..... III, Nội dung: Nội dung. Hoạt động GV và HS. Ổn định lớp. Ví dụ 1: Tính khoảng cách (trong sgk) Program KC Var d: real ; f: text ; x,y : integer ; begin assign(f,’ TRAI.TXT ’) ; reset(f) ; while not eof(f) do begin real(f,x,y) ; d := sqrt (x*x + y*y) ; writeln(‘ khoảng cách :’,d:10:2) ; end ; close(f) end. Ví dụ 2: Tính điện trở tương đương.(sgk) 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 ;. GV: Nhắc lại công thức tính K/C. GV: Hỏi HS khai báo biến tệp. HS: Trả lời. GV: Giải thích cụ thể chương trình trong VD1 như là từ khoá, biến ,câu lệnh có ý nghĩa như thế nào, câu lện dọc/ghi....... HS: Lắng nghe và hỏi GV.. GV: Vẽ sơ đồ Hình 17,viết công thức tính R. HS : ghi bài và lắng nghe. GV: Nói rõ về việc đọc DL từ tệp văn bản 1 và ghi DL vào tiệp văn bản 2. HS: Lắng nghe GV: Giải thích cụ thể chương trình trong VD2 như là từ khoá, biến ,câu lệnh có ý nghĩa như thế nào, câu lện dọc/ghi........ Lop11.com.

<span class='text_page_counter'>(2)</span> 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.. IV, Củng cố: - Nhắc lại khai báo: kiểu dữ liệu,biến, mở/đóng , đọc/ghi tệp. - Làm bài tập trong sách bài tập.. Lop11.com.

<span class='text_page_counter'>(3)</span>