[] Trong ngơn ngữ lập trình Pascal, đoạn chương trình (mảng chiều) sau thực cơng việc ? S := ; For i := to n If (a[i] mod =0) or (a[i] mod = 0) then S :=S+a[i] ; a Tính tổng phần tử mảng chia hết cho chia hết cho b Tính tổng phần tử chia hết cho c Tính tổng phần tử mảng d Tính tổng phần tử chia hết cho [] Cho khai báo mảng Var a : array[0 50] of real; đoạn chương trình sau: k := ; for i := to 50 if a[i] > a[k] then k := i; Đoạn chương trình thực cơng việc đây? a Tìm số phần tử nhỏ mảng; b Tìm phần tử nhỏ mảng; c Tìm số phần tử lớn mảng; d Tìm phần tử lớn mảng; [] Mảng A chứa phần tử ? Const Rows=3 ; Var A:array[0 rows+1] of integer ; a b c d [] Cho x, y, z biến nguyên: Begin x:=7; y:=5; z:=y; y: = x; x:=y; write(x,’ ‘, y); End Sau thực lệnh giá trị x, y là: a x=5, y=7 b x=7, y=7 c x=7, y=5 d x=7, y=12 [] Trong mảng chiều, đoạn chương trình sau thực cơng việc ? Dem := ; For i := to n If a[i] mod = then Dem := Dem + ; a Đếm phần tử chia hết cho mảng b Gán giá trị a[i] cho biến S c Tính tổng phần tử chia hết cho mảng d Tính tổng phần tử mảng [] Cho hai xâu S1=‘abcd’ ; S2=‘ghk’ ; lệnh Insert(S1,S2,1) cho kết ? a ‘abcdghk’ b ‘ghkabcd’ c ‘gabcdgha’ d ‘aghkbcd’ [] Đoạn chương trình for i:= to 10 write(i); Đưa hình kết nào: a 10 ThuVienDeThi.com b Đưa 10 dấu cách c 10 d 12345678910 [] Cho khai báo mảng sau: VAR M: ARRAY[0 10] OF Integer ; Phương án phần tử thứ 10 mảng ? A M[9]; B M(10); C M[10]; D M(9); [] Trong ngôn ngữ lập trình Pascal, khai báo khai báo sau SAI khai báo xâu kí tự ? A VAR S : STRING; B VAR S : STRING[256]; C VAR X1 : STRING[100]; D VAR X1 : STRING[1]; [] 10 Cho ST xâu kí tự, đoạn chương trình sau thực cơng việc gì? FOR i := LENGTH(ST) DOWNTO DO write(ST[i]) ; A In kí tự hình theo thứ tự ngược, trừ kí tự đầu tiên; B In xâu hình; C In kí tự hình theo thứ tự ngược; D In kí tự xâu hình; [] 11 Cho xâu S:= ‘Ha_Noi_Mua_Thu’; Kết trả cho S câu lệnh DELETE(S,7,10); A Ha_noi B Ha Noi C Lỗi cú pháp D Ha_Noi [] 12 Biểu diễn sau Pascal? A A20 B ‘A20’ C 20 D 1.06E13 [] 13 Khai báo sau khai báo số pascal? A Const pi=3.14; B Const pi:=3.14 C Uses pi=3.14; D Uses pi:=3.14; [] 14 Tên sau đặt sai quy định NNLT Pascal? A Diem_Toan B Diem Toan C DiemToan D D_Toan [] 15 Tên sau đặt quy định NNLT Pascal? A Diem_Toan B Diem Toan C DiemTo@n D D-Toan [] 16 Tên sau đặt quy định ThuVienDeThi.com A D_Tin B D Tin C 2Diemtin D Diem@tin [] 17 Cấu trúc chung chương trình viết NNLT bậc cao gồm có phần? A B C D [] Khi viết chương trình NNLT bậc cao, phần khai báo ta khai báo thơng tin gì? A Hằng B Biến C Thư viện D Cả A, B, C [] 18 Khi viết chương trình NNLT bậc cao, biến N có giá trị 1000 tồn chương trình Vậy ta nên khai báo N thuộc đối tượng nào? A Hằng B Biến C Thư viện D Cả A, B, C [] 19 Câu lệnh sau dùng khai báo đối tượng nào? Const MaxN=2000; A Hằng B Biến C Thư viện D Tên chương trình [] 20 Câu lệnh sau dùng khai báo đối tượng nào? Var MaxN:=2000; A Hằng B Biến C Thư viện D Đáp án khác [] 21 Trong Pascal, kiểu liệu Word nhận giá trị lớn bao nhiêu? A 65535 B 32768 C 32767 D 65536 [] 22 Trong Pascal, kiểu liệu byte nhận giá trị lớn bao nhiêu? A 255 B 256 C 32767 D 65536 [] 23 Cho biến x nhận giá trị nguyên từ -100 đến 100 Ta nên khai báo biến x có kiểu liệu tối ưu nhất? A Integer B Word C Byte D Longint [] ThuVienDeThi.com 24 Cho biến y nhận giá trị nguyên từ -103 đến 104 Ta nên khai báo biến y có kiểu liệu tối ưu nhất? A Real B Word C Byte D Longint [] 25 Để tính diện tích hình trịn bán kính R nên chọn khai báo S có kiểu liệu gì? A Real B Byte C integer D Word [] 26 Để tính diện tích hình vng cạnh a ( b then write(a) else write (b); D If a > b then write(a); else write(b); [] 44 Cho biết kết đoạn chương trình sau? N:=5;tong:=0; For i:=1 to n If ( i mod 3=0) then Tong:=tong+i; Write(tong); A B C 10 D [] 45 Các biểu diễn phép toán số học với số nguyên Pascal là: A + , - , * , / , div , mod B +, -, * , / C +, - , * , div , mod D +, - , x , : [] 46 Khai báo khai báo sau: A Var a; b; c : Real; B Var a, b, c : Interger; C Var a, b, c : Real; D Var a b c : Real; [] 47 Cho đoạn chương trình : T := ; For i := 10 to 20 If i mod 10 = then t := t + i ; Writeln(t) ; Sau thực hiện, t có giá trị? A 11 B 45 C 12 D 30 [] 48 Xác định kết sau thực câu lệnh: A := sqr(3)/sqrt(9); A A:= ThuVienDeThi.com B A:=3 C A:=9 D A:=6 [] 49 Trong ngơn ngữ lập trình Pascal, cho biết kết in hình đoạn chương trình sau: Var a,b :byte ; Begin a :=5 ; b :=3; a :=b ; b :=a ; writeln(b*a,‘ ‘) ; End A 3 B C 15 D 55 [] 50 Trong Pascal, biểu thức (22 div 3+18 mod 4) cho kết là? A 10 B C D [] 51 Cho biết giá trị biến xâu St sau thực xong câu lệnh St:= ‘Khoa’+‘Hoc’; A St = ‘Khoa Hoc’; B St = ‘khoa hoc’; C St = ‘Khoahoc’; D St = ‘KhoaHoc’; [] 52 Phép so sánh xâu cho giá trị TRUE A ‘Quoc_Gia’ > ‘Quoc_Su’ B ‘Quoc_gia’ > ‘Quoc_Su’ C ‘Quoc_Gia’ > ‘Quoc_su’ D ‘Quoc_gia’ > ‘Quoc_su’ [] 53 Khai báo ĐÚNG khai báo mảng chiều sau: A VAR A:ARRAY[1 100] OF Integer; B VAR A:ARRAY[100] OF Integer; C VAR A=ARRAY[1 100]OF Integer; D VAR A:ARRAY[1-100] OF Integer; [] 54 Để in giá trị phần tử thứ 20 mảng chiều A hình ta viết: A Write(A[20]); B Write(A(20)); C Readln(A[20]); D Write([20]); [] 55 Trong Pascal để thực chương trình ta nhấn phím? A F9 B Ctrl + F9 C Alt + F9 D Alt + F3 [] 56 Trong Pascal, khai báo sau sai? A CONST Lop = ”Lop 11”; ThuVienDeThi.com B CONST Lop = ’Lop 11’; C CONST Max = 1000; D CONST pi = 3.1416; [] 57 Kết biểu thức SQR((ABS(26-30) div 2)) là? A B C D [] 58 Biểu thức ((27 mod 10) div 2) có kết mấy? A B C D [] 59 Cho S1 = ‘abc’ S2 = =‘bac’, cho biết kết thực thủ tục INSERT(S1,S2,3); A S1 = ‘abcbac’ B S2 = ‘baabcc’ C S2 = ‘baacbc’ D S1= ‘abbacc’ [] 60 Cho S1 = ‘Anh’, S2 = ‘ANH’ thì: A S1 < S2 B S1 = S2 C S1 > S2 D S1 = '0 ') and (X[i]