Câu hỏi:

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’

Câu 1:

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’

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:

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

A. 1

B. 3

C. 0

D. 4

Câu 4:

Chọn phát biểu đúng trong các phát biểu dưới đây khi nói về lợi ích của việc sử dụng chương trình con:

A. Để chương trình gọn hơn

B. Tránh được việc phải viết lặp đi lặp lại cùng một dãy lệnh nào đó

C. Hỗ trợ việc viết chương trình có cấu trúc như cấu trúc lặp, rẽ nhánh

D. Không có lợi ích

Câu 5:

Để khai báo thủ tục trong Pascal bắt đầu bằng:

A. Procedure

B. Program

C. Function

D. Var

Câu 6:

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