KIỂM TRA 1 TIẾTA/ 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?. Tí
Trang 1Họ và tên: ……… KIỂM TRA 1 TIẾT
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â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