Bài giảng Tin Học 11: Đề thi - Đáp án HK1 2010-2011

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;

for i:=1 to 7 do
if i mod 2=1 then s:=s+1;
writeln(s);
end.
Kết quả của chương trình trên là:
A) 0; B) 2 C) 3 D) 4
Câu 4: Xét chương trình sau:
Var i, s1, s2: integer;
Begin
s1:=0; s2:=0;
for i:=1 to 6 do
if i mod 2 = 0 then
begin
s1:=s1+1; s2:=s2+i;
end;
writeln(s1, ‘ ‘,s2);
end.
Kết quả của chương trình trên là:
A) 6 15 B) 6 10 C) 3 12 D) 3 15
Câu 5: Xét chương trình sau:
Var i, j, s: integer;
Begin
s:=0;
for i:=1 to 5 do
for j:=1 to 5 do
if i + j = 6 then s:=s+1;
writeln(s);
end.
Kết quả của chương trình trên là:
A) 3 B) 4 C) 5 D) 6

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

mảng gồm N phần tử.
BÀI LÀM
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,S:Integer;
Begin
Write(‘Nhap N=’); Readln(N);
For i:=1 To N Do
Begin
Write(‘A[‘,i,’]=’); Readln(A[i]);
End;
S:=0; write(‘Vi tri cac phan tu am trong day la:’);
For i:=1 To N Do
If A[i]<0 Then
begin
S:=S+A[i]*A[i];
Write(i:3);
End;
Writeln;
Writeln(‘S= ’, S);
Readln;
End.
Chương trình chạy thông: 1 đ
Nắm được thuật toán: 1 đ
Kết quả đúng: 1 đ
2
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, 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

begin
a:=b+20; b:=b+10;
end;
writeln(a-b);
end.
Kết quả của chương trình trên là
A) 10 B) 20 C) 30 D) 40
Câu 4: Xét chương trình sau:
Var i, s1, s2:integer;
Begin
s1:=0; s2:=0;
for i:=1 to 7 do if i mod 2 = 1 then
begin
s1:=s1+1; s2:=s2+i;
end;
writeln(s1,’ ‘, s2);
end.
Kết quả của chương trình trên là:
A) 3 15 B) 4 16
C) 5 15 D) 6 16
Câu 5: Xét chương trình sau:
Var i, j, s:integer;
Begin
s:=0;
for i:=1 to 3 do
for j:=1 to 3 do
if (i+j) mod 3 = 0 then s:=s+1;
writeln(s);
end.
Kết quả của chương trình trên là:

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ử

a) Nhập vào một số nguyên x bất kì, đếm số lần xuất hiện của nó trong dãy trên.
b) In ra màn hình các phần tử lớn hơn hoặc bằng x.
BÀI LÀM
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,dem,x:Integer;
Begin
Write(‘Nhap N=’); Readln(N);
For i:=1 To N Do
Begin
Write(‘A[‘,i,’]=’); Readln(A[i]);
End;
Write(‘Nhap x=’); readln(x);
dem:=0; write(‘cac phan tu lon hon hoac bang x la:’);
For i:=1 to n do
begin
If a[i] = x then dem:=dem+1;
if a[i]>=x then write(a[i]:3);
end;
writeln;
writeln(‘So lan xuat hien ’, x:3,’trong day la ‘, dem);
readln
end.

Chương trình chạy thông: 1 đ
Nắm được thuật toán: 1 đ
Kết quả đúng: 1 đ
4