Kiểm tra 1 tiết

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 483

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

Câu 1: 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. 1354 B. 1353 C. 1345 D. 1335
Câu 2: 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 3: 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. 1134903170 B. 1134900371 C. 1134901370 D. 1134907130
Câu 4: 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. ‘123456’ B. ‘123654’ C. ‘456321’ D. ‘456123’
Câu 5: 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. ‘fedcaccbaba’ B. ‘fedcabaccba’ C. ‘fedbcaccaba’ D. ‘fedcabccaba’
Câu 6: 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. ‘dfebcab’ B. ‘afedbcb’ C. ‘fedbcba’ D. ‘efdbcba’
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. ‘abacdef’ B. ‘abcbdef’ C. ‘abccdef’ D. ‘abaccbf’
Câu 8: 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. 471 B. 417 C. 411 D. 477
Câu 9: 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. 2108 B. 2018 C. 2801 D. 2180
Câu 10: Cho đoạn chương trình: readln(s1, s2); If s1>s2 then