Họ và tên: ………………………….. 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 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à:
Ha Noi Mua thu; B. Mua thu Ha Noi mua thu;
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