KIỂU XÂU

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

• A.Var st:string[150];

• B. Var st:string[257];

• C. Var st = string [10];

• D. Var st = string ;

Để nhập vào từ bàn phím xâu St

ta sử dụng lệnh nào sau đây?

• A.Write (St);

• B.Write (St[i]);

• C.Readln (St[i]);

• D.Readln (St);

Lệnh nào để in ra màn hình

kí tự cuối cùng trong xâu St?

• A.Write (St);

• B. Write (length(St));

• C. Write (St[length(st)]);

• D. Write (St[1]);

Cho xâu : S1:= ‘Chao cac ban’; S2:= ’11A6’;

Để được xâu S3 có giá trị là ‘Chao cac ban 11A6’ ta sử dụng lệnh nào sau đây?

• A.S3:=S2+S1;

• B. S3:= S1+ S2;

• C. S3:= S1+ ‘ ‘ +S2;

• D. S3:= S1+ ’11A6’;

Cho xâu st:=‘Mon tin hoc’;

Sau khi thực hiện thủ tục Delete( st,8,4)

thì giá trị của st là?

• A.Mon hoc 

• B.  Mon Tin

• C. tin hoc

• D. Mon tin

Chọn đáp án đúng về các phép so sánh xâu sau?

• A. ‘Turbo’ < ’Turbo Pascal’

• B. ‘Lop tin B’ < ’Lop tin A’

• C. ‘Que huong’ <> ’Que huong’

• D. Tất cả đều sai

Cho biết kết quả của đoạn chương trình sau?

  Var A, B: string;

  Begin   A:= ‘Tin hoc’; B:= ’ 11’;

  Insert(B, A, 8);

  Write(A);

 

• A. tin hoc 11

   

• B. Tin hoc11 

• C. Tinhoc 11

• D. Tin hoc 11

Đoạn chương trình nào sau đây thực hiện : Nhập vào từ bàn phím 1 xâu kí tự bất kì.

In hoa tất cả các kí tự trong xâu nhập vào.

•   Readln(a);

    For t:=1 to length(a) do

    a[i] := upcase(a[i]).;

  Write(a);

•   Readln(a);

    For i:=1 to length(a) do

    a[i] := a[i]).;

  Write(a);

•   Readln(a);

    For i:=1 to length(a) do

    a[i] := upcase(a[i]).;

  Write(a);

•  

    For i:=1 downto length(a) do

    a[i] := upcase(a[i]).;

  Write(a);

Cho  xâu st:=’BBBABBA’; Kết quả in ra là gì sau khi thực hiện 2 lệnh:

While st [1 ]= ‘B’ do Delete(st,1,1);

Write(st);

• ABBA

• BBABBA      

• BBB   

• AABB

Cho xâu St:=’Thua  Thien  Hue’;

Kết quả in ra màn hình như thế nào sau khi thực hiện 2 lệnh:

Delete (St,1,5);

Write(St);

• A Thua  Thien

• B. Hue

• C. Thien  Hue

• D. Thua  Hue