TIN 8 TUAN 21 TIET 39 40

đều không hợp lệ: a Giá trị đầu phải nhỏ hơn giá trị cuối; b Các giá trị đầu và giá trị cuối phải là số nguyên; c Thiếu dấu hai chấm khi gán giá trị đầu; d Thừa dấu chấm phẩy thứ nhất, n[r]

Tuần: 21 Tiết: 39 Ngày soạn: 13/01/2013 Ngày dạy: 15/01/2013 BÀI TẬP I MỤC TIÊU: Kiến thức:Củng cố sử dụng câu lệnh điều kiện và câu lệnh lặp Kỹ năng: Biết vận dụng câu lệnh IF Then và For … vào số bài tập đơn giản Thái độ: Tập trung cao độ, có ý thức tư duy, có thái độ ham học hỏi nghiêm túc học II CHUẨN BỊ: Giáo viên: SGK, giáo án, máy chiếu, phòng máy Học sinh: Đọc trước bài, SGK, đồ dùng học tập III TIẾN TRÌNH TIẾT DẠY: Ổn định tổ chức lớp : (2’) Kiểm tra bài cũ: Kết hợp kiểm tra quá trình làm bài tập Bài : (40’) Hoạt động giáo viên Hoạt động học sinh Kiến thức ghi bảng Hoạt đông 1: Bài tập (7’) Gv:Bài 4\T61 HS: Đọc Bài 4/61 * Bài tập 4: Hs: Suy nghĩ làm bài tập Giá trị cuối cùng j = Gv: Giáo viên nhận xét và HS: Lên bảng làm bài tập 12 giải thích j:=0 ban đầu sau đó cho i chạy đến Mỗi lần i tăng lên j tăng lên Vòng lặp lặp lần nên j=12 Hoạt đông 2: Bài tập (13’) Bài Các câu lệnh Pascal Hs: Đọc bài tập * Bài tập 5: sau có hợp lệ không ? vì Hs: Suy nghĩ và làm bài tập Trừ d), tất các câu lệnh sao? a) for i:=100 to writeln(‘A’); b) for i:=1.5 to 10.5 writeln(‘A’); c) for i=1 to 10 writeln(‘A’); d) for i:=1 to 10 do; writeln(‘A’); e) var x:real; begin for x:=1 to 10 writeln(‘A’); end không hợp lệ: a) Giá trị đầu phải nhỏ giá trị cuối; b) Các giá trị đầu và giá trị cuối phải là số nguyên; c) Thiếu dấu hai chấm gán giá trị đầu; d) Thừa dấu chấm phẩy thứ nhất, ta muốn lặp lại câu lệnh writeln('A') mười lần, ngược lại câu lệnh là hợp lệ; e) Không hợp lệ vì biến đếm là biến có kiểu số thực Hoạt đông 3: Bài tập (20’) Bài 6\T61 Hs: Đọc bài tập Hs: Suy nghĩ và trà lời Gv: Gợi ý việc mô tả thuật Hs: Lắng nghe và suy nghĩ toán bài trên giống mô thêm và đưa thuật toán tả thuật toán bài tính tổng A=A + 1/i(i+2) Gv: Gợi ý cho - Hs thấy Mô tả thuật toán tang dần mẫu số B1: a=0; i=0; 1.3 2.4 3.5 B2: i i+1 Vậy ghi tổng quát là B3: i<n thì a a+ n(n+2) 1/i(i+2) ngược lại kết thúc Cho I chạy từ đến n thì i(i+2) Gv: Hướng dẫn học sinh viết chương trình * Bài tập 6: Thuật toán tính tổng A = 1 1    n(n  1) Bước Gán A  0, i  1 Bước A  i (i  2) Bước i  i + Bước Nếu i  n, quay lại bước Bước Ghi kết A và kết thúc thuật toán Củng cố: (2’) - Câu lệnh lặp với số lần biết truxcs và tác dụng chúng Hướng dẫn nhà: (1’) - Viết chương trình tính tổng BT6\T61 - Soạn bài thực hành - Tiết sau tiếp tục chữa bài tập Rút kinh nghiệm: Tuần: 21 Tiết: 40 Ngày soạn: 13/01/2013 Ngày dạy: 18/01/2013 BÀI TẬP I MỤC TIÊU: Kiến thức:Củng cố sử dụng câu lệnh điều kiện và câu lệnh lặp Kỹ năng: Biết vận dụng câu lệnh IF Then và For … vào số bài tập đơn giản Thái độ: Tập trung cao độ, có ý thức tư duy, có thái độ ham học hỏi nghiêm túc học II CHUẨN BỊ: Giáo viên: SGK, giáo án, máy chiếu, phòng máy Học sinh: Đọc trước bài, SGK, đồ dùng học tập III TIẾN TRÌNH TIẾT DẠY: Ổn định tổ chức lớp : (2’) Kiểm tra bài cũ: Kết hợp kiểm tra quá trình làm bài tập Bài : (40’) Hoạt động giáo viên Hoạt động học sinh Kiến thức ghi bảng Hoạt đông 1: Bài tập (20’) * Bài tập 1: Gv: Cho thuật toán sau : hãy suy Hs: Suy nghĩ làm bài tập * Nội dung chương trình: nghĩ và viết chương trình: HS: Lên bảng viết chương Bước Nhập các số n và x Bước A  1, i  (A là biến trình * Nội dung chương trình: lưu luỹ thừa bậc n x) var n,i,x: integer; a: longint; Bước ii + 1, A  A.x Bước Nếu i < n, quay lại bước begin write('Nhap x='); readln(x); Bước Thông báo kết A là write('Nhap n='); readln(n); luỹ thừa bậc n x và kết thúc A:=1; thuật toán for i:=1 to n A:=A*X; Gv: Nếu học sinh còn lúng túng writeln(x,' mu ',n,' bang ',A); giáo viên có thể hướng dẫn thêm Hoạt đông 1: Bài tập (20’) * Bài tập 2: Gv: Cho thuật toán sau : hãy suy Hs: Suy nghĩ làm bài tập HS: Lên bảng viết chương * Nội dung chương trình: nghĩ và viết chương trình: trình Bước Nhập số n Bước A 32768 (gán số nhỏ * Nội dung chương trình: có thể các số kiểu nguyên cho A), i 1 Bước Nhập số thứ i và gán giá trị đó vào biến A Bước Nếu Max < A, Max  A Bước i i + Bước Nếu i ≤ n, quay lại bước Bước Thông báo kết Max là số lớn và kết thúc thuật toán uses crt; var n,i,Max,A: integer; begin clrscr; write('Nhap N='); readln(n); Max:=-32768; for i:=1 to n begin write('Nhap so thu ',i,':'); readln(A); if Max<A then Max:=A end; writeln('So lon nhat: ',Max); end Củng cố: (2’) - Câu lệnh lặp với số lần biết trước Hướng dẫn nhà: (1’) - Viết chương trình tính tổng BT6\T61 - Soạn bài thực hành - Tiết sau thực hành Rút kinh nghiệm: