De thi HKII

KIEÅM TRA HKII
MOÂN TIN HOÏC 8
Thôøi gian : 45 phuùt


Điểm
Lời phê







Phần 1: Chọn câu trả lời đúng nhất
Câu 1: Cho S và i là biến nguyên. Khi chạy đoạn chương trình :
s:=1;
for i:=1 to 4 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) 15 d) 10
Câu 2: cho chương trình sau:
Var a,b : integer ;
Begin
a:=24 ; b:=12 ;
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=12 ;b = 24; b) a= 24 ; b= 36; c) a = 8 ; b =16; d) a =24 ; b =16;
Câu 3: Để tính tổng S=1 + 2 +3 +4 … + n; em chọn đoạn lệnh:
for i:=1 to n do
if ( i mod 2)=0 then S:=S + i;
for i:=1 to n do
S:= S + i ;
for i:=1 to n do
if ( i mod 2)=1 then S:=S + i;
for i:=1 to n do
if ( i mod 2)<>0 then S:=S + i;
Câu 4: Để tính tổng S=1-2 +3 - 4 … +/- n; em chọn đoạn lệnh:
for i:=1 to n do
if ( i mod 2)=0 then S:=S + i;
for i:=1 to n do
if ( i mod 2)=0 then S:=S + i Else S:= S + I;
for i:=1 to n do
if ( i mod 2)=1 then S:=S + i;
for i:=1 to n do
if ( i mod 2)<>0 then S:=S + i
Else S:=S-i;
Câu 5: Để tính tổng S=1/2+1/4 + 1/6 + … +1/ n; em chọn đoạn lệnh:

a) for i:=1 to n do
if ( i mod 2)=0 then S:=S + 1/i;
c) for i:=1 to n do
if ( i mod 2) < > 0 then S:=S + i;

b) for i:=1 to n do
if ( i mod 2)=0 then S:=S – 1/i Else S:= S + 1/i;
d) for i:=1 to n do
if ( i mod 2)=0 then S:=S +1/ i
Else S:=S-1/i;

Câu 6: Chọn khai báo hơp lệ

a) Const n=5;
Var a,b: array[1..n] of real;
c) Var n: real;
Var a,b: array[1:n] of real;

b) Var a,b: array[100..1] of real;
d) Var a,b: array[1...10] of real;

Câu 7: Lần lượt thực hiện đoạn lệnh: a[1]:=5; a[2]:=3; t:=(a[1]+a[2])*2+1; Giá trị của t là
a) t=8 b) t=17 c) t=10 d) t=6
Câu 8: Để đếm có bao nhiêu số lẻ nhỏ hơn hay bằng n ; em chọn đoạn lệnh:

a) for i:=1 to n do
if ( i mod 2)< >0 then S:=S + 1;
c) for i:=1 to n do
if ( i mod 2) =0 then S:=S + 1;

b) for i:=1 to n do
if ( i mod 2)=0 then S:=S + i ;
d) for i:=1 to n do
if ( i mod 2)=1 then S:=S + i;




Câu 9: Câu lệnh nào sau đây lặp vô hạn lần

a) s:=5; i:=0;
While i<=s do
S