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:

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

A. 10

B. 11

C. 12

D. 13

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:

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

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

Trong PASCAL, để khai báo hai biến tệp văn bản f1, f2 ta viết:

A. Var f1. f2 : Text;

B. Var f1 ; f2 : Text;

C. Var f1 , f2 : Text;

D. Var f1 : f2 : Text;