Đề kiểm tra học kì II năm học 2010-2011 môn Tin học 8 - Trường Trịnh Hoài Đức

Trường Trịnh Hoài Đức
---------****--------
KIỂM TRA HỌC KÌ II – NĂM HỌC 2010 - 2011
Môn : TIN HỌC 8
Thời gian: 45 phút (ĐỀ 1)
Họ và tên:........................................
Lớp: 8A
Điểm:
I/ Khoanh tròn chữ cái đứng trước phương án em cho là đúng: (4 điểm)
Câu 1: Lệnh lặp nào sau đây là đúng?
For = to do ;
For := to do ;
For := to do ;
For : to do ;
Câu 2: Vòng lặp While do ; là vòng lặp:
A. Chưa biết trước số lần lặp
B. Biết trước số lần lặp	 	
C. Biết trước số lần lặp nhưng giới hạn là <=100 	
D. Biết trước số lần lặp nhưng giới hạn là >=100 
Câu 3: 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:=a+1; else a:=a+2;	B. If a=5 then a:=a+1else a:=a+2	
 	C. If a=5 then a=a+1; else a=a+2; 	D. If a=5 then a:=a+1else a:=a+2;
Câu 4: Sau khi thực hiện đoạn chương trình sau, giá trị của biến S bằng bao nhiêu:
 s:=0;
 for i:=1 to 5 do s := s+i;
A.45 	B. 55 	C. 15	D. 51
Câu 5: 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 gì?
	A. Interger;	B. real;	C. string	D. Tất cả các kiểu trên đều được
Câu 6: Khi thực hiện câu lệnh for i:= 1 to 3.5 do writeln(i); sẽ viết ra màn hình?
Giá trị biến đếm.
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ị cuối không phải là số nguyên.
Câu 7: Chọn khai báo hợp lệ:
A. Var a,b: array[1 .. n] of real;	 	C. Var a,b: array[1 : n] of Integer;
B. Var a,b: array[1 .. 100] of real; 	D. Var a,b: array[1  100] of real;
Câu 8: Trong câu lệnh lặp for i:=1 to 12 do Write(‘A’); thì lệnh Write(‘A’) đượ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. 12 lần	D. 2 lần
II/ Gạch chân dưới những câu lệnh em cho là sai rồi viết lại câu lệnh đó cho đúng: (3 điểm)
Program Tinh tong; 	 ..
Uses crt; 	 ...
Var N; i: Integer;	 ..
 S: Longint; 
BEGIN 
Clrscr;	 ...
Write(‘Nhap vao so N =’ ); Readln(N); 
S:=0 
For i =1 to N do S:=S+i	; 
Writeln(‘Tong cua’,N, ‘so dau tien s =’, s); 
Readln	 
END.	
IV/ Viết chương trình giải quyết bài toán: (3 điểm)
Viết chương trình tính tổng:
S = 1 + 2 + 3 + 4 + ..+ 100
--------------- š@&?› ---------------
Trường Trịnh Hoài Đức
---------****--------
KIỂM TRA HỌC KÌ II – NĂM HỌC 2010 - 2011
Môn : TIN HỌC 8
Thời gian: 45 phút (ĐỀ 2)
Họ và tên:........................................
Lớp: 8A
Điểm:
I/ Khoanh tròn chữ cái đứng trước phương án em cho là đúng: (4 điểm)
Câu 1: Lệnh lặp nào sau đây là đúng?
A.For = to do ;
B.For : to do ;
C.For := to do ;
D.For := to do ; 
Câu 2: Vòng lặp While do ; là vòng lặp:
A. Biết trước số lần lặp nhưng giới hạn là >=100 
B. Biết trước số lần lặp	 	
C. Biết trước số lần lặp nhưng giới hạn là <=100 	
D. Chưa biết trước số lần lặp 
Câu 3: 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:=a+1; else a:=a+2;	B. If a=5 then a:=a+1else a:=a+2	
 	C. If a=5 then a:=a+1else a:=a+2; 	D. If a=5 then a=a+1; else a=a+2; 
Câu 4: Sau khi thực hiện đoạn chương trình sau, giá trị của biến S bằng bao nhiêu:
 s:=0;
 for i:=1 to 10 do s := s+i;
A.15 	B. 55 	C. 45	D. 51
Câu 5: 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 gì?
	A. string	B. real;	C. Interger; 	D. Tất cả các kiểu trên đều được
