TIN 8 TIẾT 47 CHUẨN

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 smaxEnd;
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