Đề kiểm tra một tiết học kì II Tin học 8 - Trường THCS Tử Đà

Trường THCS Tử Đà	
Họ và tên:....................	Kiểm tra 1 tiết ( HKII) 
Lớp:..................	Môn: Tin Học
Điểm
Lời phê của thầy cô giáo
	Phiếu trả lời
Đáp án
Câu hỏi
A
B
C
D
Đáp án
Câu hỏi
A
B
C
D
1
11
2
12
3
13
4
14
5
15
6
16
7
17
8
18
9
19
10
20
ĐỀ BÀI
(H·y khoanh trßn ®¸p ¸n ®óng nhÊt. Sau đó tích lại vào phiếu trả lời)
C©u 1: Pascal sö dông c©u lÖnh nµo sau ®©y ®Ó lÆp víi sè lÇn lÆp biÕt tr­íc ?
A. if...then	B. if...then...else	C. for...to...do	D. while...do
C©u 2: Pascal sö dông c©u lÖnh nµo sau ®©y ®Ó lÆp víi sè lÇn lÆp ch­a biÕt tr­íc ?
A. if...then	B. if...then...else	C. for...to...do	D. while...do
Câu 3: Câu lệnh if đầy đủ có dạng đúng là?
A. If := then else;
B. If = then else;
C. If then else;
D. If then ; else;
C©u 4: LÖnh lÆp nµo sau ®©y lµ ®óng :
A. For = to do ;
B. For := to do ;
C. While = do ;
D. While := do ;
C©u 5: Để tăng biến nhớ lên 1 đơn vị, ta thực hiện lệnh:
A. X=>X+1;	B. X:=X+1	C, X=>X+1	D, X:=X+1;
C©u 6: C©u lÖnh Pascal : While (3*5>=15) do Writeln (3*5); sÏ :
A. In sè 15 ra mµn h×nh 3 lÇn.	 B. In sè 15 ra mµn h×nh 5 lÇn.
C. Kh«ng thùc hiÖn lÖnh Writeln (3*5); D. LÆp v« h¹n lÇn lÖnh Writeln (3*5);
C©u 7: ý nghÜa cña lÖnh clrscr; 
A. Khai b¸o sö dông th­ viÖn chuÈn trong ch­¬ng tr×nh 	C. Xãa mµn h×nh
B. Dõng ch­¬ng tr×nh	D. C¶ A, B, C ®Òu sai
Câu 8: Lệnh nào sau đây in ra màn hình số lớn nhất giữa A và B :
A. If A > B then write(B) else write(A); 
B. If A > B then write(A) else write(B);
C. If A > B then Readln(A) else Readln(B); 
D. If A < B then writeln(A) else writeln(B);
Câu 9: Cho N là biến kiểu nguyên, chọn câu đúng cú pháp : 
A. If N < 10 then write (' Nho hon 10 ') ; else write (' Lon hon 10 ');
B. If N < 10 Write (' Nho hon 10 ') else then write (' Lon hon 10 ');
C. If N < 10 then write (' Nho hon 10 ') else write (' Lon hon 10 ');
D. If N 20 then write (' N > 20 '); 
Câu 10: Kiểm tra nếu ba số a, b, c đều lớn hơn 1 thì in số 1, chọn lệnh nào : 
A. if (a > 1) and ( b > 1) and ( c > 1) then write(1); 
B. if (a > 1) or (b > 1) or (c > 1) then write(1);
C. if a > 1 and b > 1 and c > 1 then write(1); 
D. if a, b , c đều > 1 then write(1);
C©u 11: Trong Pascal, c©u lÖnh nµo sau ®©y lµ ®óng?
A. S:=1; while s<10 do S:=S+i; i:=i+1; 	B. i:=0; S:=1;While S<10 do write(S); 	
C. n:=2; while n<5 do write(‘A’);	D. C¶ A vµ B.
C©u 12. Trong c©u lÖnh lÆp: For i := 1 to 10 do j:= j + 2; write( j );
Khi kÕt thóc c©u lÖnh lÆp trªn, c©u lÖnh write( j ); ®­îc thùc hiÖn bao nhiªu lÇn?
A. 10 lÇn ;	B. 5 lÇn;	C. 1 lÇn;	D. Kh«ng thùc hiÖn.
Câu 13. Trong Pascal, câu lệnh nào sau đây được viết đúng?
	A. for i:= 4 to 1 do writeln(‘A’);	B. for i= 1 to 10 writeln(‘A’);	C. for	i:= 1 to 10 do writeln(‘A’);	 	D. for i to 10 do writeln(‘A’);	
Câu 14. Cho đoạn chương trình: 	J:= 0;
 For i:= 1 to 5 do J:= j + i;
Sau khi thực hiện đoạn chương trình trên, giá trị của biến j bằng bao nhiêu?
A. 12;	B. 22;	C. 15;	D. 42.
Câu 15. Khi thực hiện đoạn chương trình sau: n:=1; T:=50;
While n<20 do 
begin 
n:=n+5; T:=T - n 
end;
Hãy cho biết giá trị của biến T bằng bao nhiêu?
	A. 14	B. 15	C. 16	D. 17	
Câu 16: 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 17: Chương trình Pascal sau sẽ in ra màn hình nội dung gì?
Var i: integer;
Begin
For i:=1 to 10 do writeln(‘Day la lan lap thu’ ,i);
Readln;
End.
A. 1 câu “Day la lan lap thu i ”	B. 1 câu “Day la lan lap thu’, i ”
C. 10 câu “Day la lan lap thu’ , i ”	
D. 10 câu "Day la lan lap thu i ” theo thứ tự của i là từ 1à10
Câu 18: Cho S và i biến kiểu nguyên. Khi chạy đoạn chương trình :
 S:= 0; i:= 1;
 while i <= 6 do begin S:= S + i; i:= i + 2; end;
	Giá trị sau cùng của S là : 
	A. 16	B. 9	C. 7 	D. 0
Câu 19: Giảsử các khai báo biến đều hợp lệ. Ðể tính S = 10 em chọn câu nào :
A. S := 1; i := 1;
    while i<= 10 do S := S * i;
    i := i + 1; 
B. S := 1; i := 1; 
    while i<= 10 do i := i + 1;
    S := S * i; 
C. S := 0; i := 1; 
    while i<= 10 do
      begin
        S := S * i;
        i := i + 1;
      end; 
D. S := 1; i := 1; 
    while i<= 10 do
      begin
        S := S * i;
        i := i + 1;
      end; 
Câu 20: Cho S = 12 + 22 + ... + 1002 . Nhóm lệnh nào tính sai Giá trị của S:
A. S:=0; FOR i:=1 TO 100 DO S := S + i*i; 
B. S:=0; FOR i:=1 TO 100 DO S := S + SQR(i);
C. S:=0; FOR i:=100 DOWNTO 1 DO S := S + i*i; 
D. S:=1; FOR i:=1 TO 100 DO S := S + i*i;