Font size
WorksheetsTIN 11 BÀI 12 KIỂU XÂU
Total questions: 21
Worksheet time: 14mins
Cho xâu S là ‘Hanoi-Vietnam’. Kết quả của hàm Pos(‘Vietnam’,S) là
5
6
7
8
Cho khai báo sau: Var hoten : String;
Phát biểu nào dưới đây là đúng ?
Câu lệnh sai vì thiếu độ dài tối đa của xâu
Xâu có độ dài lớn nhất là 0
Xâu có độ dài lớn nhất là 255
Cần phải khai báo kích thước của xâu sau đó
Hãy chọn phương án ghép đúng nhất. Thủ tục chuẩn Insert(S1,S2,vt) thực hiện:
Chèn xâu S1 vào S2 bắt đầu từ vị trí vt
Chèn xâu S2 vào S1 bắt đầu từ vị trí vt
Nối xâu S2 vào S1
Sao chép vào cuối S1 một phần của S2 từ vị trí vt
Đoạn chương trình sau in ra kết quả nào ?
Program Welcome ;
Var a : string[10];
Begin
a := ‘tinhoc ’;
writeln(length(a));
End.
6
7
10
Chương trình lỗi
Cho s:='abcd'; đoạn chương trình sau thực hiện công việc gì ?
for i := length(s) downto 1 do
write(s[i]) ;
abcd
dcba
abcd mỗi kí tự trên 1 dòng
dcba mỗi kí tự trên 1 dòng
Trong ngôn ngữ lập trình Pascal, xâu kí tự không có kí tự nào gọi là ?
Xâu không;
Xâu rỗng;
Xâu trắng;
Không phải là xâu kí tự;
Trong ngôn ngữ lập trình Pascal, sau khi chương trình 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;
Để khai báo biến xâu ta sử dụng tên dành riêng:
Array
String
Type
Const
Cho S1:='Bien dao que huong';
S2:= upcase(S1[10]);
S2 có giá trị là:
'Q'
'Bien Dao Que Huong'
'Que'
‘Bien’
Câu lệnh nào xóa kí tự cuối cùng của xâu a?
delete(a, length(a), 1);
delete(a, 1, 255);
delete(a, 255, 1);
delete(a, 1, length(a));
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’);
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.
Xuất ra kết quả so sánh của xâu A và xâu B.
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.
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.
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 :
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) do write(S[i]);
For i:=1 to length(S) div 2 do write(S[i]);
Cho s := ‘500 ki tu’
hàm Length(s) cho giá trị bằng:
9
‘5’
500
‘500’
Cho sâu s1 = ‘123’; s2 = ‘abc’ sau khi thực hiện thủ tục Insert(s1,s2,2) thì:
s1 = ‘123’; s2 = ‘a123bc’
s1 = ‘123’; s2 = ‘12abc’
s1 = ‘1abc23’; s2 = ‘abc’
s1 = ‘ab123; s2 = ‘abc’
Trong ngôn ngữ lập trình Pascal, để tìm vị trí xuất hiện đầu tiên của xâu “hoa” trong xâu s ta có thể viết bằng cách nào trong các cách sau?:
i:=pos(s,’hoa’);
i:=pos(‘hoa’,’hoa’);
i:=pos(‘hoa’,s);
s1:=’hoa’ ; i:=pos(s1,’hoa’);
Trong các phép toán sau, phép nào trả về giá trị TRUE (đúng)?
‘abc’=’ABC’
‘ccb’<’abcdef’
‘cba’<’abc’
‘abcdh’>’abcdef’
s=" May tinh"; t= "may tinh".
s>t
s<t
s==t
Tất cả đều sai
Xâu ‘ABBA’ lớn hơn xâu:
‘ABC’;
‘ABABA’;
‘ABCBA’;
‘BABA’;
Cho S là biến xâu, kết quả sau khi thực hiện các lệnh:
S:='ABCDEF';
DELETE(S,3,2);
INSERT('XYZ',S,2);
(a)
Thủ tục DELETE (‘thuc hanh tin hoc’,15,3) cho kết quả là
‘ tin hoc’
‘thuc hanh tin ’
‘thuc hanh’
‘hoc’
Câu lệnh sau thực hiện công việc gì?
If (ch>=’a’) and (ch<=’z’) then ch:=upcase(ch);
Không thực hiện gì
Chuyển ch thành chữ hoa nếu ch là chữ thường
Xóa ký tự trong biến ch nếu ch là ký tự chữ cái
Gán ký tự thường cho biến ch nếu ch là chữ thường
