Họ và tên: ………………………… KIỂM TRA1TIẾT Lớp: ………. Môn: Tin học 11 A/ PHẦN TRẮC NGHIỆM: (4 điểm) Hãy chọn phương án trả lời đúng nhất trong các câu sau: Câu1: Trong ngôn ngữ lập trình Pascal, về mặt cú pháp câu lệnh nào sau đây là đúng? A. Type 1chieu=array[1 100] of char; B. Type 1chieu=array[1-100] of char; C. Type mang1c=array(1 100) of char; D. Type mang1c=array[1 100] of char; Câu 2: Trong ngôn ngữ lập trình pascal, với khai báo mảng A: array[1 100,1 100] of integer thì việc truy xuất đến các phần tử như sau: A. A[i],[j]; B. A(i,j); C. A[i][j]; D. A[i,j]; Câu 3: Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các việc sau: S:=0; For i:= 1 to n do S:=S+ A[i]; A. Tính tổng các phần tử của mảng một chiều; B. In ra màn hình mảng A; C. Đếm số phần tử của mảng A; D. In ra phần tử A[i]; Câu 4: Trong ngôn ngữ lập trình Pascal sau khi thực hiện đoạn chương trình sau: S:=’Ha Noi mua thu’; Delete(S,7,8); Insert(‘Mua thu ’,S,1); giá trị của biến S là: A. Ha Noi Mua thu; B. Mua thu Ha Noi mua thu; C. Mua thu Ha Noi; D. Ha Noi; Câu 5: Trong ngôn ngữ lập trình Pascal, chương trình sau thực hiện công việc gi? Dem:=0; For ch:=’a’ to ‘z’ do Dem := Dem + 1; A. Đếm số lượng ký tự khác dấu cách (khoảng trắng) của xâu S; B. Đếm số lượng ký tự là những chữ cái in hoa của xâu S; C. Đếm số lượng ký tự là những chữ cái thường của xâu S; D. Đếm số lượng ký tự là những chữ thường khác nhau của xâu S; Câu 6: Trong ngôn ngữ lập trình Pascal, để xóa ký tự đầu tiên của xâu ký tự S ta viết: A. delete(S,1,1); B. delete(S,1,i); {i là biến có giá trị bất kỳ} C. delete(S, length(S),1); D. delete(1,S,1); Câu 7: Trong ngôn ngữ lập trình Pascal, để tìm vị trí xuất hiện đầu tiên của xâu ‘hoa’ trong xâu S ta có thể viết bằng cách nào trong các cách sau? A. S1:=’hoa’; I:=pos(s1,’hoa’); B. I:=pos(s,’hoa’); C. I:=pos(’hoa’,s); D. I:=pos(‘hoa’,’hoa’); Câu 8: 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ì? d:=0; for i:=1 to length(s) do if s[i]=’ ‘ then d:=d+1; {‘’ là khoảng trắng}; A. Xóa các dấu khoảng trắng trong xâu s; B. Đếm số ký tự có trong xâu s; C. Xóa đi các chữ số có trong xâu s; D. Đếm số ký tự trắng có trong xâu s; B/ PHẦN TỰ LUẬN (6 ĐIỂM) Câu 1 (2 điểm): Hãy cho biết các đoạn chương trình sau thực hiện công việc gì? a/ S1:=’hoa’; S2:=’hong’; i:=Pos(S1,S); {S là một xâu cho trước} While i<> 0 do Begin Delete(S,i,4); Insert(S1,S,i); i:=pos(S2,S); End; ………………………………………………………………………………………………….…… . ………………………………………………………………………………………………………… b/ kt := ‘ ‘; {‘ ’ là 2 dấu cách}i:=pos(kt,S); While i<>0 do Begin Delete(S,i,1); i:=pos(kt, S); End; …………………………………………………………………………………………………… Câu 2 (4 điểm): Viết chương trình nhập vào một xâu bất kỳ, sau đó thực hiện các công việc sau: a/ In ra màn hình mỗi từ trên một dòng (Cho biết các từ chỉ cách nhau một dấu cách ‘ ‘); b/ Thông báo xem từ ‘hoa’ được xuất hiện mấy lần trong xâu. . đúng? A. Type 1chieu=array [1. .10 0] of char; B. Type 1chieu=array [1- 100] of char; C. Type mang1c=array (1. .10 0) of char; D. Type mang1c=array [1. .10 0] of char;. ………………………… KIỂM TRA 1 TIẾT Lớp: ………. Môn: Tin học 11 A/ PHẦN TRẮC NGHIỆM: (4 điểm) Hãy chọn phương án trả lời đúng nhất trong các câu sau: Câu1: Trong ngôn