GIáo án Tin học 8 tiết 71+ 72: Ôn tập học kì II

ÔN TẬP HỌC KÌ II
Ngày soạn: ././2015
Tiết theo PPCT: 71-72
Tuần: 36
1. Mục tiêu:
1.1/ Kiến thức: 
- Củng cố lại toàn bộ kiến thức đã được học từ bài 5 đến bài 9 và phần mềm học tập ở học kỳ 2.
- Thực hiện làm các bài trắc nghiệm. Vận dụng vào để viết được những chương trình đơn giản
- Viết được chương trình Pascal có sử dụng biến mảng. 
- Biết sử dụng câu lệnh ghép.
1.2/ Kĩ năng: 
- Rèn kỹ năng đọc hiểu chương trình có sử dụng vòng lặp while ... do; for...do.
- Có kỹ năng thành thạo thực hiện máy tính và viết chương trình trên máy tính.
1.3/ Thái độ: Thái độ học tập nghiêm túc, yêu thích môn học.
2. Chuẩn bị:
2.1/ Chuẩn bị của GV: Hệ thống câu hỏi, bài tập ôn tập.
2.2/ Chuẩn bị của HS: Ôn lại kiến thức đã học ở HKII.
3. Tổ chức các hoạt động học tập:
3.1/ Ổn định lớp:
3.2/ Kiểm tra bài cũ:
3.3/ Tiến trình bài học:	 
Hoạt động của GV
Hoạt động của HS
Nội dung
Hoạt động 1: Lí thuyết.
- Nêu cú pháp của vòng lặp với số lần biết trước?
- GV giới thiệu thêm câu lệnh For...downto...do.
- Nêu cú pháp của vòng lặp với số lần chưa biết trước.
- GV yêu cầu HS giải thích các thành phần trong các cú pháp đó.
- Nhắc lại cú pháp khai báo biến mảng.
- GV yêu cầu HS giải thích các thành phần trong các cú pháp đó.
- GV nhấn mạnh lại các cú pháp vừa nêu.
- Cấu trúc lặp với số lần lặp biết trước for... do
For := to do ;
For := downto do ;
- Cấu trúc lặp với số lần chưa biết trước While ...do
while do ;
- HS trả lời.
- Cú pháp khai báo biến mảng:
Var :array[ .. ] of ;
- HS trả lời.
- HS chú ý, ghi nhớ kiến thức.
Hoạt động 2: Bài tập trắc nghiệm.
Bài 1: Khoanh tròn chữ cái đứng trước kết quả đúng
Câu 1: Trong đoạn chương trình pascal dưới đây biến x có giá trị là :
Var x : integer ;
Begin
 x:= 3 ; 
I f (45 mod 3) =0 then x:= x +2;
End.
	a) 3	b) 5 	c) 15
Câu 2: Lệnh lặp nào sau đây là đúng?
a. For = to do ;
b. For := to do ;
c. For := to do ;
d. For : to do ;
Câu 3: Câu lệnh pascal nào sau đây là hợp lệ?
a. For i:=100 to 1 do writeln(‘A’);
b. For i:=1.5 to 10.5 do writeln(‘A’);
c. For i= 1 to 10 do writeln(‘A’);
d. For i:= 1 to 10 do writeln(‘A’);
Câu 4: Vòng lặp while ..do là vòng lặp:
a. Biết trước số lần lặp	
b. Chưa biết trước số lần lặp
c. Biết trước số lần lặp nhưng giới hạn là <=100 	 
d. Biết trước số lần lặp nhưng giới hạn là >=100 
Câu 5: Câu lệnh lặp whiledo có dạng đúng là:
a.While do; ; b. While do;
c. While do ;
d. While do ;
Câu 6: Cho s và i là biến nguyên. Khi chạy đoạn chương trình 
s:=0;
for i:=1 to 5 do s := s+i;
writeln(s);
Kết quả in lên màn hình của s là : 
a.11 	b. 55 	c. 101	d.15
Bài 2:
Câu 1: Chọn khai báo hợp lệ
a) Var a,b: array[1..n] of real;	b) Var a,b: array[1:n] of real;
c) Var a,b: array[1..100] of real;	d) Var a,b: array[1n] of real;
Câu 2: Chọn khai báo hơp lệ
a) Const n=5; Var a,b: array[1..n] of real;
c) Var n: real; a,b: array[1:n] of real;
b) Var a,b: array[100..1] of real;
d) Var a,b: array[1..5..10] of real;
Câu 3: Lần lượt thực hiện đoạn lệnh: a[1]:=2; a[2]:=3; t:=a[1]+a[2]+1; 
 Giá trị của t là
	a) t=1	b) t=3 	c) t=2	d) t=6
1. b
2. b
3. d
4. b
5. d
6. d
1. c
2. a
3. d
Hoạt động 2: Bài tập viết chương trình.
Bài tập 1: Viết chương trình Pascal thể hiện thuật toán sau: 	
- Bớc 1: s f 0; m f 0;
- Bớc 2: s>5 thì chuyển tới bớc 4
- Bớc 3: m f m+1; s f s+m;
- Bớc 4: Thông báo s và kết thúc thuật toán
- GV gợi ý, HS thực hiện.
- GV nhận xét và đưa ra chương trình đúng.
Bài tập 2: Em hãy viết chương trình:	
+ Nhập độ dài của một dãy số.
+ Nhập các phần tử của dãy số.	
+ Tìm số lớn nhất và nhỏ nhất của dãy số , tổng của dãy số.
+ In ra màn hình số lớn nhất, nhỏ nhất và tổng các phần tử của dãy số đó.
- Yêu cầu HS thực hiện tại chỗ.
- Yêu cầu 1 HS lên bảng.
- GV nhận xét và đưa ra chương trình đúng.
Program tinh_tong;
Uses crt;
Var s,m: integer;
Begin 
s:=0; m:=0;	
while s<=5 do begin m:=m+1; s:=s+m; end;	
writeln(s);	
readln
End.
Bài tập 2:
Program mang;
Uses crt;
Var i, n, max, min, sum:integer;
a:array[1..50] of integer; 
Begin
Clrscr;
Write('Nhap do dai day so, n='); readln(n); 
Writeln(' nhap cac phan tu cua day so: '); 
For i:=1 to n do
 Begin	
 	Write(' a[,i,']='); readln(a[i]); 
 end;
Min:=a[1]; Max:=a[1]; sum:=0;
For i:=1 to n do
 Begin
	If (Min > a[i]) then Min:=a[i];
	If (Max < a[i]) then Max:=a[i]; 	Sum:=sum+a[i];
 end;	 
Writeln('Gia tri lon nhat la: ',Max); 
Writeln('gia tri nho nhat la: ',Min);
Writeln('Tong cua day so la: ',Sum); 
Readln
 End.	
Hoạt động 3: Hướng dẫn về nhà.
- HS học bài kết hợp SGK. Nắm chắc các kiến thức vừa ôn.
- Tuần sau kiểm tra HKII.