Hãy chọn thứ tự hợp lí nhất khi thực hiện các thao tác đọc dữ liệu từ tệp :

A. Mở tệp => Gắn tên tệp => Đọc dữ liệu từ tệp => Đóng tệp

B. Gắn tên tệp => Mở tệp => Đọc dữ liệu từ tệp => Đóng tệp

C. Mở tệp => Đọc dữ liệu từ tệp => Gắn tên tệp => Đóng tệp

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

A. Close(f2):

B. Stop(f2):

C. Close(f2);

D. Stop((f2);

Nếu hàm eof( ) cho giá trị bằng true thì con trỏ tệp nằm ở vị trí:

A. Cuối tệp

B. Đầu dòng

C. Đầu tệp

D. Cuối dòng

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 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 lệnh để gắn tên tệp ‘bai1.txt’, cho biến tệp f là:

A. assign(bai1.txt, f);

B. assign( f, ‘bai1.txt’);

C. assign( f, bai1.txt);

D. assign(‘bai1.txt’, f);

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

Câu lệnh Var <tên biến tệp> : Text; có ý nghĩa là:

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

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

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

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

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

s:= ‘edcba’;

For i:= length(s) downto 1 do write(s[i]);

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

A. ‘abcd’

B. ‘dcba’

C. ‘abcde’

D. ‘edcba’

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

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

if length(s1) > length(s2) then writeln(s1) else writeln(s2);

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

A. ‘1234’

B. ‘abc’

C. ‘1234abc’

D. ‘abc1234’

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

s := ‘Mua xuan’;

write(upcase(s[length(s)-1]));

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

A. ‘X’

B. ‘U’

C. ‘A’

D. ‘N’

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’

Xâu rỗng là xâu có độ dài bằng:

A. 1

B. 3

C. 0

D. 4

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

s := ’ABCDEF’;

delete(s, 3, 2);

insert(‘XYZ’, s, 4);

write(s);

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

A. ‘ABXYZEF’

B. ‘ABEXYZF’

C. ‘AXYZ’

D. ‘AXYZBEF’

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’

Cho xâu kí tự sau: s:= ‘Nguyen Trai’. Lệnh nào sau đây cho kết quả ‘Nguyen’

A. copy(s, 1, 6);

B. delete(s, 7, 5);

C. Cả A, B đều đúng

D. Cả A, B đều sai

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

s := 'Mua Thu';

write(upcase(s[5]));

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

A. ‘M’

B. ‘U’

C. ‘A’

D. ‘T’

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

s1 := ‘1010’; s2 := ‘1001010’;

write(pos(s1, s2));

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

A. 0

B. ‘0’

C. 4

D. ‘4’

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

s := ‘200 ki tu’;

write(length(s));

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

A. 200

B. 9

C. ‘9’

D. ‘200’

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

s1 := ‘123456789’;

s2 := copy(s1, 3, 5);

write(s2);

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

A. ‘567’

B. 567

C. 34567

D. ‘34567’

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

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

insert (s1, s2 ,3);

write(s2);

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

A. ‘ab123cd’

B. ‘123abcd’

C. ‘a123bcd’

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

s := ‘123456789’;

delete (s, 1, 8);

write(s);

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

A. ‘6789’

B. ‘789’

C. ‘9’

D. ‘’

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

write(‘abc’+‘123456’);

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

A. ‘123456abc’

B. ‘abc123456’

C. ‘123456’

D. ‘abc’

Trong các phát biểu sau, phát biểu nào sai?

A. Xâu A lớn hơn xâu B nếu kí tự dầu tiên khác nhau giữa chúng kể tử trái sang trong xâu A có mã ASCII lớn hơn

B. Xâu A lớn hơn xâu B nếu độ dài xâu A lớn hơn độ dài xâu B

C. Nếu A và B là các xâu có độ dài khác nhau và A là đoạn đầu của B thì A nhỏ hơn B

D. Hai xâu bằng nhau nếu chúng giống nhau hoàn toàn

Trong Pascal, cú pháp khai báo biến kiểu xâu là:

A. Var < độ dài lớn nhất của xâu > = string [tên biến xâu] ;

B. Var <tên biến xâu> = string [độ dài lớn nhất của xâu] ;

C. Var <tên biến xâu> : string [độ dài lớn nhất của xâu] ;

Biến Hoten lưu trữ giá trị hằng xâu ‘Nguyen Van Troi’ thì Hoten[7] cho ta kí tự là:

A. ‘ ’

B. ‘y’

C. ‘e’

D. ‘n’

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

s := 'Mua Thu';

write(upcase(s[3]));

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

A. ‘M’

B. ‘U’

C. ‘A’

D. ‘T’

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

s1 := ‘bcd’; s2 := ‘abcd’;

write(pos(s1, s2));

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

A. 2

B. ‘2’

C. 3

D. ‘3’

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

s := ‘300 ki tu’;

write(length(s));

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

A. 300

B. 9

C. ‘9’

D. ‘300’

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

s := copy(‘123456789’, 1, 3);

write(s);

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

A. ‘123’

B. 123

C. ‘3’

D. 3

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

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

insert (s1, s2 ,1);

write(s2);

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

A. ‘ab123cd’

B. ‘a123bcd’

C. ‘123abcd’

D. ‘abc123d’

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

s := ‘123456789’;

delete (s, 1, 5);

write(s);

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

A. ‘6789’

B. ‘789’

C. ‘9’

D. ‘’

Trong các phát biểu sau, phát biểu nào sai?

A. Xâu A lớn hơn xâu B nếu kí tự dầu tiên khác nhau giữa chúng kể tử trái sang trong xâu A có mã ASCII lớn hơn

B. Nếu A và B là các xâu có độ dài khác nhau và A là đoạn đầu của B thì A nhỏ hơn B

C. Hai xâu bằng nhau nếu chúng giống nhau hoàn toàn

D. Xâu A lớn hơn xâu B nếu độ dài xâu A lớn hơn độ dài xâu B

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

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

write(s2+s1);

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

A. ‘123456abc’

B. ‘abc123456’

C. ‘123456’

D. ‘abc’

Trong Pascal, cú pháp khai báo biến kiểu xâu là:

A. Var < độ dài lớn nhất của xâu > = string [tên biến xâu] ;

B. Var <tên biến xâu> : string [độ dài lớn nhất của xâu] ;

C. Var <tên biến xâu> = string [độ dài lớn nhất của xâu] ;

D. Var < độ dài lớn nhất của xâu > : string [tên biến xâu] ;

Biến Hoten lưu trữ giá trị hằng xâu ‘Nguyen Van Troi’ thì Hoten[6] cho ta kí tự là:

A. ‘ ’

B. ‘y’

C. ‘e’

D. ‘n’

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

s1 := ‘123456789’;

s2 := copy(s1, 5, 3);

write(s2);

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

A. ‘567’

B. 567

C. ‘34567’

D. 34567

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

s1 := ‘123456789’;

s2 := copy(s1, 5, 3);

write(s2);

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

A. ‘567’

B. 567

C. ‘34567’

D. 34567

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

s := 'Mua Thu';

write(upcase(s[2]));

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

A. ‘M’

B. ‘U’

C. ‘A’

D. ‘T’

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

s1 := ‘010’; s2 := ‘1001010’;

write(pos(s1, s2));

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

A. 0

B. ‘0’

C. 3

D. ‘3’