ga11 tiết 15 tin học 11 thái sanh thư viện giáo dục tỉnh quảng trị
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (127.92 KB, 3 trang )
<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>
<i><b>Tiết thứ 15</b></i> Ngày soạn 29- 11- 2008
<b>BÀI TẬP ÔN TẬP (T1)</b>
<b>A-MỤC TIÊU:</b>
<b>1- Kiến thức</b>:
+ Học sinh biết vận dụng hệ thống các câu lệnh vào giải một bài toán cụ thể.
+ Biết cách sử dụng biến, hằng và câu lệnh ghép
+ Viết đúng câu lệnh rẽ nhánh, lặp
<b>2- Kỹ năng:</b>
+ Sử dụng câu lệnh của NNLT PASCAL diễn đạt một số thuật toán đơn giản.
+ Khi nào cần sử dụng câu lệnh lặp với số lần lặp biết trước và chưa biết trước,
câu lệnh rẽ nhánh…
<b>3- Thái độ:</b>
<b>+ </b>Chính xác, nghiên cứu mở rộng ứng dụng câu lệnh.
<b>B- PHƯƠNG PHÁP GIẢNG DẠY</b>:
+ Thuyết trình, hỏi đáp và giảng giải, minh họa sơ đồ cấu trúc câu lệnh.
<b>C- CHUẨN BỊ:</b>
<b>1. Giáo viên</b>:<b> </b>Giáo án, SGK, SGV, Máy chiếu.
<b>2. Học sinh: </b>SGK, Vở ghi bài và vở chuẩn bị bài ở nhà.
<b>D-TIẾN TRÌNH LÊN LỚP</b>:
<b>1- Ỏn định lớp- Kiểm tra sĩ số</b><i><b>:(1 phút) </b></i>
<b>Lớp</b> 11B1 11B2 11B3 11B4 11B5
<b>Sĩ số</b>
<b>2- Kiểm tra bài cũ:</b> (Kiểm tra trong quá trình sửa bài tập)
<b>3- Nội dung bài mới</b>:
<i><b>a- Đặt vấn đề (1 phút):</b></i>
Với những bài trước các em đã biết hệ thống các câu lệnh. Để
nắm được ứng dụng của câu lệnh đó vào bài tóan cụ thể. Hơm nay các
em sẽ làm một số bài tập ứng dụng.
<i><b>b- </b></i>Tri n khai b i m i:ể à ớ
<b>HOẠT ĐỘNG CỦA THẦY VÀ TRÒ</b> <b>NỘI DUNG CƠ BẢN</b>
<b>Hoạt động 1: </b><i><b>(20 phút)</b></i>
(Bài tập về câu lệnh lặp số lần chưa biết
trước.)
Gv:Đưa bài toán lên máy chiếu như sau:
Lập trình tính
<i>e</i>(<i>n</i>)=1+ 1
1<i>!</i>+
1
2<i>!</i>+. . .+
1
<i>n !</i>
Cho đến khi <i><sub>n!</sub></i>1 <2<i>x</i>10<i>−</i>6 . Đưa giá trị e(n)
ra màn hình.
Hãy xác định Input và Output của bài toán?
Hs:Trả lời Input và Output
Gv: Chia lớp thành 4 nhóm:
Nhóm 1:Viết cách khia báo biến
1 .Bài tập về câu lệnh lặp:
Bài tập 5b(SGK/51): Lập trình tính
<i>e</i>(<i>n</i>)=1+ 1
1<i>!</i>+
1
2<i>!</i>+. . .+
1
<i>n !</i>
Cho đến khi <i><sub>n!</sub></i>1 <2<i>x</i>10<i>−</i>6 <sub>. Đưa giá </sub>
trị e(n) ra màn hình.
program bai5b_chuong3;
{ Tinh tong E =1 + 1/1! + 1/2! + 1/3!
+ .. + 1/n! cho den khi 1/n! <2x10-6}
uses crt;
</div>
<span class='text_page_counter'>(2)</span><div class='page_container' data-page=2>
Nhóm 2:Viết các câu lệnh gán ban đầu
Nhóm 3:Viết đoạn chương trình lặp While.
Nhóm 4:Sắp xếp có thứ tự các câu lệnh.
Hs:Hoạt động theo nhóm.
Gv:Gọi một số nhóm nhận xét và bổ sung
cho chương trình.
Đưa chương trình lên máy chiếu và chạy
để xem kết quả.
Có thể thực hiện chương trình trên theo
nhiều cách khác nhau. Giáo viên nhận xét
và cho điểm một số nhóm có ý tưởng đúng
và sáng tạo.
<b>Hoạt động 2: </b><i><b>(20 phút)</b></i>
<b>Gv:</b>Đưa bài toán lên máy chiếu như sau:
Hãy viết chương trình tính giá trị của biểu
thức:
S:=
<sub>∑</sub>
<i>i</i>=1
50
<i>n</i>
<i>n</i>+1
Hãy cho biết số lần lặp bao nhiêu lần?
<b>Hs:</b>Số lần lặp biết trước 50 lần
<b>Gv:</b>
Bài toán khi cho biết trước số lần lặp thì
chúng ta nên sử dụng câu lệnh nào?
<b>Hs:</b> FOR...TO
<b>Gv:</b>Bài toán trên khai báo những biến và
kiểu như thế nào?
<b>Hs:</b> i,n: Integer; Y:Real;
<b>Gv:</b> Chia lớp thành nhiều nhóm viết chương
trình và thảo luận.
<b>Gv: </b>Đưa đoạn chương trình sau lên máy
chiếu để Hs so sánh cách làm của Hs
Hãy sửa lại chương trình lưu lại với tên
BT1,nhấn tổ hợp phím Ctrl +F9 và cho biết
kết quả bằng bao nhiêu?
<b>Hs:</b>Chạy chương trình để trả lời kết quả.
i,n,GT: longint;
E:real;
BEGIN
clrscr;
E:=1;
GT:=1;
i:=1;
while (1/gt>=0.0000002) do
Begin
GT:=GT*i;
E:= E + 1/GT;
i:=i+1;
end;
writeln(' N = ',i:7);
writeln(' E = ',E:7:2);
writeln('1/GT = ',1/GT:15:10);
readln;
END.
Bài tập 2:
<i><b>a.Bài toán1:(5a/51(SGK)) Hãy viết</b></i>
<i><b>chương trình tính giá trị của biểu</b></i>
<i><b>thức:</b></i>
<i><b>S=</b></i>
<sub>∑</sub>
<i>n</i>=1
50
<i>n</i>
<i>n</i>+1
Program bai5_chuong3;
{ Tinh tong
Y = 1/2 + 2/3 + 3/4 + .. + n/(n+1) }
uses crt;
Var
i,n: byte;
Y:real;
BEGIN
clrscr;
Y:=0;
For i:=1 to 50 do Y:= Y + i/(i+1);
writeln(' Y = ',Y:7:2);
readln;
END.
<b>4- CỦNG CỐ </b><i><b>(2 phút): </b></i>
Đưa lên màn hình máy chiếu mẫu như sau:
Em hãy hồn thiện chương trình sau để tính tổng <i>S</i>=1+1
4+
1
9+. ..+
1
</div>
<span class='text_page_counter'>(3)</span><div class='page_container' data-page=3>
cho đến khi 1/n2<sub><0,0001</sub>
Var
...;
Begin
S:=...;
n:=...;
While...Do
Begin
S:=S+....;
N:=N+....;
End;
Writeln(‘Tong S=’,....);
Readln;
End.
<b>5- DẶN DÒ </b><i><b>(1 phút)</b></i>
</div>
<!--links-->
