Trường THCS LÊ QUÝ ĐÔN Giáo án tin 8 Tuần : 21 Tiết : 39+40 Ngày soạn: 09/01/2011 Ngày dạy : 10/01/2011 BÀI TẬP I. Mục tiêu 1. Kiến thức - Hiểu hoạt động của câu lệnh lặp với số lần biết trước for…do trong Pascal. - Hiểu lệnh ghép trong Pascal. - Củng cố kiến thức vòng lặp với số lần biết trước và câu lệnh ghép. 2. Kỹ Năng - Viết được chương trình có sử dụng vòng lặp for…do. - Sử dụng được câu lệnh ghép viết một số bài toán đơn giản. - Rèn luyện đọc hiểu chương trình có sử dụng vòng lặp for…do. 3. Thái độ - Có ý thức, kỹ luật, nghiêm túc, tích cực làm các dạng bài tập ứng dụng. II. Chuẩn bị - GV: Soạn giáo án , SGK, máy chiếu, phòng máy… - HS: Vở ghi, SGK, đọc trước nội dung bài học, tìm hiểu một số bài toán và chỉ ra thuật toán III. Phương pháp - Vấn đáp, thuyết trình, trực quan. - Đặt vấn đề, giải quyết vấn đề. IV. Hoạt động dạy và học 1. Ổn định lớp tổ chức lớp - kiểm tra sĩ số lớp. - Ổn định trật tự. 2. Kiểm tra bài cũ - Nêu cấu trúc câu lệnh lặp đơn, câu lệnh lặp ghép, có biết ý nghĩa của câu lệnh lặp. 3. Bài mới - Trong bài học trước em đã được học về câu lệnh lặp, bài học hôm nay chúng ta làm các bài tập có sử dụng câu lệnh lặp. TRẦN THỊ THẢO Năm 2010 - 2011 Trường THCS LÊ QUÝ ĐÔN Giáo án tin 8 HĐ CỦA GV HĐ CỦA HS NỘI DUNG HĐ 1: Bài tập dạng lí thuyết. GV: Đưa ra đề bài toán, yêu cầu học sinh nghiên cứu theo nhóm. GV: Nhận xét kết quả cuối cùng. GV: Đưa bài tập 2 lên bảng, yêu cầu một học sinh đứng tại chỗ trả lời. GV: Kết luận kết quả của bài 2. GV: Đưa ra đề bài toán, yêu cầu học sinh nghiên cứu theo nhóm. GV: Nhận xét. HĐ 2: Bài tập dạng thực hành. GV: Đưa bài tập. GV: Ghi kết quả suy luận của học sinh lên bảng Bài 1: SGK/T60 HS: Hoạt động theo nhóm tìm câu trả lời. HS: Đại diện của hai nhóm trình bày kết quả của nhóm. Bài 2: SGK/T60 HS: Một học sinh đứng tại chỗ trả lời bài tập 2. một học sinh khác đứng tại chỗ nhận xét. Bài 3: SGK/T60 HS: Hoạt động theo nhóm tìm câu trả lời. HS: Đại diện của hai nhóm trình bày kết quả của nhóm. Bài 4: SGK/T61 HS: Suy luận kết quả theo lí thuyết. HS: gõ chương trình vào máy và chạy thử. HS: So sánh kết quả nhận được với kết quả đã suy lận. HS giải thích kết quả thu được. Bài 1: SGK (T60) Ví dụ: Các ngày trong tuần các em đều lặp đi lặp lại hoạt động buổi sáng đến trường và buổi trưa trở về nhà. Các em học bài thì phải đọc đi đọc lại nhiều lần cho đến khi thuộc bài. Bài 2: SGK (T60) Câu lệnh lặp có tác dụng chỉ dẫn cho máy tính thực hiện lặp lại một câu lệnh hay một nhóm câu lệnh với một số lần nhất định. Câu lệnh lặp làm giảm nhẹ công sức của người viết chương trình. Bài 3 : SGK (T60) Điều kiện cần kiểm tra trong câu lệnh lặp for … do là giá trị của biến đếm phải nằm trong đoạn [giá trị đầu, giá trị cuối ], nếu thoả mãn điều kiện đó thì câu lệnh sẽ được thực hiện, nếu không thoả mãn câu lệnh sẽ bị bỏ qua. Bài 4: SGK (T61) Giá trị của j sau mỗi lần lặp sẽ được tăng thêm 2 đơn vị 2, 4, 6, 8, 10, 12. Gõ chương trình vào máy chạy thử: Program bai_tap_4; Uses crt; Var i,j:integer; Begin Clrscr; j:=0; For i:= 0 to 5 do j:=j+2; Writeln(‘Tong la j = ‘,j); Readln TRẦN THỊ THẢO Năm 2010 - 2011 Trường THCS LÊ QUÝ ĐÔN Giáo án tin 8 GV: Đưa ra đề bài toán và yêu cầu một học sình đứng tại vị trí để trả lời bài tập. GV: Nhận xét kết quả câu trả lời của 2 bạn. GV: Đưa ra bài tập. GV: Giúp các em hoàn thành thuật toán. Bài 5: SGK/T61 HS: Một em đứng tại vị trí trả lời, 1 em khác nhận xét. Bài 6: SGK/T61 HS: Làm việc theo nhóm, sau 5 phút đại diện của 2 nhóm sẽ lên báo báo kết quả. Các nhóm khác nhận xét End. Bài 5: SGK (T61) Tất cả các câu lệnh đều không hợp lệ vì: a) Giá trị đầu lớn hơn giá trị cuối. b) Giá trị đầu và giá trị cuối có kiểu là số thực không cùng kiểu với biến đếm. c) Sai cấu trúc câu lệnh. d) Sai cấu trúc câu lệnh. e) Biến đếm có kiểu là kiểu số thực nên không hợp lệ. Bài 6: SGK (T 61) Mô tả thuật toán. Bước 1: nhập n A<-0, i<-1 Bước 2: A ← 1 ( 2)i i + . Bước 3: i<-i+1 Bước 4: Nếu i<=n quay về bước 2 Bước 5: Ghi kết quả A ra màn hình và kết thúc thuật toán. 4. Củng cố - Giáo viên hệ thống lại toàn bộ nội dung bài học. - Giáo viên nhận xét tiết học, rút kinh nghiệm tiết học. 5. Hướng dẫn về nhà - Học bài theo sách giáo khoa và vở ghi, ôn lại các kiến thức chính đã học và luyện viết, làm đi làm lại nhiều lần. - Học kĩ lí thuyết, viết chương trình tính tông 100 số tự nhiên, N số tự nhiên đầu tiên. - về nhà viết chương trình pascal bài 6 SGK (T61) - Đọc bài mới tuần sau học. TRẦN THỊ THẢO Năm 2010 - 2011 Trường THCS LÊ QUÝ ĐÔN Giáo án tin 8 Bài 1. Thuật toán: Bước 1. Nhập các số n và x. Bước 2. A ← 1, i ← 0 (A là biến lưu luỹ thừa bậc n của x). Bước 3. i←i + 1, A ← A.x. Bước 4. Nếu i < n, quay lại bước 3. Bước 5. Thông báo kết quả A là luỹ thừa bậc n của x và kết thúc thuật toán. Chương trình Pascal có thể như sau: Var n,i,x: integer; a: longint; Begin Write('Nhap x='); readln(x); Write('Nhap n='); readln(n); A:=1; For i:=1 to n do A:=A*X; Writeln(x,' mu ',n,' bang ',A); Readln End. Bài 2. Thuật toán: Bước 1. Nhập số n. Bước 2. A← −32768 (gán SNN có thể trong các số kiểu nguyên cho A), i ←1. Bước 3. Nhập số thứ i và gán giá trị đó vào biến A. Bước 4. Nếu Max < A, Max ← A. Bước 5. i ←i + 1. Bước 6. Nếu i ≤ n, quay lại bước 3. Bước 7. Thông báo kết quả Max là số lớn nhất và kết thúc thuật toán. Chương trình Pascal có thể như sau: Uses crt; Var n,i,Max,A: integer; Begin Clrscr; Write('Nhap N='); readln(n); Max:=-32768; For i:=1 to n do TRẦN THỊ THẢO Năm 2010 - 2011 Trường THCS LÊ QUÝ ĐÔN Giáo án tin 8 Begin Write('Nhap so thu ',i,':'); Readln(A); if Max<A then Max:=A End; Writeln('So lon nhat: ',Max); End. Lưu ý: Trong chương trình trên chúng ta chỉ sử dụng hai biến A và Max để giải bài toán. Một cách tự nhiên, để nhập n số chúng ta cần tới n biến. Tuy nhiên, ở đây việc xử lí các giá trị trong dãy số có thể thực hiện bằng cách chỉ cần so sánh các giá trị đã được nhập vào, do đó chúng ta chỉ cần một biến để lưu lần lượt các giá trị nhập vào là đủ. Một cách giải quyết khác là sử dụng biến mảng (xem bài tập 6, bài 9). Bài 3. Lời giải bài này tương tự như lời giải của bài 9 ở trên (xem thuật toán trong lời giải bài tập 5a, bài 5). Chương trình Pascal có thể như sau: Uses crt; Var n,i,SoDuong,A: integer; Begin Clrscr; Write('Nhap N='); Readln(n); If n>0 then Begin SoDuong:=0; For i:=1 to n do Begin Write('Nhap so thu ',i,':'); Readln(A); If A>0 then SoDuong:=SoDuong+1 End; Writeln('So cac so duong = ',SoDuong) End; Else writeln('n phai > 0!'); End. TRẦN THỊ THẢO Năm 2010 - 2011 . lặp sẽ được tăng thêm 2 đơn vị 2, 4, 6, 8, 10, 12. Gõ chương trình vào máy chạy thử: Program bai_ tap_ 4; Uses crt; Var i,j:integer; Begin Clrscr; j:=0; For i:= 0 to 5 do j:=j+2; Writeln(‘Tong