Giáo án Tin học 8 - Tiết 42: Bài tập - Năm học 2009-2010

Tuần: 21	Ngày soạn:5/1/2010
Tiết: 42 	Ngày dạy:11/2010
BÀI TẬP
I. Mục tiêu:
	1. Kiến thức: Sử dụng các kiến thức đã học để làm một số bài tập
	2. Kĩ năng: Rèn luyện kĩ năng sử dụng các câu lệnh trong Pascal
3. 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 CỦA HS
NỘI DUNG
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 6 SGK (T61).
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 đứ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.
-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 2: Viết chương trình tính day thừa của n số tự nhiên đầu tiên.
- Đưa ra công thức tính day thừa: 
day thừa =1*2*3*4*5*.*n
Đạ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.
- Kết luận kết quả cuối cùng.
Yêu cầu một học sinh lên máy chính 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ả.
Hoạt động 3:5’
-Củng cố:
-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
-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à vở ghi, Ôn lại các kiến thức chính đã học và luyện viết, làm đi 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.
-HS phân tích bài toán tìm hướng giải quyết.
-Đọ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
-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: chép lại chương trình đã chạy vào.
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
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.
Bài tập 2: Viết chương trình tính day thừa của n số tự nhiên đầu tiên.
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.