Ố Ọ THI CU I H C K I
Ỳ – NĂM H CỌ 2022 2023
Ở S GD & ĐT QU NG NAM Ụ ƯỜ
Ễ
Ả NG THPT NGUY N D C
TR
Ớ
Ọ MÔN TIN H C L P 11 ờ
ề
(Đ có 2 trang)
ề Th i gian làm bài : 45 Phút; ệ ắ (Đ có 15 câu tr c nghi m, 02 câu t ự ậ ) lu n
ố
Mã đề 003
: ...................
H tênọ
: ............................................................... S báo danh
Ệ Ầ Ắ ể
ọ ấ
ố ự ố ế ệ ế
ớ ế I. PH N TR C NGHI M: (5 đi m) Em hãy ch n đáp án đúng nh t. Câu 1: Trong Pascal, khai báo bi n a là s nguyên, bi n b là s th c, câu l nh nào sau đây đúng v i khai báo bi n.
A. Var a: integer; b:word; C. Var a: byte; b:real; B. Var a: byte; b=real; D. Var a , b: integer, word;
ạ ề ả Câu 2: Khai báo bi n m ng m t chi u có d ng:
ế ả
ầ ử ầ ử ể ể
ế ế ế
ầ ử ế ể ả ộ
A. Var
ầ ử ế ỉ ố ỉ ố ả ỉ ố ệ ổ ệ chia h t cho 2 trong n
ể ể ể ể ự Câu 3: Đo n l nh nào sau đây th c hi n vi c tính t ng các ph n t ph n t ạ ệ ả c a m ng
ầ ử ủ A. For i := 1 to n do If A[i] mod 2 < > 0 then S := S + A[i]; B. For i := 1 to n do If A[i] div 2 = 0 then S := S + A[i]; C. For i := 1 to n do If A[i] div 2 < > 0 then S := S + A[i]; D. For i := 1 to n do If A[i] mod 2 = 0 then S := S + A[i]; ượ ị c chia làm? Câu 4: Ch
ươ ị
ị ị
ị
ị
ng trình d ch đ A. Phiên d ch và thông d ch. B. Thông d ch và phiên d ch. C. Thông d ch và biên d ch. D. Thông d ch, phiên d ch và biên d ch. ị ị ị ị ố ị ế ư ỏ ấ ị ủ ế ặ
ẽ ấ Câu 5: Mu n dùng bi n X l u giá tr nh nh t trong các giá tr c a 2 bi n A ho c B ta dùng c u trúc r nhánh nào sau đây:
A. X:=B; if A>B then X:=A;
C. If A B. If A<=B then X:=A else X:=B;
D. If A ơ không ph iả là…
D. tên dành riêng. ế
A. bi n đ n. ể
B. bi u th c. C. h ng.ằ
ạ ế ế ặ ơ
ỏ ơ
ỏ ơ
ơ ế
ế
ế
ế ế
ế
ế
ế ứ
ệ
Câu 7: Theo em thì khi nào câu l nh l p for..do d ng ti n k t thúc?
ị ố
ớ
A. Khi bi n đ m l n h n giá tr cu i.
ị ố
B. Khi bi n đ m nh h n giá tr cu i.
ị ầ
C. Khi bi n đ m nh h n giá tr đ u.
ị ầ
ớ
D. Khi bi n đ m l n h n giá tr đ u. ệ ệ ệ ự Câu 8: Câu l nh nào sau đây sai khi th c hi n l nh gán trong Pascal: A. a:=a+b; C. a:= 5*3; D. a= 5*3; ằ B. a:= 5;
Câu 9: Trong Pascal, khai báo h ng nào sau đây sai? A. Const M=1000; B. Const pi=3.1416; D. Const x=’Lop 11’; C. Const x=”Lop 11”;
ứ ủ ệ Câu 10: Ch c năng c a l nh Readln; là: ươ bàn phím. ọ
ạ ể ế ả
ng trình đ xem k t qu . ế
A. K t thúc ch
ố
C. Xu ng dòng m i . ươ ng trình.
ớ
Câu 11: Trong Turbo Pascal, đ l u ch ộ ố ừ
B. Đ c vào m t s t
ươ
ừ
D. T m d ng ch
ng trình ta dùng phím nào? A. Ctrl+F2 C. Alt + F2 ấ
D. Nh n F2 ạ ệ ổ ệ ệ ể ư
B. Shift + F2
ự Câu 12: Đo n l nh nào sau đây th c hi n vi c tính t ng : s=1+2+3+…+n A. For i := 1 to n do S := S + i*i;
B. For i := 1 to n do S := S + A[i];
C. For i := 1 to n do S := S + i;
D. For i := 1 to n do S := S + 1; ệ ượ ự ệ ệ ẽ ệ Câu 13: C u trúc r nhánh If<đi u ki n> then ề
ượ
c tính toán.
c tính toán xong. ị
ị ầ ươ ằ ấ
ệ
ề
A. Đi u ki n không đ
ượ
ệ
ề
B. Đi u ki n đã đ
ệ ượ
ề
C. Đi u ki n đ
c tính toán và cho giá tr sai.
ệ ượ
ề
c tính toán và cho giá tr đúng.
D. Đi u ki n đ
ấ ươ ng trình Pascal ph n thân ch ắ ầ
ng trình b t đ u b ng….và ế ằ Câu 14: Trong c u trúc ch
k t thúc b ng…? A. BEGIN… END, B. BEGIN… END. D. BEGIN… END ộ C. BEGIN…END;
ự Câu 15: Trong Free Pascal, tên có đ dài bao nhiêu kí t ?
B. 127 C. 255 A. 126 D. 256 Ầ Ự Ậ ể II. PH N T LU N: (5 đi m) ạ ươ ng trình Câu 1: (2 đi m) ể Khi ch y ch Var S, i : Integer; Begin S:=5; For i:=1 to 9 do if ( i mod 2 =0 ) then S:= S + i; write(‘s=’,s); readln; End. ủ ị a. Giá tr sau cùng c a S là bao nhiêu? ự ệ ệ ầ b. L nh S:=S+i sau then th c hi n bao nhiêu l n? ầ ử ả ồ ế ươ Cho m ng A g m n ph n t nguyên (n <= 200). Vi t ch ng trình: Câu 2: (3 đi m) ể ậ ả
a. Nh p m ng trên ? ầ ử ị ủ ấ ả b. Xu t ra màn hình: tích giá tr c a các ph n t ố ẻ
trong m ng là s l ? Ế
H T ề
Trang 1/3 Mã đ 003
ề
Trang 2/3 Mã đ 003
ề
Trang 3/3 Mã đ 003
