Câu hỏi:

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

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

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

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

Câu 4:

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

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

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

A. Close(f2):

B. Stop(f2):

C. Close(f2);

D. Stop((f2);