Đề thi lại môn Tin học 8 - Năm học 2009-2010 - Trường THCS Quang Trung

Trường THCS Quang Trung
Lớp: 8--------
Họ tên: -------------------------------------------------------------
ĐỀ THI LẠI (Năm học 2009 – 2010)
Môn: Tin học 
Điểm
Lời phê
ĐỀ BÀI:
A. TRẮC NGHIỆM (4 điểm)
(Thời gian làm 15 phút)
Khoanh tròn chữ cái đứng trước phương án em cho là đúng: 
Câu 1: Kết quả của phép so sánh:
A. Chỉ có giá trị đúng. B. Chỉ có giá trị sai. 
C. Có thể có giá trị đúng hoặc giá trị sai. D. Đồng thời nhận giá trị đúng và giá trị sai.
Câu 2: Các phần tử của mảng:
A. Phải cùng kiểu dữ liệu. B. Phải khác kiểu dữ liệu.
C. Phải có giá trị như nhau. D. Có thể cùng kiểu dữ liệu hoặc khác kiểu dữ liệu.
Câu 3: Lệnh lặp nào sau đây là đúng?
For = to do ;
For := to do ;
For := to do ;
For : to do ;
Câu 4: 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 5: 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 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. Interger;	B. real;	C. string	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 .. 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
--------------- š@&?› ---------------
Trường THCS Quang Trung
Lớp: 8--------
Họ tên: -------------------------------------------------------------
ĐỀ THI LẠI (Năm học 2009 – 2010)
Môn: Tin học 
Điểm
Lời phê
B. Phần tự luận:
(Thời gian làm 30 phút)
Câu 1: Em hãy viết cú pháp của câu lệnh lặp với số lần chưa biết trước và giải thích các thành phần (2 đ).
Câu 2/ Gạch chân những chân những câu lệnh em cho là sai rồi viết lại cho đúng (4 đ).
Program Tim_So_Lon_Nhat;
Var n:i: integer;
 SO : array [1..100] of intege ;
Begen
Clrscr;
Writeln(‘Ban muon nhap bao nhieu phan tu’); 
for i=1 to n do 
	begin
	Writeln(‘Hay nhap phan tu thu’, i); 
realn (SO[i]);
	end;
fo i:=2 to n do 
if max >SO[i] them max := SO[i]
Write(‘so lon nhat la:’, max );
Readln;
End
--------------- š@&?› ---------------
ĐÁP ÁN VÀ BIỂU ĐIỂM
A. Phần trắc mghiệm (3 điểm)
Khoanh tròn chữ cái đứng trước phương án đúng: 
Đúng mỗi câu được o,5 đ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
C
A
B
A
C
A
B
C
B. Phần tự luận (6 điểm).
Câu 1: (2 điểm)
 - While do ; 
Câu 2: Dịch và sửa lỗi chương trình (4 điểm)
Program Tim_So_Lon_Nhat;
Var n:i: integer;
 SO : array [1..100] of intege ;
Begen
Clrscr;
Writeln(‘Ban muon nhap bao nhieu phan tu’); 
for i=1 to n do 
	begin
	Writeln(‘Hay nhap phan tu thu’, i); 
realn (SO[i]);
	end;
fo i:=2 to n do 
if max >SO[i] them max := SO[i]
Write(‘so lon nhat la:’, max );
Readln;
End
Program Tim_So_Lon_Nhat;
Var n,i: integer;
 SO : array [1..100] of integer ;
Begin
Clrscr;
Writeln(‘Ban muon nhap bao nhieu phan tu’); 
for i:=1 to n do 
	begin
	Writeln(‘Hay nhap phan tu thu’, i); 
readln (SO[i]);
	end;
for i:=2 to n do 
if max >SO[i] then max := SO[i]
Write(‘so lon nhat la:’, max );
Readln;
End.
--------------- š@&?› ---------------