Question 1

Cho xâu s := ‘123456789’, sau khi thực hiện thủ tục delete(s,3,4) thì biến S chứa giá trị nào sau đây:

Accepted Answer

‘12789’;

Answer

Xâu rỗng;

Answer

‘1256789’;

Answer

‘123789’;

Question 2

Trong xâu, câu lệnh sau làm gì?

For i:=1 to length(a) do write(a[i]);

Accepted Answer

Xuất xâu a theo thứ tự đã nhập

Answer

Xuất ra kí tự cuối của xâu a

Answer

Xuất ra kí tự đầu của xâu a

Answer

Xuất xâu a theo thứ tự ngược

Question 3

Để xóa đi kí tự đầu tiên của xâu kí tự S ta viết:

Accepted Answer

Delete (S, 1, 1);

Answer

Delete (S, Length(S), 1);

Answer

Delete (S, 1, i);

Answer

Delete (S, i, 1);

Question 4

Để khai báo kiểu xâu trực tiếp ta sử dụng cú pháp nào?

Accepted Answer

Var <tên biến> : String[độ dài lớn nhất của xâu];

Answer

Var <tên biến> = <tên kiểu>;

Answer

Var <tên biến> = String[độ dài lớn nhất của xâu];

Answer

Var <tên biến> : <tên kiểu>;

Question 5

Cho khai báo sau:

Var hoten:string;

Phát biểu nào dưới đây là đúng?

Accepted Answer

Xâu có độ dài lớn nhất là 255;

Answer

Xâu có độ dài lớn nhất là 0;

Answer

Cần phải khai báo kích thước của xâu sau đó;

Answer

Câu lệnh sai vì thiếu độ dài tối đa của xâu;

Question 6

Cho S1:='Bien dao que huong';

S2:= upcase(S1[10]);

S2 có giá trị là:

Accepted Answer

'Q'

Answer

'Que'

Answer

'Bien Dao Que Huong'

Answer

‘Bien’

Question 7

Câu lệnh nào xóa kí tự cuối cùng của xâu a?

Accepted Answer

delete(a, length(a), 1);

Answer

delete(a, 255, 1);

Answer

delete(a, 1, length(a));

Answer

delete(a, 1, 255);

Question 8

Thủ tục insert(s1,s2,vt) thực hiện:

Accepted Answer

Chèn xâu s1 vào xâu s2 bắt đầu ở vị trí vt;

Answer

Chèn xâu s2 vào xâu s1 bắt đầu ở vị trí vt;

Answer

Chèn vt kí tự của xâu s1 vào đầu xâu s2;

Answer

Chèn vt kí tự của xâu s2 vào đầu xâu s1;

Question 9

Sau khi thực hiện đoạn chương trình sau, giá trị biến M bằng bao nhiêu?

S2:=’Chuc cac ban thi tot HK2 2019’ ;

M:=Length(S2);

Accepted Answer

29

Answer

28

Answer

23

Answer

24

Question 10

Đoạn chương trình sau làm gì?
k:=0;
For i:=1 to length(a) do If (a[i]>='0') and (a[i]<='9') then k:=k+1;

Accepted Answer

Đếm số kí tự số trong xâu a

Answer

Đếm số kí tự trong xâu a

Answer

Đếm số kí tự a trong xâu a

Answer

Đếm số kí tự trắng trong xâu a

Question 11

Cho 2 xâu A, B. Hãy cho biết câu lệnh sau thực hiện công việc gì:
If A[1] = B[length(B)] then writeln(‘Giong nhau’) else writeln(‘Khac nhau’);

Accepted Answer

Xuất ra kết quả so sánh kí tự đầu tiên của xâu A và kí tự cuối cùng của xâu B.

Answer

Xuất ra kết quả so sánh chiều dài của xâu A và chiều dài của xâu B.

Answer

Xuất ra kết quả so sánh kí tự đầu tiên của xâu B và kí tự cuối cùng của xâu A.

Answer

Xuất ra kết quả so sánh của xâu A và xâu B.

Question 12

Trong xâu, để in xâu S ra màn hình theo thứ tự ngược lại, phải thực hiện lệnh :

Accepted Answer

For i:=length(S) downto 1 do write(S[i]);

Answer

For i:=length(S) downto 1 do write(S);

Answer

For i:=1 to length(S) do write(S[i]);

Answer

For i:=1 to length(S) div 2 do write(S[i]);

Question 13

Câu lệnh nào dưới đây cho biết tổng độ dài của xâu s1 và xâu s2 gộp lại:

Accepted Answer

Length(s1+s2);

Answer

Long(s1) + long(s2);

Answer

Length(s1) & length(s2);

Answer

Return(s1+s2);

Question 14

Thủ tục delete(st,vt,n) thực hiện:

Accepted Answer

Xóa n kí tự của biến xâu st bắt đầu từ vị trí vt ;

Answer

Xóa vt kí tự của biến xâu st bắt đầu từ vị trí n;

Answer

Xóa các kí tự của biến xâu st bắt đầu tử vị trí vt đến vị trí vt;

Answer

Xóa các kí tự của biến xâu st bắt đầu từ vị trí n đến vị trí n;

Question 15

Trong các khai báo sau, khai báo nào đúng?

Accepted Answer

Var hoten : string[27];

Answer

Var diachi : string(100);

Answer

Var ho = string(30);

Answer

Var ten = string[30];

Question 16

Cho s := ‘500 ki tu’, hàm Length(s) cho giá trị bằng:

Accepted Answer

9;

Answer

500;

Answer

‘5’;

Answer

‘500’;

Related quizzes

Related quizzes