Đề kiểm tra 15p Tin 11 trường THPT Trung Giã năm 2017-2018 mã đề 134

SỞ GD-ĐT HÀ NỘI TRƯỜNG THPT TRUNG GIÃ Năm học 2017-2018	ĐỀ KIỂM TRA 15 phút Môn: Tin học 11 Thời gian làm bài: 45 phút; (10 câu trắc nghiệm)
		Mã đề thi 134

(Thí sinh không được sử dụng tài liệu)

Câu 1: Cho đoạn chương trình: readln(s); space2:='ac'; while pos(space2,s)>0 do delete(s, pos(space2, s), 2); for i:=length(s) downto 1 write(s[i]); Chạy thử đoạn chương trình trên với xâu S nhập vào từ bản phím là ‘abaccbacdef’. Kết quả cuối cùng hiện trên màn hình là gì?

A. ‘fedbcba’ B. ‘efdbcba’ C. ‘afedbcb’ D. ‘dfebcab’

Câu 2: Cho đoạn chương trình: S:=0; for i:=1 to 10 do begin write('A[',i,']='); readln(A[i]); S:=s+a[i]; end; Khi chạy chương trình trên nhập các giá trị của các phần tử là: 135; 231; -45; 942; -514; 327; -111; -83; 120; 351; thì kết quả của S là bao nhiêu?

A. 1335 B. 1354 C. 1353 D. 1345

Câu 3: Cho đoạn chương trình: S:=0; for i:=1 to 10 do begin write('A[',i,']='); readln(A[i]); if a[i]>0 then S:=s+a[i]; end; Khi chạy chương trình trên nhập các giá trị của các phần tử là: 135; 231; -45; 942; -514; 327; -111; -82; 120; 353; thì kết quả của S là bao nhiêu?

A. 2801 B. 2108 C. 2180 D. 2018

Câu 4: Cho đoạn chương trình: a[0]:=0; a[1]:=1; readln(N); for i:=2 to N do a[i]:=a[i-2]+a[i-1]; Chạy đoạn chương trình trên và cho biết giá trị của A[N] với N=18 là bao nhiêu?

A. 2458 B. 2485 C. 2548 D. 2584

Câu 5: Cho đoạn chương trình: S:=0; for i:=1 to 10 do begin write('A[',i,']='); readln(A[i]); end; readln(k); for i:=1 to 10 do if a[i] mod k=1 then s:=s+a[i]; Khi chạy chương trình trên nhập các giá trị của các phần tử là: 135; 231; -45; 942; -514; 327; -111; -82; 120; 351; và nhập K=7 thì giá trị của S là bao nhiêu?

A. 417 B. 411 C. 477 D. 471

Câu 6: Cho đoạn chương trình: a[0]:=0; a[1]:=1; readln(N); for i:=2 to N do a[i]:=a[i-2]+a[i-1]; Chạy đoạn chương trình trên và cho biết giá trị của A[N] với N=45 là bao nhiêu?

A. 1134901370 B. 1134907130 C. 1134903170 D. 1134900371

Câu 7: Cho đoạn chương trình: readln(s); space2:='ac'; while pos(space2,s)>0 do delete(s, pos(space2, s), 2); write(s); Chạy thử đoạn chương trình trên với xâu S nhập vào từ bản phím là ‘abaccbacdef’. Kết quả cuối cùng nhận được của xâu S là gì?

A. ‘abcbdef’ B. ‘abaccbf’ C. ‘abacdef’ D. ‘abccdef’

Câu 8: Cho đoạn chương trình: readln(s1, s2); If s1>s2 then writeln(s1) else writeln(s2); CHạy đoạn chương trình trên và nhập S1 là xâu ‘fedcaccbaba’, s2 là xâu ‘fedcAccbaba’ thì kết quả trên màn hình là xâu nào?

A. ‘fedcAccbaba’ B. ‘fedcaccbaba’ C. ‘fedcAccabab’ D. ‘fedcaccabab’

Câu 9: Cho đoạn chương trình: readln(s); x:=''; for i:=1 to length(s) do if (s[i]>='0') and (s[i]<='9') then x:=s[i]+x; Chạy đoạn chương trình trên và nhập S là xâu ‘abc123def654’ thì xâu X là xâu nào sau đây?

A. ‘123654’ B. ‘456321’ C. ‘123456’ D. ‘456123’

Câu 10: Cho đoạn chương trình: readln(s); n:=length(s); for i:=n downto 1 write(s[i]); Chạy thử đoạn chương trình trên với xâu S nhập vào từ bản phím là ‘abaccbacdef’. Kết quả cuối cùng hiện trên màn hình là gì?

A. ‘fedcabccaba’ B. ‘fedcabaccba’ C. ‘fedcaccbaba’ D. ‘fedbcaccaba’

-----------------------------------------------

----------- HẾT ----------