Trac nghiem tin hoc va dap an

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;