Trong ngôn ngữ lập trình Pascal, trong quá trình nhập dữ liệu của mảng một chiều A, để các phần tử hiển thị như trong cửa sổ chương trình ta viết lệnh như sau:A. Hãy chọn phương án ghép [r]
(1)o6n thi 2017_2018
01 ; / = ~ 12 ; / = ~ 23 ; / = ~ 34 ; / = ~ 02 ; / = ~ 13 ; / = ~ 24 ; / = ~ 35 ; / = ~ 03 ; / = ~ 14 ; / = ~ 25 ; / = ~ 36 ; / = ~ 04 ; / = ~ 15 ; / = ~ 26 ; / = ~ 37 ; / = ~ 05 ; / = ~ 16 ; / = ~ 27 ; / = ~ 38 ; / = ~ 06 ; / = ~ 17 ; / = ~ 28 ; / = ~ 39 ; / = ~ 07 ; / = ~ 18 ; / = ~ 29 ; / = ~ 40 ; / = ~ 08 ; / = ~ 19 ; / = ~ 30 ; / = ~ 41 ; / = ~ 09 ; / = ~ 20 ; / = ~ 31 ; / = ~ 42 ; / = ~ 10 ; / = ~ 21 ; / = ~ 32 ; / = ~ 43 ; / = ~ 11 ; / = ~ 22 ; / = ~ 33 ; / = ~ 44 ; / = ~
Mã đề: 143 Câu 1.
Cho x biến nguyên, y biến thực Câu lệnh sau SAI:
A.y:= y/3; B.x:= x+3.0; C.x := x div 3; D.y := y*3.0; Câu Độ dài tối đa xâu kí tự PASCAL là
A. 255; B. 65535; C. Tùy ý; D. 256;
Câu 3. Trong ngơn ngữ lập trình Pascal, q trình nhập liệu mảng chiều A, để phần tử hiển thị cửa sổ chương trình ta viết lệnh sau:
A. Write(' A[ i ]= '); readln(A[i]); B. Write(" A[ " , i ," ]= "); readln(A[i]); C. Write(' A[ ' i ' ]= '); readln(A[i]); D. Write(' A[ ' , i , ' ]= '); readln(A[i]);
Câu Với lệnh sau dùng để in giá trị M(M kiểu số thực) hình với độ rộng có chữ số thập phân?
A.Write(M:2:5); B.Write(M;2;5); C Write(M:5:2); D.Write(M;5;2); Câu 5.
Cho đoạn chương trình sau: a=2017;
a:=a mod 1;
If(a<>1) then x:=2016 Else x:= 2015; Write('x= ', x);
Kết ?
A.x = B.x = C.x = 2016 D.x = 2015
Câu 6.
Lệnh Write( '5 x = ' , 5*4 ) ; viết hình :
A.20 = * B.5 x = 5*4 C.20 = 20 D.5 x = 20
Câu Hãy chọn phương án ghép Cho xâu S 'Hanoi-Vietnam' Kết hàm Length(S)
A 15 B 13 C 14 D 12
Câu Biểu diễn biểu thức NNLT Pascal là:
(2)A Khơng có câu lệnh đúng. B Readln(x);
C. Writeln(x); D. Write('X');
Câu 10.
Trong cú pháp cấu trúc rẽ nhánh dạng đủ <câu lệnh 2> thực nào? A.Câu lệnh thực hiện; B.Biểu thức điều kiện đúng; C.Câu lệnh thực hiện; D.Biểu thức điều kiện sai;
Câu 11. Trong ngôn ngữ lập trình Pascal, thủ tục Delete(c, a, b) thực cơng việc việc sau? A Xóa xâu b c kí tự vị trí a;
B Xóa xâu a b kí tự từ vị trí c;
C. Xóa xâu c b kí tự vị trí a; D Xóa xâu kí tự c a kí tự vị trí b;
Câu 12.Hãy chọn phương án ghép Với cấu trúc rẽ nhánh IF <điều kiện> THEN <câu lệnh 1> ELSE <câu lệnh 2>, câu lệnh 2 thực
A biểu thức điều kiện sai
B biểu thức điều kiện câu lệnh 1 thực xong C. biểu thức điều kiện
D.câu lệnh 1 thực Câu 13
Hãy cho biết giá trị biến x:=copy('BOT Cai Lay',5,3);
A.' Cai' B.' Cai ' C.'Cai ' D 'Cai' Câu 14.
Trong ngơn ngữ lập trình Pascal, để xóa ký tự cuối xâu ký tự S ta viết :
A.Delete(S,1,length(S)); B.Delete(S, 1, 1); C Delete(S, length(S),1); D.Delete(S, 1,0 ); Câu 15
Cho biết kết chương trình sau? Var a,b: integer;
begin
a:= 10; b:= -10;
if a<=b then write(-1) else write (1); end
A B.10 C.-1 D.10
Câu 16. Trường hợp sau lệnh gán Pascal?
A a := a*2 ; B cd := 50 ; C a := 10 ; D a + b := 1000 ; Câu 17
Trong ngơn ngữ lập trình Pascal, câu lệnh sau ĐÚNG?
A If <điều kiện> then <câu lệnh>; B.If <điều kiện>, then <câu lệnh>; C.If <điều kiện> then <câu lệnh>: D.If <điều kiện>; then <câu lệnh>; Câu 18 Trong cách khai báo sau đây, cách khai báo đúng?
A. Const pi = 3.14; B. Const = pi; C. pi = 3.14; D. Const pi = 3,14;
Câu 19.
Trong Pascal xâu gì
A.Tập hợp kí tự bảng mã ASCII
B.Tập hợp kí tự bảng chữ tiếng Anh
C.Xâu xem kiểu mảng chiều mà phần tử số D.Tập hợp kí tự bảng chữ tiếng Việt
Câu 20 Cho khai báo biến sau (trong Pascal): VAR m, n: integer;
X, y: real; Lệnh gán sau sai?
(3)Cho biểu thức dạng toán học sau: 2
1
b
a ; chọn dạng biểu diễn tương ứng Pascal: A 1/4sqrt(a*a-b*b) B 1/4* sqrt(a*a-b*b) C 1/4*spr(a*a-b*b) D 1/4sqr(a*a-b*b) Câu 22
Trong ngơn ngữ lập trình Pascal, để in xâu hình theo thứ tự ngược lại ký tự xâu
(Ví dụ 'abcd' in 'dcba'), đoạn chương trình sau thực việc này? A.For i:=1 to length(s) write(s[i]); B.For i:=length(s) downto write(s); C.For i:=length(s) downto write(s[i] ); D.For i:=1 to length(s) div write(s[i]); Câu 23. Trong ngơn ngữ Pascal, từ khóa USES dùng để khai báo:
A Hằng B Biến C Tên chương trình D Thư viện Câu 24
Hãy chọn cách dùng ĐÚNG Muốn dùng biến X lưu giá trị lớn giá trị hai biến A, B có thể dùng cấu trúc rẽ nhánh sau :
A.If A < B then X := B else X := A; B.If A > B then X := A;
C.If A < B then X := A else X := B; D.X := B; if A < B then X := A; Câu 25
Trong NNLT Pascal, chương trình sau có kết gì? If (5 mod 2=0) then write ('Sai'); Else write ('Dung');
A Chương trình bị lỗi B.Dung C.1 D.Sai
Câu 26 Cho khai báo mảng sau: Var a : array[0 10] of integer; Phương án phần tử thứ 10 mảng ?
A a(10); B a[10]; C a[9]; D a(9);
Câu 27
Kết biểu thức (25-50) div là:
A -6 B.1 C.13 D.-1
Câu 28.
Trong ngơn ngữ lập trình Pascal, hai xâu ký tự so sánh dựa trên: A.Độ dài tối đa hai xâu;
B.Độ dài thực hai xâu;
C.Mã ký tự xâu từ trái sang phải; D.Mã ký tự xâu từ phải sang trái; Câu 29 Trong Pascal, phép tốn MOD với số ngun có chức gì?
A. Làm trịn số B. Thực phép chia C. Chia lấy phần dư D. Chia lấy phần nguyên Câu 30. Trong ngôn ngữ lập trình Pascal, mặt cú pháp câu lệnh sau đúng ?
A Type mang1c=array[1 100] of char; B Type mang1c=array(1 100) of char; C. Type mang=array[1-100] of char; D. Type 1chieu=array[1 100] of char; Câu 31.
Phát biểu sau đúng:
A.Hai xâu số phần tử chúng khác B.Hai xâu có số phần tử
C.Hai xâu có độ dài
D.Hai xâu hai xâu hoàn toàn giống Câu 32 Để nhập giá trị cho biến a b ta dùng lệnh:
A. Write(a,b) B. Read('a,b'); C. Real(a,b); D. Readln(a,b);
Câu 33. Hãy chọn phương án ghép Cho xâu S = 'Hanoi-Vietnam' Kết hàm Pos('Vietnam',S)
A 8 B 5 C 6 D 7
Câu 34
Trong ngơn ngữ lập trình Pascal, sau chương trình thực xong đoạn chương trình sau, giá trị biến S là?
(4)Insert('Q',S,1);
A 'Qon Ngu' B.' Qon Ngu' C.'Q on Ngu ' D.' Qon Ngu '
Câu 35 Trong ngơn ngữ lập trình Pascal, muốn kiểm tra đồng thời ba giá trị A, B, C có lớn hay không ta viết câu lệnh If cho đúng ?
A.If (A > 0) and (B > 0) and (C > 0) then <câu lệnh>; B If A>0 or B>0 and C>0 then <câu lệnh>;
C If (A>0) or (B>0) or (C>0) then <câu lệnh>; D If A, B, C > then <câu lệnh>;
Câu 36. Biến X nhận giá trị 1; 23; 17; 100 biến Y nhận giá trị 1; 0,2; 0,3; 1,85 Khai báo khai báo sau ?
A Var X, Y : real; B Var X : real; Y : byte; C. Var X, Y : byte; D. Var X : BYTE; Y : real; Câu 37.
Đoạn chương trình sau thực cơng việc gì? S:=0; N:=10;
For i:= to N if A[i]>0 then S:=S +1;
A.Tính tổng phần tử số dương mảng B.Đếm số phần tử mảng A;
C Đếm phần tử số dương mảng;
D.Không thực việc công việc Câu 38
Trong hàm thủ tục sau, hàm thủ tục cho kết số nguyên?
A Pos(S1,S2) B.copy(S,vt,n) C insert(S1,S2,vt) D.delete(s,vt,n) Câu 39
Cho đoạn chương trình sau: S:=5;
for i:=1 to 10 S:=S+0; Cho biết S=?
A.S=10 B.S=20 C.S=5 D.S=15
Câu 40.
Khẳng định mảng chiều?
A.Mảng có số phần tử khơng đếm B.Các phần tử mảng khác kiểu C Một mảng có nhiều tên khác D Các phần tử mảng có kiểu Câu 41. Trong ngơn ngữ lập trình Pascal, câu lệnh sau đúng?
A If <biểu thức logic> ; then <câu lệnh>; B If <biểu thức logic> ; then <câu lệnh> C If <biểu thức logic> then <câu lệnh>; D If <biểu thức logic> then <câu lệnh > Câu 42
Trong ngôn ngữ lập trình Pascal, sau chương trình thực xong đoạn chương trình sau, giá trị biến S ?
S := 'Noel 2017'; Delete(S,6,2); Insert('nam',S, 5);
A Noelnam 17 B Noel nam17 C Noel nam 17 D Noelnam 17
Câu 43 Hãy chọn phương án ghép Thủ tục chuẩn Insert(S1,S2,vt) thực A chèn xâu S1 vào S2 vị trí vt ;
B. chèn xâu S2 vào S1 vị trí vt ;
C chép vào cuối S1 phần S2 từ vị trí vt ; D nối xâu S2 vào S1;
Câu 44
(5)o6n thi 2017_2018
Đáp án mã đề: 143