Trong ngôn ngữ lập trình Pascal, chương trình sau thực hiện công việc gi? Dem:=0; For ch:=’a’ to ’z’ do
A -
Đếm số lượng ký tự khác dấu cách (khoảng trắng) của xâu S;
B -
Đếm số lượng ký tự là chữ cái in hoa của xâu S;
C -
Đếm số lượng ký tự là những chữ thường của xâu S;
D -
Đếm số lượng ký tự là những chữ thường khác nhau của xâu S;
2-
Trong ngôn ngữ lập trình Pascal, chương trình sau thực hiện công việc gi? X:= length(s); For i:=x downto 1 do If S[i] =’ ’ then delete(s,i,1); (’’ là khoảng trắng, dấu cách)
A -
Xóa dấu cách(khoảng trắng) đầu tiên trong xâu ký tự S;
B -
Xóa dấu cách(khoảng trắng) thừa trong xâu ký tự S;
C -
Xóa dấu cách(khoảng trắng) tại vị trí cuối cùng trong xâu ký tự S;
D -
Xóa mọi dấu cách(khoảng trắng) trong xâu ký tự S;
3-
Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện công việc gì? S1:=’anh’; S2:=’em’;, i:=Pos(s1,s); While i<> 0 do Begin Delete(s,i,2); Insert(s1,s,i); i:=pos(s2,s); End;
A -
Thay toàn bộ cụm từ ’anh’ trong xâu S bằng cụm từ ’em’;
B -
Thay toàn bộ cụm từ ’em’ trong xâu S bằng cụm từ ’anh’;
C -
Thay toàn bộ cụm từ ’em’ đầu tiên trong xâu S bằng cụm từ ’anh’;
D -
Thay toàn bộ cụm từ ’anh’ đầu tiên trong xâu S bằng cụm từ ’em’;
4-
Trong ngôn ngữ lập trình Pascal sau khi thực hiện xong đoạn chương trình biến Found có giá trị là gi? (s là biến xâu ký tự) Found:=0; x:=length(s); For i:=1 to x div 2 do If s[i] <> s[x-i+1] then found:=1;
A -
Found = 0 nếu s là xâu đối xứng;
B -
Found = 0 nếu s là xâu không đối xứng;
C -
Found = 1 nếu s là xâu đối xứng;
D -
Found không có giá trị gì;
5-
Trong ngôn ngữ lập trình Pascal, để xóa ký tự đầu tiên của xâu ký tự S ta viết:
A -
delete(s,1,1);
B -
delete(s,1,i); {i là biến có giá trị bất kỳ}
C -
delete(s, length(s),1);
D -
delete( 1,S,1);
6-
Trong ngôn ngữ lập trình Pascal, đoạn chươn trình sau thực hiện công việc nào trong các công việc sau: i:=pos(’ ’,S); {’ ’ là 2 dấu cách} While i<>0 do Begin Delete(s,i,1); i:=pos(’ ’, s); End;
A -
Xóa hai dấu cách liên tiếp nhau đầu tiên trong xâu;
B -
Xóa đi một trong 2 dấu cách đầu tiên trong xâu;
C -
Xóa các dấu cách trong xâu s để s không còn 2 dấu cách liền nhau;
D -
Xóa các dấu cách liền nhau cuối cùng trong xâu;
7-
Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau đây làm công việc gì? I:=pos (’’,X); (’’ la một dấu cách) While i<>0 do Begin Delete(x,I,1); I:=Pos(’’,X); End;
A -
Xóa tất cả các dấu cách trong xâu x;
B -
Xóa tất cả các dấu cách bên trái của xâu x;
C -
Xóa tất cả các dấu cách bên phải của xâu x;
D -
Xóa tất cả các dấu cách ở hai đầu của xâu x;
8-
Trong ngôn ngữ lập trình Pascal, để in một xâu ra màn hình theo thứ tự ngược lại giữa các ký tự trong xâu (Ví dụ ’abcd’ thì in ra là ’dcba’), đoạn chương trình nào sau đây thực hiện việc này?
A -
For i:=1 to length(s) do write(s[i]);
B -
For i:= length(s) downto 1 do write(s[i]);
C -
For i:=1 to length(s) do write(s);
D -
For i:=1 to length(s) div 2 do write(s[i]);
9-
Trong ngôn ngữ lập trình Pascal, đ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; {’’ là khoảng trắng};
A -
Xóa các dấu khoảng trắng trong xâu s;
B -
Đếm số dấu cách có trong xâu s;
C -
Xóa đi các chữ số có trong xâu s;
D -
Xóa đi chữ số đầu tiên trong xâu s;
10-
Số lượng phần tử trong tệp:
A -
Không được lớn hơn 128;
B -
Không được lớn hơn 255;
C -
Phải được khai báo trước;
D -
Không bị giới hạn mà chỉ phụ thuộc vào dung lượng đĩa;
