de kiem tra tin hoc 11 HK 2

<span class='text_page_counter'>(1)</span>SỞ GD&ĐT THỪA THIÊN HUẾ TRƯỜNG THPT HƯƠNG VINH. KIỂM TRA 15 phút - NĂM HỌC 2011 - 2012 Môn: Tin Học - LỚP…………… Họ tên: …………………………………... Câu 1:(1 điểm) Cú pháp khai báo kiểu dữ liệu xâu nào đúng: (a) Var <tên biến>= String[độ dài lớn nhất]; (b) Var <tên biến>:Array[độ dài lớn nhất]; (c) Var <tên hằng>:String[độ dài lớn nhất]; (d) Var <tên biến>:String[độ dài lớn nhất]; Câu 2: (1 điểm) Trong ngôn ngữ pascal xâu không có kí tự nào gọi là? (a) Xâu trắng (b) Xâu không (c) Xâu rỗng (d) Không phải là xâu kí tự Câu 3: (1 điểm) Trong ngôn ngữ lập trình Pascal, cú pháp câu lệnh lặp với số lần chưa biết trước là? (a). For < Biến đếm>:=<giá trị đầu> to <giá trị cuối> do<câu lệnh>; (b). For < Biến đếm>:=<giá trị cuối> downto <giá trị đầu> do<câu lệnh>; (c). While <Điều kiện> do< câu lệnh>; (d). a và b đều đúng. Câu 4: (1 điểm) Cho xâu s= ‘tin hoc’; Hàm length(s) cho kết quả là? (a) 2. (b) 3. (c)6. Câu 5: (1 điểm) Câu lệnh sau cho kết quả gì? st:= ‘Khoa’+ ‘Hoc’; (a) st= ‘KhoaHoc’ (b) st= ‘Khoa Hoc’ (c) st=’Khoahoc’ (d) st=’Khoa hoc’ Câu 6. (1 điểm) Chương trình sau làm gì? While pos(‘aa’,st)>0 do Begin vt:=pos(‘aa’,st); delete(st,vt,2);insert(‘bb’,st,vt);end. (a) Thay thế tất cả cụm ‘aa’trong xâu st bởi cụm ‘bb’. (b) Xóa tất cả các cụm ‘aa’ trong xâu st (c) Thay thế một cụm ‘aa’trong xâu st bởi nhiều cụm ‘bb’. (d)7.

<span class='text_page_counter'>(2)</span> (d) Thay thế nhiều cụm ‘aa’trong xâu st bởi một cụm ‘bb’ Câu 7. (1 điểm)Cho xâu s= ‘hanoi--vietnam’ kết quả hàm pos(‘vietnam’,s) cho kết quả là? (a) 2 (b) 3 (c) 8 (d) 7 Câu 8. (1 điểm) Cho xâu s= ‘tin hoc’ Kết quả hàm delete(s,4,2) cho kết quả là? (a) S= ‘tin c’ (b) S= ‘toc’ (c) S= ‘tin oc’ (d) S= ‘tinc’ Cho chương trình sau: Var i , k:byte; a :string; Begin writeln(‘nhap xau a’) (1) readln(a); (2) k:=length(a); (3) for i:=k downto 1 do write(a[i]); (4) readln (5) End. Câu 9. (1 điểm) Chương trình trên báo lỗi ở các dòng nào? (a) 1, 2,5 (b) 1, 4,5 (c) 5 (d) 1 Câu 10. (1 điểm) Chương trình trên thực hiện công việc gì? (a) Nhập vào một xâu a (b) Nhập vào một xâu a rồi in xâu đảo ngược của xâu a ra màn hình (c) Tìm độ dài của xâu a (d) Nhập vào một xâu a rồi in xâu đó ra màn hình. Phần trả lời: Câu Phươn g án trả lời. 1. 2. 3. 4. 5. 6. 7. 8. 9. 10.

