SỞ GD&ĐT QUẢNG NINH
TRƯỜNG THPT TIÊN YÊN
ĐỀ THI - ĐÁP ÁN KIỂM TRA HỌC KÌ I
N¨m häc 2010 – 2011
Môn: Tin - Khối 11
Thời gian: 45 phút (Không kể thời gian giao đề)
Họ và tên: ............................................... Lớp: 11......... SBD:.................. Điểm:...............
( Phần dọc phách)
I. TRẮC NGHIỆM: (7 điểm)
Câu 1: Xét chương trình sau:
Var a, b : integer;
Begin
a:=5; b:=3;
b:=a - b; a:=a - b;
writeln(a);
end.
Kết quả của chương trình là:
A) 2 B) 3 C) 4 D) 5
Câu 2: Xét chương trình sau:
Var a, b :integer;
Begin
a:=15; b:=10;
if a< >(b+10) then a:=b+10;
b:=b+10;
writeln(a-b); end.
Chọn phương án trả lời đúng nhất
A) 0 B) 5 C) 10 D) 20
Câu 3: Xét chương trình sau:
Var i, s: integer;
Begin
s:=0;

Câu 6: Cho chương trình sau:
Var i, s:integer;
Begin
i:=1; s:=0;
while i < 10 do
begin
s:=s+2; i:=i+1;
end;
writeln(s);
Kết quả của chương trình trên là
A) 10 B) 14 C) 18 D) 20
Câu 7: Cú pháp khai báo biến mảng một chiều trực tiếp là:
A) var <tên biến mảng> : array[kiểu chỉ số] <kiểu phần tử>;
B) type <tên biến mảng> :array[kiểu chỉ số] <kiểu phần tử>;
C) var <tên biến mảng>: array[kiểu chỉ số] of <kiểu phần tử>;
D) type <tên biến mảng> : array[kiểu chỉ số] of <kiểu phần tử>;
1
Mã đề 1
Sè ph¸ch:
Sè ph¸ch:
SỞ GD&ĐT QUẢNG NINH
TRƯỜNG THPT TIÊN YÊN
ĐỀ KIỂM TRA HỌC KÌ I
N¨m häc 2010 – 2011
Môn: Tin - Khối 11
Thời gian: 45 phút (Không kể thời gian giao đề)
Họ và tên: ............................................... Lớp: 11......... SBD:.................. Điểm:...............
( Phần dọc phách)
II. TỰ LUẬN: (3 điểm)
Viết chương trình tính tổng bình phương của các số âm và đưa ra vị trí tương ứng của chúng trong một

N¨m häc 2010 – 2011
Môn: Tin - Khối 11
Thời gian: 45 phút (Không kể thời gian giao đề)
Họ và tên: ............................................... Lớp: 11......... SBD:.................. Điểm:...............
( Phần dọc phách)
I. TRẮC NGHIỆM: (7 điểm)
Câu 1: Xét chương trình sau:
Var a, b, s: integer;
Begin
s:=0; a:=3; b:=5;
a:=a - b; s:=a + b;
writeln(s);
end.
Kết quả của chương trình trên là
A) 0 B) 3 C) 5 D) 8
Câu 2: Xét chương trình sau:
Var i, s: integer;
Begin
s:=1;
for i:=1 to 7 do if i mod 2 = 0 then
s:=s*i;
writeln(s);
end.
Kết quả của chương trình trên là:
A) 1 B) 15 C) 35 D) 48
Câu 3: Xét chương trình sau:
Var a, b: integr;
Begin
a:=20; b:=10;
if a < > (b+10) then

A) 3 B) 4 C) 5 D) 6
Câu 6: Xét chương trình sau:
Var i, dem: integer;
Begin
i:=5; dem:=0;
while i < > 0 do
begin
i:=i-1; dem:=dem+i;
end;
writeln(i,’ ‘, dem);
end.
Kết quả của chương trình trên là
A) -1 0 B) 0 5 C) 1 0 D) 0 10
Câu 7: Cú pháp câu lệnh nào sau đây là đúng?
A) var mang : array[1…100] of char; B) var mang : array[1-100] of char;
3
Mã đề 2
Sè ph¸ch:
Sè ph¸ch:
C) var mang1c : arr(1..100) of char; D) var mang1c : array [1..100] of char;
SỞ GD&ĐT QUẢNG NINH
TRƯỜNG THPT TIÊN YÊN
ĐỀ KIỂM TRA HỌC KÌ I
N¨m häc 2010 – 2011
Môn: Tin - Khối 11
Thời gian: 45 phút (Không kể thời gian giao đề)
Họ và tên: ............................................... Lớp: 11......... SBD:.................. Điểm:...............
( Phần dọc phách)
II. TỰ LUẬN: (3 điểm)
Viết chương trình nhập vào một dãy số nguyên có n phần tử