Hoạt động 2: 30’ -Bài tập: + Bài tập 1 -Giáo viên đưa ra nội dung bài tập, -Hướng dẫn học sinh cách làm và viết chương trình lên bảng và yêu cầu học sinh đọc hiểu.. -Yêu cầu một học sinh[r]
(1)Tuần: 21 Tiết: 42 Ngày soạn:5/1/2010 Ngày dạy:11/2010 BÀI TẬP I Mục tiêu: Kiến thức: Sử dụng các kiến thức đã học để làm số bài tập Kĩ năng: Rèn luyện kĩ sử dụng các câu lệnh Pascal Thái độ: Thái độ học tập nghiêm túc, yêu thích môn học II Chuẩn bị: Gv: Sách giáo khoa, máy tính điện tử Hs: xem bài trước nhà III Tiến trình bài dạy: HOẠT ĐỘNG CỦA GV Hoạt động 1: 8’ -Ổn định lớp: -Kiểm tra bài cũ: -Viết chương trình pascal cho bài SGK (T61) Hoạt động 2: 30’ -Bài tập: + Bài tập -Giáo viên đưa nội dung bài tập, -Hướng dẫn học sinh cách làm và viết chương trình lên bảng và yêu cầu học sinh đọc hiểu -Yêu cầu học sinh đứng vị trí diễn tả ý nghĩa chương trình thông qua diễn tả công việc lệnh chương trình -Diễn tả lại lần để học sinh hiểu sâu chương trình HOẠT ĐỘNG CỦA HS NỘI DUNG Bài tập 1: Nhập vào n số nguyên từ bàn phím, tìm số lớn -HS phân tích bài toán tìm hướng giải dãy số vừa nhập Program tim_max; Uses crt; -Đọc lại chương trình Var i, n, smax, A : integer; giáo viên đã viết trên bảng và tìm hiểu câu Begin lệnh Clrscr; Writeln(‘nhap vao n’); readln(n); Smax:=-23768; For i:= to n Begin Writeln(‘nhap vao so thu ’,i); readln(A); If smax<A then smax:=A; End; Lop8.net (2) Writeln(‘so lon nhat la’,A); readln End + Bài tập 2: Viết chương trình tính day thừa n số tự nhiên đầu tiên - Đưa công thức tính day thừa: day thừa =1*2*3*4*5*….*n Đại diện nhóm đứng lên bảng trình bày kết Các nhóm khác nhận xét, rút kinh nghiệm - Kết luận kết cuối cùng Yêu cầu học sinh lên máy chính gõ chương trình vào máy, lớp sửa lỗi có, cho chương trình chạy thử, học sinh quan sát kết Bài tập 2: Viết chương trình tính day thừa n số tự nhiên -HS phân tích bài toán đầu tiên tìm hướng giải Program tinh_day_thua; -HS: dựa vào bài tập viết chương trình cho bài toán (viết theo nhóm) -HS: chép lại chương trình đã chạy vào Uses crt; Var i, n : integer; kq: longint; Begin Clrscr; Writeln(‘nhap vao n’); readln(n); Kq:=1; For i:= to n Kq:=kq*i; Hoạt động 3:5’ -Củng cố: -Giáo viên hệ thống lại toàn nội dung bài học -Nhấn mạnh ý nghĩa và công dụng, cách sử dụng vòng lặp for … -Nhận xét, rút kinh nghiệm buổi học Hoạt động 4:2’ -Học bài theo sách giáo khoa và ghi, Ôn lại các kiến thức chính đã học và luyện viết, làm 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 Writeln(‘ket qua la’,kq); readln End Lop8.net (3)