Hãy tìm hiểu mỗi đoạn lệnh sau đây và cho biết với đoạn lệnh đó chương trình thực hiện bao nhiêu vòng lặp?. Hãy rút ra nhận xét của em..[r]
(1)TUAÀN 24 Từ ngày 1/2/2010 đến ngày 7/2/2010 Ngày dạy: Tieát 47, 48: BÀI TẬP A MUÏC TIEÂU: - Kiểm tra lại kiến thức đã học B CHUAÅN BÒ: - GV:giáo án, sgk - HS: sgk C TIẾN TRÌNH LÊN LỚP: Ổn định: lớp 8/1 lớp 8/2………………………………………………………………………… Kiểm tra bài cũ: - Nêu vài ví dụ hoạt động lặp với số lần chưa biết trước Dạy bài mới: Tieát 47: Hãy phát biểu khác biệt câu lệnh lặp với số lần biết trước và câu lệnh lặp với số lần chưa biết trước Hãy tìm hiểu các thuật toán sau đây và cho biết thực thuật toán, máy tính thực bao nhiêu vòng lặp? Khi kết thúc, giá trị S bao nhiêu? Viết chương trình pascal thể các thuật toán đó a Thuật toán 1: Bước 1: S 10, x 0.5 Bước 2: Nếu S<= 5.2, chuyển tới bước Bước 3: S S – x và quay lại bước Bước 4: Thông báo s và kết thúc thuật toán b Thuật toán 2: Bước 1: S 10, n Bước 2: Nếu S>= 10, chuyển tới bước Bước 3: n n + 3,S S – n và quay lại bước Bước 4: Thông báo s và kết thúc thuật toán Tieát 48: Hãy tìm hiểu đoạn lệnh sau đây và cho biết với đoạn lệnh đó chương trình thực bao nhiêu vòng lặp? Hãy rút nhận xét em a S:= 0; n:= 0; while S<= 10 begin n:= n+1; S:= S+n end; a S:= 0; n:= 0; while S<= 10 n:= n+1; S:= S+n ; Hãy lỗi các câu lệnh sau đây: a X:= 10; while X:= 10 X:= X+5; b X:= 10; while X= 10 X= X+5; c S:= 0; n:= 0; while S<= 10 n:= n+1; S:= S+n; Củng cố: - Học sinh ôn lại các bài tập Lop8.net (2) Dặn dò: - Chuẩn bị bài tiết sau thực hành 6.Ruùt kinh nghieäm: Tieát 47: - Tieát 48: - TUAÀN 25 Từ ngày 1/2/2010 đến ngày 7/2/2010 Ngày dạy: Tieát 49, 50: SỬ DỤNG LỆNH LẶP WHILE….DO A MUÏC TIEÂU: - Viết chương trình pascal sử dụng câu lệnh lặp với số lần chưa biết trước - Rèn luyện khả đọc chương trình, tìm hiểu tác dụng các câu lệnh B CHUAÅN BÒ: - GV:giáo án, sgk, phòng máy - HS: sgk C TIẾN TRÌNH LÊN LỚP: Ổn định: lớp 8/1 lớp 8/2………………………………………………………………………… Kiểm tra bài cũ: - Không có Dạy bài mới: Giáo viên Học sinh Tieát 49: - Hs đọc và thực hành Bài 1: Viết chương trình sử dụng lệnh lặp While…do để tính trung bình n số thực x1, x2, …, xn Các số n vàx1, x2, …, xn nhập vào từ bàn phím a Mô tả thuật toán chương trình, các biến dự định sử dụng và kiểu chúng b Gõ chương trình sau và lưu với tên Tinh_TB: program tinhtrungbinh; uses crt; var n, dem : integer; x, tb : real; begin clrscr; dem:= 0; tb:= 0; write(‘ Nhap so cac so can tinh n =’); readln(n); while dem < n begin Lop8.net (3) dem:= dem + 1; write(‘Nhap su thu’, dem, ‘ =’); readln(x) tb:= tb + x; end; tb:= tb/x; writeln(‘Trung binh cua’, n , ‘so la =’, tb :10 :3); writeln(‘Nhan enter de thoat…’); readln end c Đọc và tìm hiểu ý nghĩa câu lệnh, dịch chương trình và sữa lỗi, chạy chương trình với các liệu gõ từ bàn phím d Viết lại chương trình cách sử dụng lệnh for…do thay cho while…do Tieát 50: Bài 2: Tìm hiểu chương trình và nhận biết số tự nhiên N nhập vào từ bàn phím có phải là số nguyên tố hay không a Đọc và tìm hiểu ý nghĩa câu lệnh sau: uses crt; var n, i : integer; begin clrscr; write(‘Nhap vao mot so nguyen to:’); readln(n); If n <= then writeln(n, ‘khong la so nguyen to’) else Begin i:= 2; while (n mod i<>0) i:= i +1; If i = n then writeln(n,’la so nguyen to!’) else Writeln(n, ‘k phia la so nguyen to!’); End; Readln End b Gõ, dịch và chạy thử chương trình với vài độ chính xác khác Củng cố: Dặn dò: - Chuẩn bị bài tiết sau ôn tập 6.Ruùt kinh nghieäm: Tieát 49: - Tieát 50: - Lop8.net (4) Lop8.net (5)