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:

Để đọc dữ liệu từ biến tệp f1 chứa 2 biến a, b ta sử dụng câu lệnh:

A. read(f1, a, b);

B. write(f1, a, b);

C. readln(a, b, f1);

D. writeln(a, b, f1);

Câu 2:

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

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

Viết chương trình:

Đọc từ tệp “DULIEU.TXT” 2 số nguyên M và N (M < N)

Tính tổng các số chẵn trong phạm vi từ M đến N

Ghi kết quả ra tệp “KETQUA.TXT”.

A.

Câu 6:

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

A. ‘ABC’

B. ‘BCD’

C. ‘CDE’

D. ‘DEF’