Var a : array[0 50] of real ; Sở GD-ĐT Thừa Thiên - Huế Trường THPT Hương Vinh KiểmTra15 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;