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:

Câu lệnh mở biến tệp f1 để đọc dữ liệu có dạng:

A. reset(f1);

B. rewrite(f1);

C. read(f1);

D. write(f1);

Câu 2:

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

Var g:text;

I:integer;

Begin

 Assign(g, ‘C:\DLA.txt’);

 Rewrite(g);

 For i:=1 to 10 do

 If i mod 2 <> 0 then write(g, i);

 Close(g);

 Readln

End.

Sau khi thực hiện chương trình trên, nội dung của tệp ‘DLA.txt’ gồm những phần tử nào?

A. 2; 4; 6; 8;10

B. 1; 3; 5; 9

C. 1; 3; 5;7; 9

D. 4; 6; 8;10

Câu 3:

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 4:

Để 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 5:

Để phân biệt giữa tham biến và tham trị, trước tham biến người ta dùng từ khoá:

A. Var

B. Type

C. Begin

D. Const

Câu 6:

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

A. 10

B. 11

C. 12

D. 13