de kiem tra 15'''' tin 11

Xóa hai 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 liền nhau cuối cùng trong xâu; D.. Cách khai báo xâu ký tự nà

Sở GD-ĐT Thừa Thiên - Huế

Trường THPT Hương Vinh Kiểm Tra 15 phút

A.Type 1chieu=array[1 100] of char;

B.Type 1chieu=array[1-100] of char;

C.Type mang=array(1 100) of char;D.Type mang1chieu=array[1 100] of char;

2. Đoạn chương trình sau thực hiện việc nào: S:=0; For i:= 1 to n do S:=S+ A[i];

3. Cho khai báo mảng như sau : Var m : array[0 10] of integer ; Phương án nào dưới đây chỉ phần tử thứ 10 của mảng ?

A a[10]; B a(10); C a[9]; D a(9);

4. Đoạn chương trình sau thực hiện công việc nào trong các công việc sau:

i:=pos(' ',S); {' ' là 2 dấu cách}

While i<>0 doBegin

Delete(s,i,1);

i:=pos(' ', s);

End;

A Xóa hai 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 liền nhau cuối cùng trong xâu;

D 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

5. Cách khai báo xâu ký tự nào sau đây là đúng:

A Var S: file of String; B Var S: file of char; C Var S: String; D Var S: Strings[255];

6. Xâu ký tự có tối đa là:

A 8 Ký tự B 256 ký tự C 16 Ký tự D 255 ký tự

7. Xâu ký tự không chứa ký tự nào gọi là:

A Xâu trắng; B Xâu không; C Xâu rỗng; D.Không phải là xâu ký tự

Var a : array[0 50] of real ;

8. Thủ tục Delete(c,a,b) thực hiện công việc gì trong các công việc sau:

A.Xóa trong xâu c a ký tự bắt đầu từ vị trí b; C Xóa trong xâu a b ký tự bắt đầu từ vị trí b; B.Xóa trong xâu c b ký tự bắt đầu từ vị trí a; D Xóa trong xâu b c ký tự bắt đầu từ vị trí a;

9. Cho khai báo mảng và đoạn chương trình như sau :

Đoạn chương trình trên thực hiện công việc gì dưới đây ?

k := 0 ; for i := 1 to 50 do

if a[i] > a[k] then k := i ;

A Tìm phần tử nhỏ nhất trong mảng;

B Tìm phần tử lớn nhất trong mảng;

C Tìm chỉ số của phần tử lớn nhất trong mảng;

D Tìm chỉ số của phần tử nhỏ nhất trong mảng;

10.Trong ngôn ngữ lập trình Pascal, thủ tục Insert(S1,S2,n) thực hiện công việc gì?

A.Chèn xâu S1 vào xâu S2 từ vị trí n của S1;B.Chèn xâu S1 vào xâu S2 từ vị trí n của S2; C.Chèn xâu S2 vào xâu S1 từ vị trí n của S1; D.Chèn xâu S2 vào xâu S2 từ vị trí n của S1;

11.Trong ngôn ngữ lập trình Pascal, hàm length(s) cho kết quả gì?

A.Độ dài xâu S khi khai báo;

A 12; B 13; C 14; D 15;

13.Đoạn chương trình sau in ra kết quả nào ?

Var a : string[10];Begin

a := ‘tinhoc ’;writeln(length(a));readln

End

A 6; B 7; C 10; D Chương trình có lỗi;

14.Cho khai báo sau : a : array[0 16] of integer ;

Câu lệnh nào dưới đây sẽ in ra tất cả các phần tử của mảng trên ?

A.for k := 1 to 16 do write(a[k]);

B.for k := 16 downto 0 do write(a[k]);

C.for k:= 0 to 15 do write(a[k]);D.for k := 16 down to 0 write(a[k]);

15.Cho str là một xâu kí tự, đoạn chương trình sau thực hiện công việc gì ?

for i := length(str) downto 1 do write(str[i]) ;

A.In xâu ra màn hình; B.In từng kí tự xâu ra màn hình;

C.In từng kí tự ra màn hình theo thứ tự ngược, trừ kí tự đầu tiên;

D.In từng kí tự ra màn hình theo thứ tự ngược;

16.Sau khi thực hiện đoạn chương trình sau, giá trị của biến S là: S:=’Ha Noi mua thu’;

Insert(‘Mua thu’,S,1);

A Ha Noi Mua thu; B Mua thu Ha Noi mua thu; C Mua thu Ha Noi; D Ha Noi;

17.Để 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 bất kỳ} C delete(s, length(s),1); D delete( 1,S,1);

18.Đ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 khoảng trắng trong xâu s;

B Đếm số từ có trong xâu s;

C.Đếm kí tự trắng có trong xâu s; D.Xóa đi chữ số đầu tiên trong xâu s;

19.Để tìm vị trí xuất hiện đầu tiên của xâu ‘hoa’ trong xâu S1 ta có thể viết bằng cách nào trong các cách sau? S1:=’hoahong’;

A I:=pos(S1,’hoa’); B I:=pos(S,’hoa’); C I:=pos(’hoa’,S1); D I:=pos(‘hoa’,’hoa’);

20.Đoạn chương trình sau đây làm công việc gì?

i:=pos (' ',A);

While i<>0 do Begin Delete(x,i,1);

I:=Pos(' ',A);

End;

A.Xóa các kí tự trắng trong xâu A; C Xóa các kí tự trắng bên trái của xâu A;B.Xóa các kí tự trắng bên phải của xâu A; D Xóa các kí tự trắng ở hai đầu của xâu A;