Giáo án môn Tin học 11 - Tiết 40: Bài tậ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.