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]
Trang 1SỞ 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 nào sau đây là đúng?
A for i:= 1 to 5 do a:= a+ i; B for i = 1 to 5 do a:= a+ i;
C for i: = 1 to 5 do a:= a+ i D for i ;= 1 to 5 do a:= a+ i;
Câu 2: Trong ngôn ngữ lập trình Pascal đoạn chương trình sau thực hiện công việc gì?
T:=0;
For i:=1 To N Do
If (i mod 3 = 0) or (i mod 5= 0) Then T:=T+i;
A Tìm một ước của N;
B Tính tổng các ước thực sự của N;
C Tính tổng các số chia hết cho 3 hoặc 5 trong phạm vi từ 1 đến N;
D Tính tổng các số chia hết cho cả 3 và 5 trong phạm vi từ 1 đến N;
Câu 3: Để tìm giá trị lớn nhất của 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 quả của biểu thức sqrt((ABS(25-50) div 2)) có giá trị gần đúng là?
Câu 5: Đoạn chương trình sau cho kết quả gì?
For i:=10 Downto 1 Do Write(i ,' ');
A 1 2 3 4 5 6 7 8 9 10
B 10987654321
C Đưa ra 10 dấu cách
D 10 9 8 7 6 5 4 3 2 1
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 và B=5 thì kết quả của A, B sau khi thực hiện đoạn chương trình trên là?
A A=10 và B=5 B A=15 và B=10 C A= 5 và B=10 D A,B,C đều sai
Câu 7: Cho đoạn chương trình:
Var i, j:integer;
Begin for i:=1 to 5 do begin for j:= 1 to 10 do write('*'); writeln;End.
đoạn chương trình có tác dụng
A in ra màn hình 50 ký tự * trên 1 hàng dọc
ĐỀ A
Trang 2B in ra màn hình hình chữ nhật có hàng ngang 10 ký tự * và hàng dọc 5 ký tự *
C in ra màn hình hình chữ nhật có hàng ngang 5 ký tự * và hàng dọc 10 ký tự *
D in ra màn hình 50 ký tự * trên 1 hàng ngang
Câu 8: Câu lệnh a:=5; Write('Ket qua la', a); sẽ đưa ra màn hình
A Ket qua a la 5 B Ket qua la 5 C Ket qua a la a D Không đưa ra gì cả Câu 9: Cách viết nào cho biểu thức sau là đúng trong TP: 3x2- 1
√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 do Begin
Write(“Hello Word”); i:=i+2;
End;
Chữ “Hello Word “ được in ra màn hình mấy 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 nào sau đây là đúng
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 trong 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 dữ liệu có thể phân tệp thành những 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 hiện đầu tiên của xâu thứ nhất trong xâu thứ hai, hàm chuyển kí tự sang chữ hoa? Cho ví
dụ cụ thể từng 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) và dãy
A gồm N số nguyên A1, A2, A3,…,AN có giá trị tuyệt đối không lớn hơn 1000 Hãy sắp xếp và
in ra màn 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 đúng
II PHẦN TỰ LUẬN (7 điểm)
III.
Trang 3SỞ 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 nào sau đây là đúng
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 nào sau đây là đúng?
A for i:= 1 to 5 do a:= a+ i; B for i = 1 to 5 do a:= a+ i;
C for i: = 1 to 5 do a:= a+ i D for i ;= 1 to 5 do a:= a+ i;
Câu 3: Cho đoạn chương trình:
Var i, j:integer;
Begin for i:=1 to 5 do begin for j:= 1 to 10 do write('*'); writeln;End.
đoạn chương trình có tác dụng
A in ra màn hình 50 ký tự * trên 1 hàng dọc
B in ra màn hình hình chữ nhật có hàng ngang 10 ký tự * và hàng dọc 5 ký tự *
C in ra màn hình hình chữ nhật có hàng ngang 5 ký tự * và hàng dọc 10 ký tự *
D in ra màn hình 50 ký tự * trên 1 hàng ngang
Câu 4: Để tìm giá trị lớn nhất của 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 quả gì?
For i:=10 Downto 1 Do Write(i ,' ');
A 1 2 3 4 5 6 7 8 9 10
B 10987654321
C Đưa ra 10 dấu cách
D 10 9 8 7 6 5 4 3 2 1
Câu 6: Trong ngôn ngữ lập trình Pascal đoạn chương trình sau thực hiện công việc gì?
T:=0;
For i:=1 To N Do
If (i mod 3 = 0) or (i mod 5= 0) Then T:=T+i;
A Tìm một ước của N;
B Tính tổng các ước thực sự của N;
C Tính tổng các số chia hết cho 3 hoặc 5 trong phạm vi từ 1 đến N;
D Tính tổng các số chia hết cho cả 3 và 5 trong phạm vi từ 1 đến N;
Câu 7: Kết quả của biểu thức sqrt((ABS(25-50) div 2)) có giá trị gần đúng là?
ĐỀ B
Trang 4A 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 và B=5 thì kết quả của A, B sau khi thực hiện đoạn chương trình trên là?
A A=10 và B=5 B A=15 và B=10 C A= 5 và B=10 D A,B,C đều sai
Câu 9: Cách viết nào cho biểu thức sau là đúng trong TP: 3x2- 1
√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); sẽ đưa ra màn hình
A Ket qua a la 5 B Ket qua la 5 C Ket qua a la a D Không đưa ra gì cả 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 trong 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 do Begin
Write(“Hello Word”); i:=i+2;
End;
Chữ “Hello Word “ được in ra màn hình mấy 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, có thể phân tệp thành những 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 hiện đầu tiên của xâu thứ nhất trong xâu thứ hai, hàm chuyển kí tự sang chữ hoa? Cho ví
dụ cụ thể từng 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) và dãy
A gồm N số nguyên A1, A2, A3,…,AN có giá trị tuyệt đối không lớn hơn 1000 Hãy sắp xếp và
in ra màn 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 đúng
II PHẦN TỰ LUẬN (7 điểm)
………
Trang 5SỞ 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ự do - 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 dữ liệu, có thể phân tệp thành hai loại:
Tệp văn bản: là tệp mà dữ liệu được ghi dưới dạng các kí tự theo mã ASCII Trong tệp văn
bản, dãy kí tự kết thúc bởi kí tự xuống dòng hay kí tự kết thúc tệp tạo thành một dòng (1 đ)
Tệp có cấu trúc: là tệp mà các thành phần của nó được tổ chức theo một cấu trúc nhất định
Tệp nhị phân là một trường hợp riêng của tệp có cấu trúc(1 đ)
Câu 2: a.hàm pos(s1, s2) (0.5 đ)
Ví dụ: (0.5 đ)
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 đ)
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 := 1 to n do
Begin
Write('A[',i,'] = ') ;
readln(A[i]) ;
End ; (0.5 đ)
For j := n downto 2 do
Begin For i := 1 to j-1 do
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 khi sap xep : ') ; For i := 1 to n do
write(a[i]:8) ; readln ;
End (0.5 đ)
Trang 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ự do - 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, có thể 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 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 đ)
Tệp truy cập trực tiếp: cho phép tham chiếu đến dữ liệu cần truy cập bằng cách xác định trực
tiếp vị trí (thường là số hiệu) của dữ liệu đó(0.5 đ)
Câu 2 : a.hàm pos(s1, s2) (0.5 đ)
Ví dụ: (0.5 đ)
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 đ)
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 := 1 to n do
Begin
Write('A[',i,'] = ') ;
readln(A[i]) ;
End ; (0.5 đ)
For j := n downto 2 do
Begin
For i := 1 to j-1 do
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 khi sap xep : ') ; For i := 1 to n do
write(a[i]:8) ; readln ;
End (0.5 đ)