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 . 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: 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