- 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]
Trang 1Ngà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:
1 Ổn định tổ chức:
2 Tiến trình bài học:
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
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);
Lop11.com
Trang 2? 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
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.
Lop11.com