Câu hỏi:

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

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

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

A. ‘ABC’

B. ‘BCD’

C. ‘CDE’

D. ‘DEF’

Câu 4:

Tệp f1 có dữ liệu  để đọc 3 giá trị trên tương ứng với 3 biến x, y, z ta sử dụng câu lệnh:

A. Read(f1, x, y, z);

B. Readln(x, y, z, f1);

C. write(f1, x, y, z);

D. writeln(x, y, z, f1);

Câu 5:

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

Cho chương trình sau:

procedure thutuc (a, b: integer);

 Begin

 …

 End;

Trong chương trình chính có thể gọi lại chương trình con như thế nào

A. thutuc;

B. thutuc (5, 10);

C. thutuc(1, 2, 3);

D. thutuc(5);