Giáo án Tin học lớp 8 tiết 68: Ôn tập

 Ngày soạn: 13/04/2015
 Ngày dạy: 15/04/2015
Tuần 34
Tiết: 68 
ÔN TẬP
I. MỤC TIÊU:
1. Kiến thức: Ôn tập lại các kiến thức đã được học trong học kì II.
2. Kĩ năng: Vận dụng các kiến thức đã được học áp dụng giải các bài tập.
3. Thái độ: Học tập nghiêm túc, có ý thức tự giác, tinh thần vươn lên vượt qua khó khăn.
II. CHUẨN BỊ:
1. Giáo viên: Sách giáo khoa, máy tính điện tử, giáo án, máy chiếu.
2. Học sinh: Vở ghi, sách giáo khoa.
III. CÁC HOẠT ĐỘNG DẠY – HỌC: 
1. Ổn định lớp: 
8A1:
8A2:
8A3:
2. Kiểm tra bài cũ: 
	Lồng ghép trong nội dung bài ôn tập.
3. Bài mới:
Hoạt động của GV
Hoạt động của HS
Nội dung ghi bảng
Hoạt động 1: Ôn tập nội dung phần bài tập.
+ GV: Cho HS tìm lỗi sai trong trong các câu lệnh Pascal sau:
1. For i:= 100 to 1 do Writeln(‘A’);
2. For i:= 1.5 to 10.5 do Writeln(‘A’);
3. For i= 1 to 10 do Writeln(‘A’);
4. For i:= 1 to 10 do; Writeln(‘A’);
5. Var x: Real Begin For x:= 1 to 10 do Writeln(‘A’); End.
6. x:= 10; While x:= 10 do x:= x+5;
7. x:= 10; While x = 10 do x:= x+5;
6. S:= 0; x:= 10; While x<= 10 do n:= n+1; S:= S + n;
+ GV: Viết chương trình nhập n số nguyên. Đếm các số vừa chia hết cho 2 vừa chia hết 3. Xuất kết quả ra màn hình. 
+ GV: Hướng dẫn HS thực hiện viết chương trình.
+ GV: Yêu cầu một số HS lên bảng thực hiện các thao tác.
+ GV: Yêu cầu các bạn khác quan sát theo dõi và nhận xét bài làm.
+ GV: Quan sát hướng dẫn và sửa sai cho các em.
+ GV: Lấy một bài thực hiện còn thiếu sót trình chiếu và yêu cầu các bạn khác nhận xét bổ sung.
+ GV: Nhận xét và sửa các lỗi sai mà HS thường gặp.
+ GV: Trình chiếu một bài hoàn chỉnh của HS và nhận xét.
+ GV: Cho số tự nhiên n, em hãy viết các chương trình để tính các tổng sau:
a. 1 + 1/22 + 1/32 +  + 1/n2
+ GV: Quan sát hướng dẫn và sửa sai cho các em.
+ GV: Lấy một bài thực hiện còn thiếu sót trình chiếu và yêu cầu các bạn khác nhận xét bổ sung.
+ GV: Nhận xét và sửa các lỗi sai mà HS thường gặp.
+ GV: Trình chiếu một bài hoàn chỉnh của HS và nhận xét.
+ GV: Viết chương trình tính tich 10 số nguyên đầu tiên.
+ GV: Hướng dẫn HS thực hiện viết chương trình.
+ GV: Yêu cầu một số HS lên bảng thực hiện các thao tác.
+ GV: Yêu cầu các bạn khác quan sát theo dõi và nhận xét bài làm.
+ GV: Quan sát hướng dẫn và sửa sai cho các em.
+ GV: Nhận xét và sửa các lỗi sai mà HS thường gặp.
+ GV: Trình chiếu một bài hoàn chỉnh của HS và nhận xét.
+ GV: Tiến hành củng cố các kiến thức trọng tâm cho HS nắm bắt.
+ GV: Giải đáp các thắc mắc của HS trong quá trình ôn tập.
+ GV: Nhận xét chốt nội dung.
+ HS: Sửa lại cú pháp cho đúng như sau:
1. For i:= 1 to 100 do Writeln(‘A’);
2. For i:= 15 to 105 do Writeln(‘A’);
3. For i:= 1 to 10 do Writeln(‘A’);
4. For i:= 1 to 10 do Writeln(‘A’);
5. Var x: Integer; Begin For x:= 1 to 10 do Writeln(‘A’); End.
6. x:= 1; While x<10 do x:= x+5;
7. x:= 5; While x<10 do x:= x+5;
6. S:= 0; x:= 10; While x<= 10 do Begin n:= n+1; S:= S + n; End.
+ HS: Thực hiện chương trình theo yêu cầu của GV:
1. bài 1
Program bai5;
Uses crt;
Var i,n,dem,x: integer;
Begin
	Clrscr;
	Write(‘nhap so luong so: ’); readln(n);
	dem:=0;
	For i:=1 to n do
	Begin
	Write(‘nhap so thu tu: ’,i);readln(x);
	If (x mod 2=0) and(x mod 3=0) then
	dem:=dem+1;
	End;
	Writeln(‘so luong cac so chia het cho 2 va 3 la: ’,dem);
	Readln;
End.
2. bài 2
Program tich;
Uses crt;
Const n=10;
Var i, tich:integer;
Begin
	Clrscr;
	Tich:=1;
	i:=1;
	while i<=n do
	begin
	tich:=tich*i;
	i:= i+1;
	end;
	writeln(‘tich cua 10 so tu nhien dau tien la=’,tich);
	readln;
End.
3. bài 3
Var n , i : byte; 
S : Real; 
BEGIN
Write(' Nhap n : '); Readln (n) ; 
S:= 0; 
For i := 1 To n Do S:= S+1/sqr(i); Writeln (' S = ', S:0:2); 
Readln; 
END. 
+ HS: Tập trung chú ý lắng nghe.
BÀI TẬP
1. For i:= 1 to 100 do Writeln(‘A’);
2. For i:= 15 to 105 do Writeln(‘A’);
3. For i:= 1 to 10 do Writeln(‘A’);
4. For i:= 1 to 10 do Writeln(‘A’);
5. Var x: Integer; Begin For x:= 1 to 10 do Writeln(‘A’); End.
6. x:= 1; While x<10 do x:= x+5;
4. Củng cố 
	- Củng cố trong nội dung bài ôn tập.
5. Dặn dò:
 	- Học bài ôn tập cho thi học kì II.
IV. RÚT KINH NGHIỆM: