de kiem tra 15'''' tin 11

Var a : array[0..50] of real ;
Sở GD-ĐT Thừa Thiên - Huế
Trường THPT Hương Vinh Kiểm Tra 15 phút
-------------------------------
Họ và tên: ..................................................................... Lớp:..............................
Đề số 1:
1. 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 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];
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. Không thực hiện việc nào trong 3 việc trên;
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 do
Begin
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ự
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 ?
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;
k := 0 ;
for i := 1 to 50 do
if a[i] > a[k] then k := i ;
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;
B.Tuỳ ý;
C.Số ký tự hiện có trong xâu S không tính các khoảng trắng (Ký tự trắng, khoảng cách);
D.Số các ký tự của xâu không tính dấu cách cuối cùng;
12. Cho xâu S là ‘Hanoi-Vietnam’. Kết quả của hàm Length(S) là :
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;