Giáo án Tin học 8 - Tiết 56: Kiểm tra 1 tiết - Năm học 2009-2010 - Trần Trung Nguyên

Tuaàn :29 	Ngaøy daïy:29/3/2010
Tieát:56
KIEÅM TRA 1TIEÁT 
MOÂN: TIN 8
A / MA TRAÄN ÑEÀ
Caùc caáp ñoä tö duy
Noäi dung
Nhaän bieát 
Thoâng hieåu
Vaän duïng 
Toång 
TN 
TL
TN
TL
TN 
TL 
Caâu leänh ñieàu kieän 
2
 0.5ñ
2
 0.5ñ
4
1ñ
Caâu leänh laëp 
3
 0.75ñ
2
 0.5ñ
1
 0.25ñ
2
 3.5ñ
8
5ñ
Laëp vôùi soá laàn chöa bieát tröôùc
1
 0.25ñ
1
 0.25ñ
2
 3.5ñ
4
 4ñ
Toång
6
1.5ñ
5
1.25ñ
5
7.25ñ
16
10ñ
B. NOÄI DUNG ÑEÀ 
I / Traéc nghieäm(3 ñ)
Khoanh troøn chöõ caùi ñaàu caâu traû lôøi maø em cho laø ñuùng nhaát
Caâu 1: Sau khi thöïc hieän chöông trình sau, giaù trò cuûa bieán j baèng bao nhieâu?
j := 0;
For i := 1 to 5 do j := j + 2;
A. 0	B. 2	 C. 5	 D. 10
Caâu 2: Caâu leänh naøo hôïp leä trong caùc caâu leänh pascal sau?
A. for i := 10 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’);
Caâu 3: Trong ñoaïn chöông trình sau, coù maáy caâu leänh ñöôïc laëp laïi? 
S := 0; dem := 0; n := 10;
While dem > n do
Begin
dem := dem +1;
Write(‘ Nhap so X’,dem,’=’);Readln(X);
S := S + X ;
end;
A. 0	B. 1	C. 3	 	D. 4	
Caâu 4: Caâu leänh naøo hôïp leä trong caùc caâu leänh pascal sau?
A. X:= 10; While X := 10 do X:= X + 5;	
B. X:= 10; While X = 10 do X = X + 5;	
C. X:= 10; While X = 10 do X:= X + 5;	
D. X:= 10 While X = 10 do X:= X + 5;
Câu 5: Trong ngôn ngữ lập trình Pascal câu lệnh nào sau đây là đúng:
If then else 
If then ; else ;
If then else ;
If ; then else ;
Câu 6: Trong ngôn ngữ lập trình Pascal, phát biểu nào sau đây là đúng với câu lệnh rẽ nhánh Ifthen?
Nếu sau then muốn thực hiện nhiều câu lệnh thì các lệnh phải đặt giữa hai dấu ngoặc đơn.
Nếu sau then muốn thực hiện nhiều câu lệnh thì các lệnh phải đặt giữa Begin và End
Nếu sau then muốn thực hiện nhiều câu lệnh thì các lệnh phải đặt giữa Begin và End;
Nếu sau then muốn thực hiện nhiều câu lệnh thì các lệnh phải đặt giữa Begin và End.
Câu 7: Trong ngôn ngữ lập trình Pascal câu lệnh nào sau đây là đúng:
A. If a=5 then a:=d+1; else a:=d+2;	
B. If a=5 then a:=d+1else a:=d+2;	
C. If a=5 then a=d+1; else a=d+2;	
D. If a=5 then a:=d+1else a:=d+2
Câu 8: Trong ngôn ngữ Pascal, muốn kiểm tra đồng thời cả ba giá trị của A, B, C có cùng lớn hơn 0 hay không ta viết câu lệnh If thế nào cho đúng nhất?
If A, B, C > 0 then
IF (A>0) and (B>0) and (C>0) then
IF A>0 and B>0 and c>0 then
IF (A>0) or (B>0) or (c>0) then
Câu 9: Trong ngôn ngữ Pascal, về mặt cú pháp câu lệnh nào sau đây đúng với cấu trúc lặp For có một lệnh con?
For i:=1 to 100 do a:=a-1;	B. For i:=1 to 100 do; a:=a-1;
C. For i:=1 to 100 do a:=a-1	D. For i:=1; to 100 do a:=a-1;
Câu 10: Trong lệnh lặp Fortodo của Pascal, trong mỗi vòng lặp biến đếm thay đổi như thế nào?
 A. +1;	B. -1;
 C. Một giá trị bất kì;	D. Một giá trị khác 0;
