Câu hỏi:

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

s1 := ‘abcd’; s2: ‘abab’;

if length(s1) > length(s2) then write(s1) else write(s2);

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

A. ‘abcd’

B. ‘abab’

C. ‘abcdabab’

D. ‘abababcd’

Câu 1:

Để biết con trỏ tệp đã ở cuối dòng của tệp f hay chưa, ta sử dụng hàm:

A. eof(f)

B. eoln(f)

C. Cả A, B đều đúng

D. Cả A, B đều sai

Câu 2:

Cho s = ‘ABCDEF’, hàm copy (s, 2, 3) cho giá trị là:

A. ‘ABC’

B. ‘BCD’

C. ‘CDE’

D. ‘DEF’

Câu 3:

Để gắn tệp KQ.TXT cho biến tệp f2 ta sử dụng câu lệnh:

A. f2 := ‘KQ.TXT’;

B. ‘KQ.TXT’ := f2;

C. Assign(‘KQ.TXT’, f2);

D. Assign(f2, ‘KQ.TXT’);

Câu 4:

Cho xâu kí tự sau: s:= ‘Truyen Kieu-Nguyen Du’

Lệnh nào sau đây cho kết quả ‘Truyen Kieu’

A. copy(s, 1, 11);

B. copy(s, 1, 12);

C. delete(s, 1, 11);

D. delete(s,1, 12);

Câu 5:

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

s1 := ‘bbaa’; s2: ‘abcd’;

if s1 > s2 then write(s1) else write(s2);

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

A. ‘bbaa’

B. ‘abcd’

C. ‘bbaaabcd’

D. ‘abcdbbaa’

Câu 6:

Cho s = ‘Turbo Pascal’, hàm length(s) cho giá trị bằng:

A. 10

B. 11

C. 12

D. 13