Câu 6: Khi thực hiện câu lệnh for i:= 1 to 3 do writeln(i); sẽ viết ra màn hình?
A.Viết số 1 rồi viết số 3.
B.Giá trị biến đếm. 
C.Chỉ viết số 3 mà thôi.
D.Không thực hiện được vì giá trị cuối không phải là số nguyên.
Câu 7: Chọn khai báo hợp lệ:
A. Var a,b: array[1 .. 100] of real; 	 	C. Var a,b: array[1 : n] of Integer;
B. Var a,b: array[1 .. n] of real;	D. Var a,b: array[1  100] of real;
Câu 8: Trong câu lệnh lặp for i:=1 to 12 do Write(‘A’); thì lệnh Write(‘A’) đượ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. 12 lần	D. 2 lần
III/ Gạch chân dưới những câu lệnh em cho là sai rồi viết lại câu lệnh đó cho đúng: (3 điểm)
Program Tinh tong; 	 ..
Uses crt; 	 ...
Var N; i: Integer;	 ..
 S:real ; 
BEGIN 
Clrscr;	 ...
Write(‘Nhap vao so N =’ ); Readln(N); 
S:=0 
For i =1 to N do S:=S+1/i	; 
Writeln(‘Tong cua’,N, ‘so dau tien s =’, s); 
Readln	 
END.	
IV/ Viết chương trình giải quyết bài toán: (3 điểm)
Viết chương trình tính tổng:
S= 1+2+3+.........+ n 
Trong đó n là số nguyên nhập từ bàn phím.
--------------- š@&?› ---------------
Trường Trịnh Hoài Đức
---------****--------
KIỂM TRA HỌC KÌ II – NĂM HỌC 2010 - 2011
Môn : TIN HỌC 8
Thời gian: 45 phút (ĐỀ 3)
Họ và tên:........................................
Lớp: 8A
Điểm:
I/ Khoanh tròn chữ cái đứng trước phương án em cho là đúng: (4 điểm)
Câu 1 : Trong các câu lệnh sau, câu lệnh nào đúng ?
A. For i := 1.5 to 100 do Writeln ('A');	B. For i := 1 to 20 do Writeln ('A');
C. For i := 100 to 1 do Writeln ('A');	D. For i = 1 to 100 do Writeln ('A');
Câu 2: Vòng lặp While do ; là vòng lặp:
A. Biết trước số lần lặp nhưng giới hạn là >=100 
B. Biết trước số lần lặp	 	
C. Biết trước số lần lặp nhưng giới hạn là <=100 	
D. Chưa biết trước số lần lặp 
Câu 3 : Cho câu lệnh sau : “IF a> 3 THEN b := 5 ELSE b := 8;”, khi a nhận giá trị 4, thì b nhận giá trị nào ? 
	A. 0	B. 5	C. 8	 D. Số khác.
Câu 4: Sau khi thực hiện đoạn chương trình sau, giá trị của biến S bằng bao nhiêu:
 s:=0;
 for i:=1 to 9 do s := s+i;
A.15 	B. 55 	C. 45	D. 51
Câu 5: 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 gì?
	A. string	B. real;	C. Interger; 	D. Tất cả các kiểu trên đều được
Câu 6: Khi thực hiện câu lệnh for i:= 1 to 3 do writeln(i); sẽ viết ra màn hình?
A.Giá trị biến đếm.
B.Viết số 1 rồi viết số 3
C.Chỉ viết số 3 mà thôi
D.Không thực hiện được vì giá trị cuối không phải là số nguyên.
Câu 7: Chọn khai báo hợp lệ:
A. Var a,b: array[1 .. 100] of real; 	 	C. Var a,b: array[1 : n] of Integer;
B. Var a,b: array[1 .. n] of real;	D. Var a,b: array[1  100] of real;
Câu 8: Trong câu lệnh lặp for i:=1 to 12 do Write(‘A’); thì lệnh Write(‘A’) đượ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. 12 lần	D. 2 lần
III/ Gạch chân dưới những câu lệnh em cho là sai rồi viết lại câu lệnh đó cho đúng: (3 điểm)
Program Tinh tong; 	 ..
Uses crt; 	 ...
Var N; i: Integer;	 ..
 S:real ; 
