Câu hỏi:

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

Khai báo 2 biến xâu a, b nào sau đây là đúng:

A. var a, b : string[275];

B. var a, b : string[27];

C. var a, b = string;

D. var a. b : string;

Câu 2:

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

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

s1 := ‘123d’; s2 := ‘abcd’;

delete(s1, 1, 3);

write(pos (s1, s2));

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

A. 1

B. 2

C. 3

D. 4

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:

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