- Yêu cầu học sinh chạy thử chương Assign f1,’reist.dat’; trình... - Cho hs chạy thử chương trình trên Assign f2,’reist.EQU’; với những bộ Input khác nhau...[r]
(1)Ngày soạn: 10/3 Ngày dạy: 15/3 Tiết: 40 BÀI TẬP I.Mục đích: + Củng cố lại kiến thức đã học + Vận dụng kiến thức kỹ đã học vào giải các bài tập đúng, chính xác + Học sinh yêu thích giải bài toán lĩnh vực tin học II.Biện pháp: Dạy và học phát và giải vấn đề III Phương tiện: - GV: Sách bài tập và số bài tập nâng cao - HS: SGK, bút vở, nháp… IV Nội dung tiết dạy: Ổn định tổ chức: Tiến trình bài học: Hoạt động Nội dung A./ Lý thuyết Gv:Yêu cầu học sinh lên bảng nêu ? Nêu khái niệm, viết khai báo làm việc với khái niệm và viết khai báo tệp B./ B ài t ập - HS: Lên bảng viết khai báo Chương tr ình sau thực gì? GV: Nhận xét cho điểm Program dientro; Var a:array [1 5]of real; GV: Chia học sinh thành nhóm I: interger; giao bài F1, f2: text; Begin - Yêu cầu học sinh chạy thử chương Assign (f1,’reist.dat’); trình Reset (f1); - Cho hs chạy thử chương trình trên Assign (f2,’reist.EQU’); với Input khác Reset (f2); Lop11.com (2) While not eof (f1) ? Cho biết chương trình trên thực Begin công việc gì Readln (f1, r1, r2, r3); A[1]:= r1*r2*r3/( r1*r2 +r1*r3 +r3*r2); HS: Làm theo yêu cầu GV 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 write (f2,a [i]:9:3, ‘ ‘); Writeln (f2); End; Close (f1); Close (f1); End Củng cố: Nhắc lại câu lệnh Close cuối ctrinh dùng để làm gì Dặn dò: Về nhà học bài và l àm tiếp các bài tập SGK trang 79 Lop11.com (3)