Câu 11: Trong câu lệnh lặp for i:=1 to 10 do beginend; câu lệnh ghép được thực hiện bao nhiêu lần (nói cách khác, bao nhiêu vòng lặp được thực hiện?)
	A. Không lần nào	B. 1 lần
	C. 3 lần	D. 2 lần
Câu 12: Trong ngôn ngữ Pascal, đoạn chương trình sau đưa ra màn hình kết quả gì?
For i:=10 to 1 do write (i,’ ‘);
1 2 3 4 5 6 7 8 9 10	B. 10 9 8 7 6 5 4 3 2 1
C. Đưa ra 10 dấu cách	D. Không đưa ra kết quả gì
II/ Tự luận (7 điểm)
Câu 13: (2ñ) Haõy neâu taùc duïng cuûa caâu leänh laëp trong laäp trình? Cho ví duï veà hoaït ñoäng laëp trong cuoäc soáng maø em bieát.
Câu 14: (2ñ) Haõy tìm hieåu thuaät toaùn sau, maùy tính seõ thöïc hieän bao nhieâu voøng laëp? Khi keát thuùc giaù trò cuûa S baèng bao nhieâu? Vieát chöông trình pascal theå hieän thuaät toaùn.
Thuaät toaùn:
Böôùc 1: S ! 10, X ! 0.5
Böôùc 2: Neáu S ≤ 5.5, chuyeån sang böôùc 4
Böôùc 3: S ! S – X vaø quay laïi böôùc 2
Böôùc 4: Thoâng baùo S vaø keát thuùc thuaät toaùn. 
Câu 15:Em hãy viết chương trình tính tổng các số tự nhiên từ 100 đến 1000 ( Sử dụng vòng lặp xác định và vòng lặp không xác định)(3ñ)
III/ HÖÔÙNG DAÃN CHAÁM
A/ Traéc nghieäm(3 ñ)
Caâu 
1
2
3
4
5
6
7
8
9
10
11
12
Ñaùp aùn
D
D
A
C
C
C
B
B
A
A
Khoâng coù ñaùp aùn ñuùng
D
Ñieåm
0,25
0,25
0,25
0,25
0,25
0,25
0,25
0,5
0,25
0,25
0,25
0,25
II/Tự luận (7 điểm)
Caâu
Noäi dung
Ñieåm
13
Taùc duïng cuûa caâu leänh laëp trong laäp trình laø laøm ñôn giaûn vaø giaûm nheï coâng söùc cuûa ngöôøi vieát chöông trình. 
Cho ví duï veà hoaït ñoäng laëp trong cuoäc soáng ñuùng 
1ñ
1ñ
14
9 voøng laëp , 
S= 5.5 
program Tinh_toan;
var X, S, Dem : integer;
Begin
S:=10; X:=0.5
While S >5.5 do
Begin
S:= S – X
Dem := Dem + 1;
End;
Writeln(‘thuc hien’,dem,’vong lap va S=’,S);
Readln
End.
0.25ñ
0.25ñ
0.25ñ
0.25ñ
0.25ñ
0.25ñ
0.25ñ
0.25ñ
15
Viết chương trình tính tổng các số tự nhiên từ 100 đến 1000
 * Vòng lặp xác định:
 	Program tinh_tong;
	Var i, S: Integer;
	Begin
	For i:= 100 to 1000 do
	S:= S + i;
	Wirteln(‘ tong cac so tu nhien tu 100 den 1000 la:’,S);
	Readln;
	End.
	* Vòng lặp không xác định:
	Program tinh_tong;
	Var i, S: Integer;
	Begin
	i:= 100;
	S:= 0;
	While i > 1000 do
	S:= S + i;
	i:= i + 1;
	Writeln(‘ Tong cac so tu nhien tu 100 den 1000 la:’,S);
	Readln;
	End.
0.25ñ
0.25ñ
0.25ñ
0.25ñ
0.25ñ
0.25ñ
0.25ñ
0.25ñ
0.25ñ
0.25ñ
0.25ñ
0.25ñ