Kiểm tra thường xuyên: KIỂU XÂU

Trong ngôn ngữ lập trình Pascal, thủ tục Delete(c,a,b) thực hiện công việc gì trong các công việc sau:

• Xóa trong xâu ký tự c, a ký tự bắt đầu từ vị trí b;

• Xóa trong xâu ký tự a, b ký tự bắt đầu từ vị trí c;

• Xóa trong xâu ký tự c, b ký tự bắt đầu từ vị trí a;

• Xóa trong xâu ký tự b, c ký tự bắt đầu từ vị trí a;

Trong Ngôn ngữ lập trình Pascal, thủ tục chèn xâu S1 vào xâu S2 bắt đầu từ vị trí vt được viết?

• Insert(vt,S1,S2);

• Insert(S1,S2,vt);

• Insert(S1,vt,S2);

• Insert(S2,S1,vt);

Trong ngôn ngữ lập trình Pascal sau khi thực hiện xong đoạn chương trình sau, giá trị của biến S là:

S:='Ha Noi mua thu';

Delete(S,7,8);

Insert('Mua thu',S,1);

• Ha Noi Mua thu

• Mua thu Ha Noi mua thu

• Mua thu Ha Noi

• Ha Noi

Trong Pascal, để in ra một xâu ký tự ra màn hình theo thứ tự ngược lại của các ký tự trong xâu, đoạn chương trình nào thực hiện công việc này?

• For i:= 1 To Length(S) Do Write(S[i]);

• For i:= Length(S) Downto 1 Do Write(S[i]);

• For i:= Length(S) Downto 1 Do Write(S);

• For i:= 1 To Length(S) Div 2 Do Write(S[i]);

Đoạn chương trình sau thực hiện công việc gì?

d:=0;

For i:= 1 to Length(S) Do

If S[i]= ' ' Then d:=d+1;

• Xóa đi các dấu cách trong xâu

• Đếm số ký tự có trong xâu

• Đếm số dấu cách có trong xâu

• Xóa đi các ký tự số

Đoạn chương trình sau thực hiện công việc gì?

i:=Pos(' ',X);

While i<> 0 Do

Begin

Delete(X,i,1);

i:=Pos(' ',X);

End;

• Xóa tất cả các dấu cách trong xâu X

• Xóa tất cả các dấu cách phía bên trái của xâu X;

• Xóa tất cả các dấu cách phía bên phải của xâu X;

• Xóa tất cả các dấu cách ở hai đầu của xâu X;

Đoạn chương trình sau thực hiện công việc gì?

x:=Length(S);

For i:= X Downto 1 Do

If S[i]=' ' Then Delete(S,i,1); {' ' là một dấu cách}

• Xóa dấu cách đầu tiên trong xâu S

• Xóa dấu cách thừa trong xâu S

• Xóa dấu cách tại vị trí cuối cùng trong xâu S

• Xóa mọi dấu cách của xâu S

Cho đoạn chương trình sau:

s := ‘123456789’;

delete (s, 1, 8);

write(s);

Kết quả in ra màn hình là:

• ‘6789’

• ‘789’

• ‘9’

• ‘’

Cho đoạn chương trình sau:

s1 := ‘1010’; s2 := ‘1001010’;

write(pos(s1, s2));

Kết quả in ra màn hình là:

• 0

• '0'

• 4

• '4'

Cho đoạn chương trình sau:

s := ‘200 ki tu’;

write(length(s));

Kết quả in ra màn hình là:

• 200

• 9

• '9'

• '200'