Ngày soạn 24 /02 /2013 MA TRẬN THIẾT KẾ ĐỀ KIỂM TRA Chủ đề Nhận biết Thông hiểu Vận dụng Tổng TNKQ TL TNKQ TL TNKQ TL Khai báo trực tiếp biến mảng 1 chiều 1 0,5 1 0,5 Tham chiếu tới phần tử của xâu 1[.]
MA TRẬN THIẾT KẾ ĐỀ KIỂM TRA Chủ đề Khai báo trực tiếp biến mảng chiều Nhận biết TNKQ TL 0,5 Tham chiếu tới phần tử xâu Thông hiểu TNKQ TL 1 Phép ghép xâu Phép so sánh Các thủ tục hàm chuẩn xử lí xâu Vận dụng TNKQ TL 0,5 1 0,5 0,5 0,5 10 Viết chương trình xử lí xâu Tổng Tổng 1,5 11 10 8,0 15 0,5 0,5 0,5 0,5 10,0 SỞ GD & ĐT PHÚ THỌ Trường THPT Tam Nơng ĐỀ KIỂM TRA TIẾT HỌC KỲ MƠN: Tin học 11 Đề 1: PHẦN I : TRẮC NGHIỆM (7 điểm ) Chọn đáp án điền vào bảng tương ứng Câu Đáp án 10 11 12 13 14 Câu 1: Đâu khai báo trực tiếp cho biến mảng chiều: A var : array of ; B var : array[] of ; C var : array[] of ; D type : array[] of ; Câu 2: Em cho biết, sau thực đoạn chương trình sau S2 nhận kết gì? S1:= 'agh12h3'; S2 := ''; for i:= to length(S1) if( '0' =< S1[i]) and (S1[i] < = '9') then S2 := S2 + S1[i]; A S2 kí tự trống có S1 B S2 chữ có S1 C S2 chữ số có S1 D S2 kí tự đặc biệt có S1 Câu 3: Cho xâu S1:= 'abdegbcdeg'; Em cho biết sau thực câu lệnh pos( 'deg ',S1); kết trả gì? A B C D Câu 4: Cho St:= ‘Chao cac ban’; Kết hàm length(St) là: A 11 B 13 C 10 D 12 Câu 5: Cho xâu a:=‘truong THPT Tam Nong’; Cho biết kết sau thực câu lệnh sau: For i:=1 to write(a[i]); A ‘truong Tam Nong’ B ‘Tam Nong’ C ‘truong’ D ‘truong THPT’ Câu 6: Cho xâu A:=’Nguyen Binh’; xâu B:=’Nguyen Nam’; cho biết: A Xâu A nhỏ xâu B; B Xâu A lớn xâu B; C Xâu A xâu B; D Không thể so sánh xâu A xâu B; Câu 7: Xâu a:= ‘Them chiec la rung’; xâu b:=‘mot ’; để có xâu: ‘Them mot chiec la rung’, ta sử dụng thủ tục: A Insert(a, b, 6); B Insert(a, b, 5); C Insert(b, a, 6); D Insert(b, a, 5); Câu 8: Xâu S1:= ‘Mot chieu’; cú pháp truy xuất đến phần tử ‘i’ xâu S1 là: A S1[i]; B S1.i; C S1[7]; D S1[6]; Câu 9: Xâu S:= ‘The la mua thu’; để xâu S có nội dung ‘The la’ ta sử dụng thủ tục: A Delete(S, 14, 7); B Delete(S, 7, 14); C Delete(S, 1, 6); D Delete(S, 6, 1); Câu 10: Xâu S1:=‘Nha tho To Huu’, để có xâu: ‘Nha tho’, ta dùng hàm: A Copy(S1, 1, 7); B Copy(S1, 7, 1); C Copy(S1, 9, 6); D Copy(S1, 6, 9); Câu 11: Để khai báo xâu S có độ dài lớn 50 kí tự ta khai báo: A Var S: string(50); B Var S:strings; C Var S: string[1 50]; D Var S:string[50]; Câu 12: Cho xâu s:=’nguyen binh’ Cho biết kết sau thực câu lệnh sau: For i:=1 to length(s) S[i]:=upcase(s[i]); A s = ‘nguyen’; B s = ‘NGUYENBINH’ C s = ‘NGUYEN BINH'; D s = ’Nguyen Binh’; Câu 13: Hãy cho biết kết phép ghép xâu: ‘1’ + ‘2’ + ‘3’ là: A ‘123’ B 123 C D ‘213’ Câu 14: Cho xâu a:=‘truong hoc’; b:=‘’ ; Cho biết kết sau thực câu lệnh sau: For i:=8 to length(a) b:=b+ a[i]; writeln(b); A ‘truong hoc’ B ‘hoc’ C ‘truong’ D ‘coh gnourt’ PHẦN II: TỰ LUẬN (3 điểm): Viết chương trình nhập vào từ bàn phím xâu Thay tất cụm kí tự ‘Viet Tri’ cụm kí tự ‘Tam Nong’ đếm số lần thay Kết đưa hình HƯỚNG DẪN – ĐÁP ÁN VÀ THANG ĐIỂM Câu I PHẦN TRẮC NGHIỆM: II PHẦN TỰ LUẬN: Đáp án Câu 10 11 12 13 14 Đáp B C C D C A C A B A D C A B án Program thaythe; Uses crt; Var st: string; dem, i:byte; Begin Clrscr; Writeln(‘Nhap vao xau bat ky:’); Readln(st); dem:=0; i:=pos(‘Viet Tri’,st); While i0 Begin Delete(st,i,8); Insert(st,’Tam Nong’,i); dem:= dem+1; i:=pos(‘Viet Tri’,st); End; Writeln(‘Ket qua thay the xau Viet Tri bang xau Tam Nong la: ’,st); Writeln(‘So lan thay the la:’,dem); Readln; End Thang điểm (7 điểm) Mỗi câu: 0.5 điểm (3 điểm) 0.5 điểm o.5 điểm 0.5 điểm điểm 0.5 điểm