Đề kiểm tra một tiết môn Tin học 8

TRƯỜNG THCS SỐ 1 NAM LÝ
ĐỀ KIỂM TRA MỘT TIẾT
 Tiết 55 : MÔN TIN HỌC 8
Thời gian làm bài : 45 phút
ĐỀ 1
Đề ra : I. TRẮC NGHIỆM (3.0 điểm):
Cậu 1: Các câu lệnh Pascal nào sau 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 2: Cấu trúc của vòng lặp FOR  DO là :
a/ For := to do ;	
b/ For := to do ;
c/ For := downto do ;	
d/ For := downto do ;
Câu 3: Cấu trúc của vòng lặp WHILE  DO có dạng:
a/ While do ;	b/ While do ;
c/ While do ;	d/ While do ;
Câu 4: Em hiểu câu lệnh lặp theo nghĩa nào dưới đây?
a/ Một lệnh thay cho nhiều lệnh.
b/ Các câu lệnh được viết lặp đi lặp lai nhiều lần.
c/ Vì câu lệnh đã có tên là lệnh lặp
d/ Cả a, b, c đều sai.
 II. TỰ LUẬN (7.0 điểm):
Câu 5: Sau khi thực hiện xong đoạn chương trình sau, thì chương trình thực hiện bao nhiêu vòng lặp với giá trị của biến bằng bao nhiêu
	M:=2;
	For i:=1 to 5 do M:=M + 3;
Câu 6: Tìm lỗi trong chương trình và sửa lỗi chương trình cho đúng: 
Tính Tổng Các Số Tự Nhiên Từ 100 Đến 1000 (Vòng lặp với số lần lặp chưa biết).
	Program tinh_tong;
	Var i S: Integer;
	Begin i: 100; S = 0;
	 While i > 1000 do 
 begin i:= i + 1; S:= S + 1; end.
 Writeln(‘ Tong cac so tu nhien tu 100 den 1000 la:’,S); 
 Readln;
	 End
 Câu 7: Các câu lệnh trong Pascal sau có hợp lệ không? Nếu không hãy sửa lại cho đúng? 
 a) For i:= 10 to 8 do writeln(‘A’); 	
 b) For i:= 6.5 to 17.5 do Writeln(‘A’);
 c) x: =34; while x: =34 do x: = x + 5; 	
 d) x: = 4; while x =4 do x = x + 5;
TRƯỜNG THCS SỐ 1 NAM LÝ
ĐỀ KIỂM TRA MỘT TIẾT
 Tiết 30 : MÔN TIN HỌC 8
Thời gian làm bài : 45 phút
ĐỀ 2
Đề ra : I. TRẮC NGHIỆM (3.0 điểm):
Câu 1: Em hiểu câu lệnh lặp theo nghĩa nào dưới đây?
a/ Một lệnh thay cho nhiều lệnh.
b/ Các câu lệnh được viết lặp đi lặp lai nhiều lần.
c/ Vì câu lệnh đã có tên là lệnh lặp
d/ Cả a, b, c đều sai.
Câu 2: Cấu trúc của vòng lặp WHILE DO có dạng:
a/ While do ;	b/ While do ;
c/ While do ;	d/ While do ;Cậu 3: Các câu lệnh Pascal nào sau 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: Cấu trúc của vòng lặp FOR  DO là :
a/ For := to do ;	
b/ For := to do ;
c/ For := downto do ;	
d/ For := downto do ;
 II. TỰ LUẬN (7.0 điểm):
Câu 5: Sau khi thực hiện xong đoạn chương trình sau, thì chương trình thực hiện bao nhiêu vòng lặp với giá trị của biến bằng bao nhiêu
	N:=3;
	For i:=1 to 5 do N:=N + 4;
Câu 6: Tìm lỗi trong chương trình và sửa lỗi chương trình cho đúng: 
Tính Tổng Các Số Tự Nhiên Từ 100 Đến 1000 (Vòng lặp với số lần lặp chưa biết).
	Program tinh_tong;
	Var i S: Integer;
	Begin i: 100; S = 0;
	 While i > 1000 do 
 begin i:= i + 1; S:= S + 1; end.
 Writeln(‘ Tong cac so tu nhien tu 100 den 1000 la:’,S); 
 Readln;
	 End
 Câu 7: Các câu lệnh trong Pascal sau có hợp lệ không? Nếu không hãy sửa lại cho đúng? 
 a) For i:= 100 to 4 do writeln(‘A’); 	
 b) For i:= 3.5 to 9.5 do Writeln(‘A’);
 c) x: = 7; while x: =7 do x: = x + 5; 	
 d) x: = 12; while x =12 do x = x + 5;