Giáo án Tin học 8 - Tiết 47: Bài tập (Tiếp) - Năm học 2009-2010 - Nguyễn Hữu Hải

Thứ 3 ngày 02 tháng 03 năm 2010
TPPCT 47:	
Bài tập 	(Tiếp)
I. Mục đích yêu cầu: 
- 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
- Vận dụng câu lệnh lặp và câu lệnh ghép viết một số bài toán đơn giản.
- Thái độ học tập 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ị :
Giáo án, sách giáo khoa.
Sách giáo viên, tài liệu liên quan
III. Tiến trình lên lớp :
Bài củ :
Bài mới
Hoạt động của giáo viên
Hoạt động của học sinh
Hoạt động 1: Hướng dẫn HS giải quyết một số bài toán 
GV: Đưa ra nội dung bài tập,
Bài tập 1: Nhập vào n số nguyên từ bàn phím, tìm số lớn nhất trong dãy số vừa nhập
GV: 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.
GV: yêu cầu một học sinh đứng tại vị trí diễn tả tuần tự ý nghĩa của chương trình thông qua diễn tả công việc của từng lệnh trong chương trình.
GV: diễn tả lại một lần để học sinh hiểu sâu hơn về chương trình
Bài tập 1: Nhập vào n số nguyên từ bàn phím, tìm số lớn nhất trong dãy số vừa nhập
HS phân tích bài toán tìm hướng giải quyết 
HS: Làm bài dưới sự hướng dẫn của GV
HS: Đọc lại chương trình giáo viên đã viết trên bảng và tìm hiểu từng câu lệnh
Program tim_max;
Uses crt;
Var i, n, smax, A : integer;
Begin
Clrscr;
Writeln(‘nhap vao n’); readln(n);
Smax:=-23768;
For i:= 1 to n do
Begin
Writeln(‘nhap vao so thu ‘,i); readln(A);
If smax<A then smax:=A;
End;
Writeln(‘so lon nhat la’,A); readln
End.
GV: Đưa ra nội dung bài tập.
Bài tập 2: Viết chương trình tính giai thừa của n số tự nhiên đầu tiên.
GV: Đưa ra công thức tính giai thừa: 
giai thừa = 1*2*3*4*5*.*n
GV: Yêu cầu HS tìm hiểu bài toán, viết chương trình cho bài toán.
GV: Kết luận kết quả cuối cùng.
 - Yêu các nhóm gõ chương trình vào máy, cả lớp sửa lỗi nếu có, cho chương trình chạy thử, học sinh quan sát kết quả.
Bài tập 2: Viết chương trình tính giai thừa của n số tự nhiên đầu tiên.
HS: Phân tích bài toán tìm hướng giải quyết.
HS: dựa vào bài tập 1 viết chương trình cho bài toán. (viết theo nhóm).
HS: Đại diện của nhóm đứng lên bảng trình bày kết quả. Các nhóm khác nhận xét, rút kinh nghiệm.
Program tinh_day_thua;
Uses crt;
Var i, n : integer; kq: longint;
Begin
Clrscr;
Writeln(‘nhap vao n’); readln(n);
Kq:=1;
For i:= 1 to n do
Kq:=kq*i;
Writeln(‘ket qua la’,kq); readln
End.
HS: chép lại chương trình đã chạy vào vở.
Hoạt động 2: Củng cố - dặn dò
Giáo viên hệ thống lại toàn bộ 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  do
Yêu cầu HS về nhà ôn tập lại nội dung của bài 6 – 8 tiết sau kiểm tra 1 tiết.