thử kiểm tra lại xem

đề kiểm tra một tiết môn tin học khối 11
01 04 07
02 05 08
03 06 09
Câu 1 :
Trong ngôn ngữ lập trình Pascal, cho đoạn chơng trình :
S :=0 ;
For i := 1 To N Do S :=S+A[i] ;
Đoạn chơng trình trên thực hiện việc nào trong các việc sau (A là mảng một chiều có số phần
tử là N) ?
A.
Tính tổng giá trị các phần tử của mảng A
B.
Nhập giá trị cho mảng A
C.
Đa ra màn hình giá trị của mảng A
D.
Đếm số phần tử của mảng A
Câu 2 :
Trong ngôn ngữ lập trình Pascal, khi biết con trỏ tệp nằm ở đầu tệp. Hãy cho biết giá trị của
biểu thức sau : Not eof(f)
A. False B. 0 C. End D. True
Câu 3 :
Trong ngôn ngữ lập trình Pascal, cho đoạn chơng trình :
I :=Pos( ,S) ; { là 2 kí tự trắng}
While i<>0 Do
Begin Delete(S,i,1) ; I :=Pos( ,S) ; End ;
Đoạn chơng trình trên thực hiện công việc nào trong các việc sau? :
A.
Xóa 2 dấu cách liên tiếp nhau đầu tiên trong xâu
B.

Xóa đi một trong 2 dấu cách đầu tiên trong xâu
C.
Xóa các dấu cách trong xâu S để S không còn 2 dấu cách liền nhau
D.
Xóa các dấu cách liền nhau cuối cùng trong xâu
Câu 4 :
Trong ngôn ngữ lập trình Pascal, cho đoạn chơng trình :
d :=0 ;
For i :=1 To length(S) Do If S[i]= Then d :=d+1 ;
{ là 1 kí tự trắng}
Đoạn chơng trình trên thực hiện công việc nào trong các việc sau :
A.
Đếm số kí tự có trong xâu
B.
Xóa đi các dấu cách trong xâu
C.
Xóa đi các kí tự số
D.
Đếm số dấu cách có trong xâu
Câu 5 :
Trong ngôn ngữ lập trình Pascal, đoạn chơng trình sau thực hiện công việc gì ?
S1 :=anh ; S2 :=em ; i :=Pos(S2,S) ;
While i<>0 Do Begin
Delete(S,i,2) ; Insert(S1,S,i) ; i :=Pos(S2,S) ; End ;
A.
Thay toàn bộ cụm từ anh trong xâu S bằng cụm từ em
B.
Thay cụm từ anh đầu tiên trong xâu S bằng cụm từ em
C.
Thay toàn bộ cụm từ em trong xâu S bằng cụm từ anh

D.
Thay cụm từ em đầu tiên trong xâu S bằng cụm từ anh
Câu 6 :
Trong ngôn ngữ lập trình Pascal, đoạn chơng trình sau thực hiện công việc gì ?
Dem :=0 ;
For i :=1 to length(S) do
If (S[i]>= A) and (S[i]<=Z) Then Dem :=Dem+1 ;
A.
Đếm trong xâu S có bao nhiêu lần xuất hiện của xâu AZ
B.
Đếm trong xâu S có bao nhiêu chữ cái là chữ in hoa
C.
Đếm trong xâu S có bao nhiêu chữ A
D.
Đếm trong xâu S có bao nhiêu chữ Z
Câu 7 :
Trong ngôn ngữ lập trình Pascal, thủ tục Delete(c, a, b) thực hiện công việc gì trong trong các
công việc sau ?
A.
Xóa trong xâu a, b kí tự bắt đầu từ vị trí c
B.
Xóa trong xâu c, b kí tự bắt đầu từ vị trí a
C.
Xóa trong xâu c, a kí tự bắt đầu từ vị trí b
D.
Xóa trong xâu b, a kí tự bắt đầu từ vị trí c
1
Lớp:
Họ và tên:
Câu 8 :

Trong ngôn ngữ lập trình Pascal, sau khi thực hiện đoạn chơng trình sau, biến X có giá trị là gì?
S :=Nguyen Minh Phuong ; X := ; { gán X là xâu rỗng}
i :=length(S) ;
Whi le S[i] <> Do { là 1 kí tự trắng}
Begin X := S[i] +X; i :=i-1 ; End ;
A.
gnouhP
B.
Nguyen
C.
Phuong
D.
Minh
Câu 9 :
Trong ngôn ngữ lập trình Pascal, đoạn chơng trình sau thực hiện công việc gì ?
X := Length(S) ;
For i :=X Downto 1 Do
If S[i]= then Delete(S,i,1) ; { là 1 kí tự trắng}
A.
Xóa tất cả các dấu nháy trong xâu S
B.
Xóa những kí tự trắng ở đầu xâu S
C.
Xóa tất cả các kí tự trắng trong xâu S
D.
Xóa những kí tự trắng ở cuối xâu S
Phần tự luận:
Cho tệp A.txt nằm trong ổ đĩa C: (dữ liệu trong tệp là các số nguyên) hãy lấy các dữ liệu của tệp trên và
bỏ chúng vào mảng, sau đó đếm xem có bao nhiêu số chia hết cho 3 và đa màn hình. (Biết rằng số chữ số có
trong tệp tối đa là 50).

Bài làm:
2
phiÕu soi - ®¸p ¸n (Dµnh cho gi¸m kh¶o)
M«n : kt
§Ò sè : 1
01 04 07
02 05 08
03 06 09
§Ò sè : 2
01 04 07
02 05 08
03 06 09
3
4