Đề kiểm tra 15 phút môn Tin học 8 - Trường THCS Khánh Hưng (Có đáp án)

Trường THPT Khánh Hưng
KiÓm tra 15 phót
M«n: Tin häc 8
Đề 1:
A. Trắc nghiệm (5đ):
Câu 1: Có ph¸p cña c©u lÖnh lÆp for. Do. lµ ?
If (®iÒu kiÖn) then (c©u lÖnh);
For (biÕn ®Õm):=(gi¸ trÞ ®Çu) to (gi¸ trÞ cuèi) do (c©u lÖnh);
Var n, i: interger;
Ph¶i kÕt hîp c¶ a, b vµ c.
Câu 2: for i:= 1 to 3.5 do writeln(i:3:1); sÏ viÕt ra mµn h×nh?
Thø tù cña biÕn ®Õm, chiÕm 3 chç vµ lÊy 1 ch÷ sè sau phÇn thËp ph©n
ViÕt sè 1 råi viÕt sè 3.5
ChØ viÕt sè 3.5 mµ th«i
Kh«ng thùc hiÖn ®­îc v× gi¸ trÞ cña biÕn ®Õm cã kiÓu thø tù lµ Real
Câu 3: C¸c c©u lÖnh Pascal nµo sau ®©y 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: Sè vßng lÆp trong c©u lÖnh lÆp for (biÕn ®Õm):= (gi¸ trÞ ®Çu) to (gi¸ trÞ cuèi) do (c©u lÖnh); ta lu«n x¸c ®Þnh ®­îc vµ b»ng?
A. Gi¸ trÞ cuèi + gi¸ trÞ ®Çu +1	B. Gi¸ trÞ cuèi –biÕn ®Õm +1
C. Gi¸ trÞ ®Çu + biÕn ®Õm -1	D. Gi¸ trÞ cuèi – gi¸ trÞ ®©u +1
C©u 5: §Ó ch¹y ch­¬ng tr×nh trong Pascal ta dïng tæ hîp phÝm :
A) Ctrl + F7	B) Ctrl + F8	C) Ctrl + F9	D) Ctrl + F10
B. TỰ LUẬN (5đ)
Câu 1: §¸nh dÊu [x] vµo « ®óng hoÆc sai t­¬ng øng trong c¸c c©u lÖnh Pascal sau nÕu sai söa l¹i? (2 ®iÓm)
C©u lÖnh
§óng
Sai
Söa l¹i
for i:=1 to 10 do; x:=x+2; 
for i:=10 to1 do x:=x+2;
for i:= 1 to 10 do x;=x+2;
for i:= 1 to 5 do j:=j+1; i:=i+1;
Câu 2: Hãy viết chương trình tính tổng của 20 số tự nhiên đầu tiên? (sử dụng vòng lặp fordo) (3 điểm)
ĐÁP ÁN
A. Trắc nghiệm:
C©u
1
2
3
4
5
§¸p ¸n
B
D
C
D
C
Mçi ý ®óng cho 1 ®iÓm
B. Tự luận
Câu 1. §¸nh dÊu [x] vµo « ®óng hoÆc sai t­¬ng øng trong c¸c c©u lÖnh Pascal sau nÕu sai söa l¹i? 2đ
C©u lÖnh
§óng
Sai
Söa l¹i
for i:=1 to 10 do; x:=x+2; 
x
for i:=1 to 10 do x:=x+2; 
for i:=10 to1 do x:=x+2;
x
for i:=1 to10 do x:=x+2;
for i:= 1 to 10 do x =x+2;
x
for i:= 1 to 10 do x:=x+2;
for i:= 1 to 5 do j:=j+1; i:=i+1;
x
for i:=1 to 5 do begin j:=j+1; i:=i+1; end;
Mçi ý ®óng cho 0.5 ®iÓm
Câu 2: 3đ
program ct;
var S, i : integer;
begin
S:=0; i:=1;
For i:=1 to 20 do 
S:=S+i;
writeln(‘Tong cua 20 so tu nhien dau tien la =’,S) ;
readln ;
end.
Trường THPT Khánh Hưng
KiÓm tra 15 phót
M«n: Tin häc 8
Đề 2:
A. Trắc nghiệm (5đ): 
Câu 1: §©u lµ c«ng viÖc ph¶i thùc hiÖn nhiÒu lÇn víi sè lÇn biÕt tr­íc?
Hµng ngµy em ®i häc.
Em bÞ èm vµo mét dÞp cã dÞch cóm.
Ngµy ®¸nh r¨ng ba lÇn.
§Õn nhµ bµ ngo¹i ch¬i vµo mét h«m c¶ bè vµ mÑ ®i v¾ng.
Câu 2: Víi ng«n ng÷ lËp tr×nh Passcal c©u lÖnh lÆp for i:=1 to 10 do x:=x+1; th× biÕn ®Õm i ph¶i ®­îc khai b¸o lµ kiÓu d÷ liÖu
A. Interger;	B. real;	C. string	D. tÊt c¶ c¸c kiÓu trªn ®Òu ®­îc
Câu 3: Víi c©u lÖnh for (biÕn ®Õm):= (gi¸ trÞ ®Çu) to (gi¸ trÞ cuèi) do (c©u lÖnh); khi thùc hiÖn ban ®Çu biÕn ®Õm nhËn gi¸ trÞ lµ 1 sau mçi vßng lÆp biÕn ®Õm t¨ng thªm?
Mét ®¬n vÞ	B. hai ®¬n vÞ	C. ba ®¬n vÞ	D. bèn ®¬n vÞ
Câu 4: C©u lÖnh d¹ng for (biÕn ®Õm):= (gi¸ trÞ cuèi) to ( gi¸ trÞ ®Çu) do (c©u lÖnh); điều kiện nào không hợp lệ?
gi¸ trÞ ®Çu nhá h¬n gi¸ trÞ cuèi
gi¸ trÞ ®Çu lín h¬n gi¸ trÞ cuèi
gi¸ trÞ ®Çu, gi¸ trÞ cuèi là kiểu số nguyên
Biến đếm tăng thêm 1 đơn vị
Câu 5: Sau khi thùc hiÖn ®o¹n ch­¬ng tr×nh j:= 0; for i:= 1 to 3 do j:=j+2; th× gi¸ trÞ in ra mµn h×nh lµ?
A. 4	 B. 6	 C. 8	 D.10
B. TỰ LUẬN (5đ)
Câu 1: §¸nh dÊu [x] vµo « ®óng hoÆc sai t­¬ng øng trong c¸c c©u lÖnh Pascal sau nÕu sai söa l¹i? (2 ®iÓm)
C©u lÖnh
§óng
Sai
Söa l¹i
for i:=100 to 1 do x:=x+2; 
for i:=1.5 to 10.5 do x:=x+2;
for i= 1 to 10 do x:=x+2;
for i:= 1 to 10 do; x:=x+2; 
Câu 2: Hãy viết chương trình tính hiệu của 20 số tự nhiên đầu tiên? (sử dụng vòng lặp fordo) (3 điểm)
ĐÁP ÁN
A. Trắc nghiệm:
C©u
1
2
3
4
5
§¸p ¸n
C
A
A
A
B
Mçi ý ®óng cho 1 ®iÓm
B. Tự luận
Câu 1. §¸nh dÊu [x] vµo « ®óng hoÆc sai t­¬ng øng trong c¸c c©u lÖnh Pascal sau nÕu sai söa l¹i? 2đ
C©u lÖnh
§óng
Sai
Söa l¹i
for i:=1 to 10 do; x:=x+2; 
x
for i:=1 to 10 do x:=x+2; 
for i:=10 to1 do x:=x+2;
x
for i:=1 to10 do x:=x+2;
for i:= 1 to 10 do x =x+2;
x
for i:= 1 to 10 do x:=x+2;
for i:= 1 to 5 do j:=j+1; i:=i+1;
x
for i:=1 to 5 do begin j:=j+1; i:=i+1; end;
Mçi ý ®óng cho 0.5 ®iÓm
Câu 2: 3đ
program tinhtich;
var T, i : integer;
begin
T:=0; i:=1;
For i:=1 to 20 do 
T:=T*i;
writeln(‘Tich cua 20 so tu nhien dau tien la =’,T) ;
readln ;
end.