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