<span class='text_page_counter'>(3)</span> SỞ KIỂM TRA 15 phút - NĂM HỌC 2011 - 2012 GD& ĐT THỪ A THIÊ N HUẾ TRƯ Môn: Tin Học - LỚP…………… ỜNG Họ tên: ………………………………….. THP T HƯƠ NG VINH Câu 1: (1 điểm) Cách khai báo trực tiếp kiểu dữ liệu mảng một chiều: (a). Var <tên biến mảng>:array[kiểu chỉ số] of <kiểu phần tử>; (b). Var <tên biến mảng>:string[kiểu chỉ số] of <kiểu phần tử>; (c). Var <tên biến>:Array[độ dài lớn nhất]; (d). Var <tên biến mảng> = array[kiểu chỉ số] of <kiểu phần tử>; Câu 2: (1 điểm) Ý nghĩa câu lệnh lặp: While <điều kiện> do <câu lệnh >; (a). Trong khi <điều kiện> con sai thì câu lệnh còn được thực hiện. (b). Trong khi <điều kiện> con đúng thì câu lệnh còn được thực hiện. (c). Nếu <điều kiện> đúng thì câu lệnh được thực hiện. (d). Nếu <điều kiện> sai thì câu lệnh được thực hiện. Câu 3: (1 điểm) Cho biết kết quả của lệnh: Insert('hoc ', 'Tin lop 11', 5); (a). 'hoc tin lop 11' (b). 'lop 11 tin hoc' (c). 'Tinhoclop 11' (d). 'Tin hoc lop 11' Câu 4: (1 điểm) Cú pháp khai báo kiểu dữ liệu xâu: (a). Const <tên biến>:String[độ dài lớn nhất]; (b). Var <tên biến>:Array[độ dài lớn nhất]; (c). Var <tên hằng>:String[độ dài lớn nhất]; (d). Var <tên biến>:String[độ dài lớn nhất]; Câu 5: (1 điểm) Chương trình sau thực hiện việc gì? Var A, B: String[50]; Begin Write('Nhap vao xau A = '); readln(A); Write('Nhap vao xau B = '); readln(B); If Length(A) < Length(B) then write(A) else write(B); Readln; End. (a). Nhập vào hai xâu, xuất ra màn hình xâu dài hơn..

<span class='text_page_counter'>(4)</span> (b). Nhập vào hai xâu, xuất ra màn hình xâu ngắn hơn. (c). Nhập vào hai xâu, xuất ra màn hình hai xâu vừa nhập. (d). Nhập vào hai xâu, xuất ra màn hình xâu nhập vào sau. Câu 6. (1 điểm) Cách tham chiếu đến một phần tử của mảng? (a). Tên biến mảng[chỉ số phần tử ]; (b). Tên biến mảng(chỉ số phần tử); (c). Tên kiểu mảng[chỉ số phần tử ] (d). Tên kiểu mảng(chỉ số phần tử) Câu 7: (1 điểm) Trong ngôn ngữ lập trình Pascal, câu lệnh nào sau đây thể hiện là cú pháp câu lệnh lặp với số lần chưa biết trước? (a). For < Biến đếm>:=<giá trị đầu> to <giá trị cuối> do<câu lệnh>; (b). For < Biến đếm>:=<giá trị cuối> downto <giá trị đầu> do<câu lệnh>; (c). While <Điều kiện> do< câu lệnh>; (d). a và b đều đúng. Câu 8: (1 điểm) Xâu S có giá trị là: 'Viet Nam que huong toi' kết quả của hàm Length(S) là: (a). 24 (b). 18 (c). 23 (d). 22 Câu 9: (1 điểm) Mảng A gồm N = 7 phần tử: 1 2 3 4 5 6 7. Các lệnh sau: T := 0; For i := 1 to N do T := T + A[i]; cho kết quả là: (a). T = 28 (b). T = 20 (c). T = 7 (d). T = 0 Câu 10: (1 điểm) Chọn khai báo đúng trong các khai báo sau: (a). Var S, T : String (b). Var S, T : Xtring[255]; (c). Var S, T : String[300]; (d). Var S, T : String[200]; _______________HẾT_______________. Phần trả lời: Câu Phương. 1. 2. 3. 4. 5. 6. 7. 8. 9. 10.

<span class='text_page_counter'>(5)</span> án trả lời.

