Tính tổng giá trị các phần tử của mảng A B.. Đế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.. Xóa 2 dấu cách liên tiếp nhau đầu tiê
Trang 1đề kiểm tra một tiết môn tin học khối 11
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)
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â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:
Trang 2Câ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 ;
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
Trang 3phiếu soi - đáp án (Dành cho giám khảo)
Môn : kt
Đề số : 1
Đề số : 2
3
Trang 44