Câu hỏi:

Câu lệnh dùng để ghi kết quả vào tệp văn bản có dạng:

A. Read(<tên tệp>,<danh sách kết quả>);

B. Read(<tên biến tệp>,<danh sách kết quả>);

C. Write(<tên tệp>,<danh sách kết quả>);

D. Write(<tên biến tệp>,<danh sách kết quả>);

Câu 1:

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

s := ‘1001010’;

write(pos(‘011’, s));

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

A. 0

B. ‘0’

C. 3

D. ‘3’

Câu 2:

Viết chương trình:

Nhập vào một xâu kí tự.

Đếm và in ra màn hình số kí tự là số có trong xâu.

Var a: string;

 I,dem: integer;

Begin

 Readln(a);

 Dem:=0;

 For i:=1 to length(a) do

 If (‘0’<=a[i]) and (a[i]<=’9’) then dem:=dem+1;

 Writeln(dem);

 Readln

 

End.

A.

Câu 3:

Câu lệnh Reset(<biến tệp>) ; có ý nghĩa gì?

A. Thủ tục gắn tên tệp cho tên biến tệp

B. Khai báo biến tệp

C. Thủ tục mở tên để đọc dữ liệu

D. Thủ tục đóng tệp

Câu 4:

Câu lệnh dùng để đóng tệp f2 là:

A. Close(f2):

B. Stop(f2):

C. Close(f2);

D. Stop((f2);

Câu 5:

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

s1 := ‘123’; s2 := ‘abc’;

insert (s2 , s1 , 1);

write(s1);

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

A. ‘123abc’

B. ‘abc’

C. ‘123’

D. ‘abc123’

Câu 6:

Để gắn tên tệp cho tên biến tệp ta sử dụng câu lệnh:

A. <biến tệp> := <tên tệp>;

B. <tên tệp> := <biến tệp>;

C. assign(<biến tệp> , <tên tệp>);

D. assign(<tên tệp> , <biến tệp>);