Tệp truy cập tuần tự: cho phép truy cập vào một phần tử nào đó trong tệp chỉ bằng cách bắt đầu từ đầu tệp và đi qua lần lượt tất cả các dữ liệu trước đó (0.5 đ).[r]
(1)SỞ GIÁO DỤC VÀ ĐÀO TẠO LONG AN TRƯỜNG THCS&THPT MỸ QUÝ
ĐỀ KIỂM TRA HỌC KỲ II NĂM HỌC 2013-2014 Môn: TIN HỌC Khối :11
Chương trình: Hệ THPT
Thời gian: 45 phút (không kể thời gian phát đề)
PHẦN TRẮC NGHIỆM (3 đ)
Câu 1: Trong ngôn ngữ lập trình Pascal, đoạn lệnh sau đúng?
A. for i:= to a:= a+ i; B for i = to a:= a+ i; C for i: = to a:= a+ i D for i ;= to a:= a+ i; Câu 2: Trong ngơn ngữ lập trình Pascal đoạn chương trình sau thực cơng việc gì?
T:=0;
For i:=1 To N Do
If (i mod = 0) or (i mod 5= 0) Then T:=T+i; A Tìm ước N;
B Tính tổng ước thực N;
C Tính tổng số chia hết cho phạm vi từ đến N; D Tính tổng số chia hết cho phạm vi từ đến N; Câu 3: Để tìm giá trị lớn hai số a, b dùng câu lệnh sau
A If a > b then Max = a else Max = b; B Max := a; If a > b then Max := b; C Max := b; If a<b then Max := b; D.Max := a; If Max < b then Max := b; Câu 4: Kết biểu thức sqrt((ABS(25-50) div 2)) có giá trị gần là?
A 3 B 1 C 2 D 4
Câu 5: Đoạn chương trình sau cho kết gì? For i:=10 Downto Do Write(i ,' '); A 1 10
B 10987654321 C Đưa 10 dấu cách D 10
Câu 6: Cho đoạn chương trình: IF A>B then
Begin
TG:=A; A:=B; B:=TG; End;
Với A=10 B=5 kết A, B sau thực đoạn chương trình là? A A=10 B=5 B A=15 B=10 C A= B=10 D A,B,C sai Câu 7: Cho đoạn chương trình:
Var i, j:integer;
Begin for i:=1 to begin for j:= to 10 write('*'); writeln;End. đoạn chương trình có tác dụng
A. in hình 50 ký tự * hàng dọc ĐỀ A
(2)B in hình hình chữ nhật có hàng ngang 10 ký tự * hàng dọc ký tự * C in hình hình chữ nhật có hàng ngang ký tự * hàng dọc 10 ký tự * D in hình 50 ký tự * hàng ngang
Câu 8: Câu lệnh a:=5; Write('Ket qua la', a); đưa hình
A Ket qua a la B Ket qua la C. Ket qua a la a D Khơng đưa Câu 9: Cách viết cho biểu thức sau TP: 3x2-
√5 (x-m)-15
A. 3*x*x- 1/sqr(5)*((x-m)-15)
B. 3*sqrt(x)- (1/sqrt(5))*(x-m)-15
C. 3*x*x- 1/sqr(5)(x-m)-15
D. 3*x*x- (1/sqrt(5))*(x-m)-15
Câu 10: Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình: i:=1;
While i <3 Begin
Write(“Hello Word”); i:=i+2; End;
Chữ “Hello Word “ in hình lần
A 1 B 2 C 3 D 4
Câu 11:Cho biểu thức A= (18 div 2)=9; B= (25 mod 5)=0 Phát biểu sau A. Not (A Or B) = True
B. Not(A Or B) = False C. Not(A) Or Not(B) = True D. Not(A) And Not(B) = True
Câu 12: Hãy viết biểu thức : 99.5 ≥ N >0 sang dạng biểu diễn tương ứng Pascal A. (N>=99.5) and (N>0);
B. (N<=99.5) or (N>0); C. (N >= 99.5) or (N>0); D. (N <= 99.5) and (N>0); PHẦN TỰ LUẬN (7 đ)
Câu 1: (2 điểm) Xét theo cách tổ chức liệu phân tệp thành loại nào?
Câu 2: (3 điểm) Nêu cú pháp thủ tục chèn xâu S1 vào xâu S2 vị trí VT, hàm cho biết vị trí xuất xâu thứ xâu thứ hai, hàm chuyển kí tự sang chữ hoa? Cho ví dụ cụ thể hàm, thủ tục?
Câu 3: (2 điểm) Viết chương trình nhập vào từ bàn phím số nguyên dương N (N≤200) dãy A gồm N số nguyên A1, A2, A3,…,AN có giá trị tuyệt đối không lớn 1000 Hãy xếp
in hình dãy thành dãy khơng tăng
BÀI LÀM HỌ VÀ TÊN HS:……….
LỚP: 11A….
I PHẦN TRẮC NGHIỆM (3 điểm) Thí sinh dùng bút chì tơ kín câu trả lời
(3)SỞ GIÁO DỤC VÀ ĐÀO TẠO LONG AN TRƯỜNG THCS&THPT MỸ QUÝ
ĐỀ KIỂM TRA HỌC KỲ II NĂM HỌC 2013-2014 Môn: TIN HỌC Khối :11
Chương trình: Hệ THPT
Thời gian: 45 phút (không kể thời gian phát đề)
PHẦN TRẮC NGHIỆM (3 đ)
Câu 1:Cho biểu thức A= (18 div 2)=9; B= (25 mod 5)=0 Phát biểu sau A. Not (A Or B) = True
B. Not(A Or B) = False C. Not(A) Or Not(B) = True D. Not(A) And Not(B) = True
Câu 2: Trong ngơn ngữ lập trình Pascal, đoạn lệnh sau đúng?
A. for i:= to a:= a+ i; B for i = to a:= a+ i; C for i: = to a:= a+ i D for i ;= to a:= a+ i; Câu 3: Cho đoạn chương trình:
Var i, j:integer;
Begin for i:=1 to begin for j:= to 10 write('*'); writeln;End. đoạn chương trình có tác dụng
A. in hình 50 ký tự * hàng dọc
B in hình hình chữ nhật có hàng ngang 10 ký tự * hàng dọc ký tự * C in hình hình chữ nhật có hàng ngang ký tự * hàng dọc 10 ký tự * D in hình 50 ký tự * hàng ngang
Câu 4: Để tìm giá trị lớn hai số a, b dùng câu lệnh sau
A If a > b then Max = a else Max = b; B Max := a; If a > b then Max := b; C Max := b; If a<b then Max := b; D.Max := a; If Max < b then Max := b; Câu 5: Đoạn chương trình sau cho kết gì?
For i:=10 Downto Do Write(i ,' '); A 1 10
B 10987654321 C Đưa 10 dấu cách D 10
Câu 6: Trong ngơn ngữ lập trình Pascal đoạn chương trình sau thực cơng việc gì? T:=0;
For i:=1 To N Do
If (i mod = 0) or (i mod 5= 0) Then T:=T+i; A Tìm ước N;
B Tính tổng ước thực N;
C Tính tổng số chia hết cho phạm vi từ đến N; D Tính tổng số chia hết cho phạm vi từ đến N;
Câu 7: Kết biểu thức sqrt((ABS(25-50) div 2)) có giá trị gần là? ĐỀ B
(4)A 3 B 1 C 2 D 4 Câu 8: Cho đoạn chương trình:
IF A>B then Begin
TG:=A; A:=B; B:=TG; End;
Với A=10 B=5 kết A, B sau thực đoạn chương trình là? A A=10 B=5 B A=15 B=10 C A= B=10 D A,B,C sai Câu 9: Cách viết cho biểu thức sau TP: 3x2-
√5 (x-m)-15
A. 3*x*x- 1/sqr(5)*((x-m)-15)
B. 3*sqrt(x)- (1/sqrt(5))*(x-m)-15
C. 3*x*x- 1/sqr(5)(x-m)-15
D. 3*x*x- (1/sqrt(5))*(x-m)-15
Câu 10: Câu lệnh a:=5; Write('Ket qua la', a); đưa hình
A Ket qua a la B Ket qua la C. Ket qua a la a D Không đưa Câu 11: Hãy viết biểu thức : 99.5 ≥ N >0 sang dạng biểu diễn tương ứng Pascal A. (N>=99.5) and (N>0);
B. (N<=99.5) or (N>0); C. (N >= 99.5) or (N>0); D. (N <= 99.5) and (N>0);
Câu 12: Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình: i:=1;
While i <3 Begin
Write(“Hello Word”); i:=i+2; End;
Chữ “Hello Word “ in hình lần
A 1 B 2 C 3 D 4 PHẦN TỰ LUẬN (7 đ)
Câu 1: (2 điểm) Xét theo cách thức truy cập, phân tệp thành loại nào?
Câu 2: (3 điểm) Nêu cú pháp thủ tục chèn xâu S1 vào xâu S2 vị trí VT, hàm cho biết vị trí xuất xâu thứ xâu thứ hai, hàm chuyển kí tự sang chữ hoa? Cho ví dụ cụ thể hàm, thủ tục?
Câu 3: (2 điểm) Viết chương trình nhập vào từ bàn phím số nguyên dương N (N≤250) dãy A gồm N số nguyên A1, A2, A3,…,AN có giá trị tuyệt đối không lớn 1000 Hãy xếp
in hình dãy thành dãy không giảm
BÀI LÀM HỌ VÀ TÊN HS:……….
LỚP: 11A….
I PHẦN TRẮC NGHIỆM (3 điểm) Thí sinh dùng bút chì tơ kín câu trả lời
II PHẦN TỰ LUẬN (7 điểm)
(5)SỞ GIÁO DỤC VÀ ĐÀO TẠO CỘNG HÒA XÃ HỘI CHỦ NGHĨA VIỆT NAM TRƯỜNG THCS&THPT MỸ QUÝ Độc lập - Tự - Hạnh phúc
ĐÁP ÁN ĐỀ KIỂM TRA HỌC KỲ II
NĂM HỌC 2013 - 2014 MÔN : TIN HỌC 11 ĐỀ A
TRẮC NGHIỆM
Câu 1: A Câu 4: A Câu 7: B Câu 10: A Câu 2: C Câu 5: D Câu 8: B Câu 11: B Câu 3: D Câu 6: C Câu 9: D Câu 12: D PHẦN TỰ LUẬN
Câu 1:Xét theo cách tổ chức liệu, phân tệp thành hai loại:
Tệp văn bản: tệp mà liệu ghi dạng kí tự theo mã ASCII Trong tệp văn bản, dãy kí tự kết thúc kí tự xuống dịng hay kí tự kết thúc tệp tạo thành dịng (1 đ) Tệp có cấu trúc: tệp mà thành phần tổ chức theo cấu trúc định Tệp nhị phân trường hợp riêng tệp có cấu trúc(1 đ)
Câu 2: a.hàm pos(s1, s2) (0.5 đ) Ví dụ: (0.5 đ)
Giá trị s2 Biểu thức Kết
‘abcdef’ Pos(‘cd’, s2)
Hàm upcase(ch) (0.5 đ) Ví dụ: upcase(d) D (0.5 đ)
Thủ tục insert (s1, s2, vt) (0.5 đ) Ví dụ: (0.5 đ)
Giá trị s1 Giá trị s2 Thao tác Kết
‘ PC ‘ ‘IBM 486’ Insert(s1, s2, 4) ‘IBM PC 486’
Câu 3:
Program sapxep ; Uses crt ;
var A : Array[1 200] of integer ; n,i,j,tg : integer ; (0.5 đ)
Begin clrscr ;
Write('Nhap so phan tu mang n = ') ; Readln(n) ;
For i := to n Begin
Write('A[',i,'] = ') ; readln(A[i]) ; End ; (0.5 đ)
For j := n downto
Begin
For i := to j-1 If A[i] < A[i+1] then Begin
tg := A[i] ; A[i] := A[i+1] ; A[i+1] := tg ; End ;
End ; (0.5 đ)
Writeln('day sau sap xep : ') ; For i := to n
(6)SỞ GIÁO DỤC VÀ ĐÀO TẠO CỘNG HÒA XÃ HỘI CHỦ NGHĨA VIỆT NAM TRƯỜNG THCS&THPT MỸ QUÝ Độc lập - Tự - Hạnh phúc
ĐÁP ÁN ĐỀ KIỂM TRA HỌC KỲ II NĂM HỌC 2013 - 2014
MÔN : TIN HỌC 11 ĐỀ B
TRẮC NGHIỆM
Câu 1: B Câu 4: D Câu 7: A Câu 10: B Câu 2: A Câu 5: D Câu 8: C Câu 11: D Câu 3: B Câu 6: C Câu 9: D Câu 12: A PHẦN TỰ LUẬN
Câu 1:
Xét theo cách thức truy cập, phân tệp thành hai loại:
Tệp truy cập tuần tự: cho phép truy cập vào phần tử tệp cách đầu tệp qua tất liệu trước đó(0.5 đ)
Tệp truy cập trực tiếp: cho phép tham chiếu đến liệu cần truy cập cách xác định trực tiếp vị trí (thường số hiệu) liệu đó(0.5 đ)
Câu 2: a.hàm pos(s1, s2) (0.5 đ) Ví dụ: (0.5 đ)
Giá trị s2 Biểu thức Kết
‘abcdef’ Pos(‘cd’, s2)
Hàm upcase(ch) (0.5 đ) Ví dụ: upcase(d) D (0.5 đ)
Thủ tục insert (s1, s2, vt) (0.5 đ) Ví dụ: (0.5 đ)
Giá trị s1 Giá trị s2 Thao tác Kết
‘ PC ‘ ‘IBM 486’ Insert(s1, s2, 4) ‘IBM PC 486’
Câu 3:
Program sapxep ; Uses crt ;
var A : Array[1 250] of integer ; n,i,j,tg : integer ; (0.5 đ)
Begin clrscr ;
Write('Nhap so phan tu mang n = ') ; Readln(n) ;
For i := to n Begin
Write('A[',i,'] = ') ; readln(A[i]) ; End ; (0.5 đ)
For j := n downto Begin
For i := to j-1 If A[i] > A[i+1] then Begin
tg := A[i] ;
A[i] := A[i+1] ; A[i+1] := tg ; End ;
End ; (0.5 đ)
Writeln('day sau sap xep : ') ; For i := to n
(7)