BEGIN 
Clrscr;	 ...
Write(‘Nhap vao so N =’ ); Readln(N); 
S:=0 
For i =1 to N do S:=S+1/i	; 
Writeln(‘Tong cua’,N, ‘so dau tien s =’, s); 
Readln	 
END.	
IV/ Viết chương trình giải quyết bài toán: (3 điểm)
Viết chương trình tính tổng:
S = 1 + 2 + 3 + 4 + ..+ 100
--------------- š@&?› ---------------
Trường Trịnh Hoài Đức
---------****--------
KIỂM TRA HỌC KÌ II – NĂM HỌC 2010 - 2011
Môn : TIN HỌC 8
Thời gian: 45 phút (ĐỀ 4)
Họ và tên:........................................
Lớp: 8A
Điểm:
I/ Khoanh tròn chữ cái đứng trước phương án em cho là đúng: (4 điểm)
Câu 1 : Trong các câu lệnh sau, câu lệnh nào đúng ?
A. For i := 1 to 100 do Writeln ('A');	B. For i := 1.9 to 20 do Writeln ('A);
C. For i := 100 to 1 do Writeln ('A');	D. For i = 1 to 100 do Writeln ('A');
Câu 2 : Trong các câu lệnh sau, câu lệnh nào đúng?
A. While i := 1 do t := 10;	B. While i = 1 do; writeln ('Dung');
C. While (n mod i 0) do i := i + 1;	D. While i := 1 to 5 do t :=10;
Câu 3 : Cho câu lệnh sau : “IF a> 8 THEN b := 3 ELSE b := 5;”, khi a nhận giá trị 4, thì b nhận giá trị nào ? 
	A. 0	B. 5	C. 3	 D. Số khác.
Câu 4: Vòng lặp While do ; là vòng lặp:
A. Biết trước số lần lặp nhưng giới hạn là >=100 
B. Biết trước số lần lặp	 	
C. Biết trước số lần lặp nhưng giới hạn là <=100 	
D. Chưa biết trước số lần lặp 
Câu 5: 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:=a+1; else a:=a+2;	B. If a=5 then a:=a+1else a:=a+2	
 	C. If a=5 then a:=a+1else a:=a+2; 	D. If a=5 then a=a+1; else a=a+2; 
Câu 6: 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 gì?
	A. string	B. real;	C. Interger; 	D. Tất cả các kiểu trên đều được
Câu 7: Chọn khai báo hợp lệ:
A. Var a,b: array[1 .. 100] of real; 	 	C. Var a,b: array[1 : n] of Integer;
B. Var a,b: array[1 .. n] of real;	D. Var a,b: array[1  100] of real;
Câu 8 : Sau khi thực hiện đoạn chương trình sau kết quả của S là bao nhiêu ?
 S := 1; 
 For i := 1 to 5 do S := S*i ;
A. 0	B. 15	C. 120	 D. Số khác. 
III/ Gạch chân dưới những câu lệnh em cho là sai rồi viết lại câu lệnh đó cho đúng: (3 điểm)
Program Tinh tong; 	 	 ..
Uses crt; 	 ...
Var N; i: Integer;	 ..
 S:real ; 
BEGIN 
Clrscr;	 ...
Write(‘Nhap vao so N =’ ); Readln(N); 
S:=0 
For i =1 to N do S:=S+1/i	; 
Writeln(‘Tong cua’,N, ‘so dau tien s =’, s); 
Readln	 
END.	
IV/ Viết chương trình giải quyết bài toán: (3 điểm)
Viết chương trình tính tổng:
S = 1 + 2 + 3 + 4 + ..+ n
Trong đó n là số nguyên nhập từ bàn phím.
--------------- š@&?› ---------------
Đáp án (dành cho đề 1)
I/ Khoanh tròn chữ cái đứng trước phương án em cho là đúng: (4 điểm)
Câu 1
Câu 2
Câu 3
Câu 4
Câu 5
Câu 6
Câu 7
Câu 8
B
A
D
C
A
D
B
C
II/ Mỗi đáp án đúng 0,5 điểm (1 điểm)
III/ Gạch chân dưới những câu lệnh em cho là sai rồi viết lại câu lệnh đó cho đúng: (2 điểm)
Program Tinh tong; 	 ..
Uses crt; 	 ...
Var N; i: Integer;	 ..
 S: Longint; 
BEGIN 
Clrscr;	 ...
Write(‘Nhap vao so N =’ ); Readln(N); 
S:=0 
For i =1 to N do S:=S+i	; 
Writeln(‘Tong cua’,N,’so dau tien s = ‘, s); 
Readln	 
END.	
Program Tinh_tong; 0,5 
Var N, i: Integer; 0,5
S:=0; 0,5 
For i: =1 to N do S:=S+i	; 0,5 
IV/ Viết chương trình giải quyết bài toán: (2 điểm)
Program tinhtong; 0,25
Var 	S: real; 0,25
	i: integer; 0,25
Begin
	S:= 0; 0,25
	For i:= 1 to n do S: = S + i; 0,5
	Writeln(‘Tong can tim la: ‘, S:6:2); 0,25
	Readln
End. 0,25
--------------- š@&?› ---------------