‘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 một xâu.. Thay thế tất cả các cụm kí tự ‘Viet Tri’ bằng cụm kí tự ‘Tam Nong’ và đếm số lần thay thế.[r]
(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 Thông hiểu TNKQ TL Vận dụng TNKQ TL 0,5 0,5 Tham chiếu tới phần tử xâu 1 0,5 0,5 Phép ghép xâu 0,5 0,5 Phép so sánh 0,5 0,5 Các thủ tục và hàm chuẩn xử lí xâu 10 10 5 Viết chương trình xử lí xâu Tổng Tổng SỞ GD & ĐT PHÚ THỌ 0,5 11 1,5 15 8,0 ĐỀ KIỂM TRA TIẾT HỌC KỲ 10,0 (2) Trường THPT Tam Nông MÔN: Tin học 11 Đề 1: PHẦN I : TRẮC NGHIỆM (7 điểm ) Chọn đáp án đúng và điền vào bảng tương ứng đây Câu Đáp án 10 11 12 13 14 Câu 1: Đâu là khai báo trực tiếp đúng cho biến mảng chiều: A var <tên biến mảng> : array <kiểu số> of <kiểu phần tử>; B var <tên biến mảng> : array[<kiểu số>] of <kiểu phần tử>; C var <tên biến mảng> : array[<kiểu số>] of <kiểu mảng>; D type <tên biến mảng> : array[<kiểu số>] of <kiểu phần tử>; Câu 2: Em hãy cho biết, sau thực đoạn chương trình sau thì S2 nhận kết là gì? S1:= 'agh12h3'; S2 := ''; for i:= to length(S1) if( '0' =< S1[i]) and (S1[i] < = '9') then S2 := S2 + S1[i]; A S2 là các kí tự trống có S1 B S2 là các chữ cái có S1 C S2 là các chữ số có S1 D S2 là các kí tự đặc biệt có S1 Câu 3: Cho xâu S1:= 'abdegbcdeg'; Em hãy cho biết sau thực câu lệnh pos( 'deg ',S1); thì kết trả là 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á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’; hãy 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 và 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 là 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á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’; (3) 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á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ác cụm kí tự ‘Viet Tri’ cụm kí tự ‘Tam Nong’ và đếm số lần thay Kết đưa màn 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 i<>0 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 (4)