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