<span class='text_page_counter'>(6)</span> SỞ GD&ĐT THỪA THIÊN HUẾ TRƯỜNG THPT HƯƠNG VINH. KIỂM TRA 15 phút - NĂM HỌC 2011 - 2012 Môn: Tin Học - LỚP…………… Họ tên: …………………………………... Câu 1: Cú pháp để khai báo trực tiếp biến mảng một chiều là: (a) Var <tên biến mảng> : array [kiểu chỉ số] of <kiểu phần tử>; (b) Type <tên biến mảng> : array [kiểu chỉ sô] of <kiểu phâng tử>; (c) Var <tên biến mảng> : array [kiểu phần tử] of <kiểu chỉ sô>; (d) Var <tên biến mảng> : array [kiểu chỉ sô] : [kiểu phần tử]; Câu 2:Trong pascal để tìm giá trị lớn nhất của mảng a có n phần tử ta dùng đoạn lệnh nào? (a) Max :=a[1]; For i:=1 to n do if a[i]<max then max:=a[i]; (b) Max :=a[1]; For i:=1 to n do if a[i]<=max then max:=a[i]; (c) Max :=a[1]; For i:=1 to n do if a[i]>max then max:=a[i]; (d) Max :=a[1]; For i:=1 to n do if a[i]>=max then max:=a[1]; Câu 3: Trong ngôn ngữ lập trình Pascal, về cú pháp câu lệnh nào sau đây là đúng (a) Type 1mang=array[1..100] of integer; (b) Type 2mang=Array[1-100] of integer; (c) Type mang1=Array[1…100] of integer; (d) Type mang2=Array[1..100] of integer; Câu 4: Cho đoạn lệnh sau: A[1] := 5; A[2] := 4; A[3] :=9; A[4] := 8; For i:= 4 downto 1 do Write (A[i]); Kết quả xuất ra màn hình sẽ là: (a). 8945 (b). 1234 (c). 5498 (d). 4321 Câu 5: Đoạn lệnh For i:= 1 to n do Begin Write (‘A[‘, i, ‘]=’); Readln (A[i]); End; Dùng để: (a) Nhập dữ liệu cho mảng một chiều (b) Xuất dữ liệu cho mảng một chiều (c) Nhập dữ liệu cho một xâu kí tự (d) Xuất dữ liệu cho một xâu kí tự.

<span class='text_page_counter'>(7)</span> Câu 6: Phát biểu nào sau đây là sai khi nói về khái niệm xâu (a) Xâu là dãy các kí tự trong bộ mã ASCII (b) Mỗi kí tự được gọi là một phần tử của xâu (c) Xâu rỗng là xâu chỉ chứa một kí tự trắng (d) Số lượng kí tự trong xâu được gọi là độ dài của xâu. Câu 7: Để khai báo biến xâu trực tiếp ta sử dụng cú pháp nào sau đây (a) Var <tên biến>: <tên kiểu>; (b) Var <tên biến>: string[độ dài lớn nhất của xâu]; (c) Var <tên biến>=string[độ dài lớn nhất của xâu]; (d) Var <tên biến>=<tên kiểu>; Câu 8: Thực hiện thủ tục: Delete (‘Truong THPT HUONG VINH’, 8,5) là: (a) ‘THPT HUONG VINH’ (b) ‘Truong THPT’ (c) ‘HUONG VINH’ (d) ‘Truong HUONG VINH’ Câu 9: Thủ tục Delete(St,p,n) thực hiện việc: (a) Xóa n kí tự của biến xâu St bắt đầu từ vị trí p (b) Xóa p kí tự của biến xâu St bắt đầu từ vị trí n (c) Xóa các kí tự của biến xâu St bắt đầu từ vị trí p đến vị trí n (d) Xóa các kí tự của biến xâu St bắt đầu từ vị trí n đến vị trí p Câu 10: Trên dữ liệu kiểu xâu có các phép toán nào? (a) Phép toán so sánh và phép gán (b) Phép so sánh và phép nối (c) Phép gán và phép nối (d) Phép gán, phép nối và phép so sánh Phần trả lời: Câu Phương án trả lời. 1. 2. 3. 4. 5. 6. 7. 8. 9. 10.

<span class='text_page_counter'>(8)</span>