đề thi HKII Tin 9_ 2009_TN

BỘ GIÁO DỤC VÀ ĐÀO TẠO

ĐỀ THI TRẮC NGHIỆM
MÔN Học kỳ II_tin học lớp 9
Thời gian làm bài: 45 phút;
(20 câu trắc nghiệm)



Mã đề thi TIN 9

Họ, tên thí sinh:..........................................................................
Số báo danh:...............................................................................


Câu 1: 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 là của s là :
A. 11 B. 55 C. 101 D. 15
Câu 2: Trong chương trình pascal sau đây:
Var x : integer ;
Begin
X:= 3 ;
If (45 mod 3) =0 then x:= x +2;
If x > 10 then x := x +10 ;
End.
X có giá trị là mấy
A. 3 B. 5 C. 15 D. 10
Câu 3: Trong chương trình pascal sau đây:
program hcn;
var a, b :integer;
s,cv :real ;
begin
a:= 10;
b:= 5;
s:= a*b ;
cv:= (a +b ) * 2 ;
writeln(‘dien tich hcn la:’ , s );
writeln( ‘chu vi hcn la : ‘ , cv ) ;
readln;
end.
Biến s và cv có giá trị là mấy:
A. s = 10 ; cv = 5 ; B. s= 30 ; cv = 50 ; C. s = 50 ; cv = 40 ; D. s = 50 ; cv = 30 ;
Câu 4: cho chương trình sau:
Var a,b : integer ;
Begin
A:=16 ; b:=8 ;
If a< b then a:= a + b else
Begin a:= a- b; b:= b + a end;
Writeln( ‘ a= ‘, a , ‘ b = ‘, b);
End.
Biến a và b có giá trị là mấy:
A. a=16 ;b = 8; B. a= 24 ; b= 8; C. a = 8 ; b =16; D. a =24 ; b =16;
Câu 5: cho chương trình sau:
program gptbn;
var b, c : integer;
x :real;
begin
b:= 5 ; c:= -10 ;
if (b=0 ) and (c=0) then writeln( ‘ x có vô số nghiệm’ );
if (b =0 ) and (c <> 0) then writeln( ‘ x vô nghiệm ‘);
if (b<> 0) and ( c<> 0 ) then writeln (‘ pt có nghiệm x= ‘ , - c/b);
readln;
end.
Chương trình in ra màn hình
A. x có vô số nghiệm ; B. x vô nghiệm ;
C. pt có nghiệm x= - 2 D. pt có nghiệm x= 2;
Câu 6: cho chương trình sau:
program doigiatri;
var x,y: integer;
begin
x:=10; y:=15 ;
x:= x+ y ;
y:= x – y;
x := x – y;
writeln ( ‘ x= ‘, x, ‘y=’ , y);
readln;
end.
Chương trình in ra x, y có giá trị là mấy:
A. x= 10 ;b= 15 B. x=25 ; y= 15; C. x= 25 ; b=10 D. x=15 ; y= 10;
Câu 7: Để tính tổng S=1 + 2 +3 +4 … + n; em chọn đoạn lệnh:
A. for i:=1 to n do
if ( i mod 2)=0 then S:=S + i;
B. for i:=1 to n do
S:= S + i ;
C. for i:=1 to n do
if ( i mod 2)=1 then S:=S + i;
D. for i:=1 to n do
if ( i mod 2)<>0 then S:=S + i;
Câu 8: Để tính tổng S=2 + 4 + 6 … + n; em chọn đoạn lệnh:
A. for i:=1 to n do
if ( i mod 2)=0 then S:=S + i;
B. for i:=1 to n do
S:= S + i