Họ tên: Lớp: Câu 1: Trong ngôn ngữ lập trình Pascal, xâu kí tự có tối đa ? A 255 kí tự; B 256 kí tự; C 16 kí tự; D kí tự; Câu 2: Trong ngơn ngữ lập trình Pascal, khai báo khai báo sau SAI khai báo xâu kí tự ? A VAR S : STRING[256]; B VAR X1 : STRING[1]; C VAR X1 : STRING[100]; D VAR S : STRING; Câu 3: Cho khai báo mảng đoạn chương trình sau: VAR A : ARRAY[0 50] OF real; BEGIN k := 0; FOR i:= TO 50 DO IF A[i] > A[k] THEN k := i; END Đoạn chương trình thực cơng việc ? A Tìm phần tử nhỏ mảng B Tìm phần tử lớn mảng C Tìm số phần tử nhỏ mảng D Tìm số phần tử lớn mảng Câu 4: Trong ngơn ngữ lập trình Pascal, với khai báo sau : Type mang = ARRAY[1 100] of integer ; Var a, b : mang ; c : array[1 100] of integer ; Câu lệnh hợp lệ ? A b := c ; B a := b ; C a := c ; D c := b ; Câu 5: Trong ngôn ngữ lập trình Pascal, sau thực đoạn chương trình sau, biến X có giá trị gì? S := ‘Hoang Anh Tuan’ ; X := ‘ ’ ; i := length(S) ; while S[i] ‘ ’ Begin X := X + S[i] ; i := i + ; End ; A ‘Anh’ B Xâu rỗng C ‘Hoang’ D ‘Tuan’ Câu 6: Cho ST xâu kí tự, đoạn chương trình sau thực cơng việc gì? FOR i := LENGTH(ST) DOWNTO DO write(ST[i]) ; A In kí tự hình theo thứ tự ngược, trừ kí tự đầu tiên; B In kí tự xâu hình; C In xâu hình; D In kí tự hình theo thứ tự ngược; Câu 7: Trong ngơn ngữ lập trình Pascal, trình nhập liệu mảng chiều A, để phần tử hiển thị cửa sổ chương trình ta viết lệnh sau: A Write(“ A[ ” , i ,“ ]= ”); readln(A[i]); B Write(‘ A[ i ]= ’); readln(A[i]); C Write(‘ A[ ’ i ‘ ]= ’);readln(A[i]); D Write(‘ A[ ’ , i , ‘ ]= ’); readln(A[i]); Câu 8: Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực cơng việc ? X := length(S) ; For i := X downto If S[i] = ‘ ’ then Delete(S, i, 1) ; { ‘ ’ dấu cách } A Xóa dấu cách xâu ký tự S B Xóa dấu cách vị trí cuối xâu S C Xóa dấu cách xâu S D Xóa dấu cách thừa xâu ký tự S Câu 9: Trong ngơn ngữ lập trình Pascal, sau chương trình thực xong đoạn chương trình sau, giá trị biến S ? S := ‘Ha Noi Mua thu’; Trang 1/2 - Mã đề thi 061 Delete(S,7,8); Insert(‘Mua thu’, S, 1); A Ha Noi Mua thu; B Mua thu Ha Noi; C Ha Noi; D Mua thu Ha Noi mua thu; Câu 10: Trong ngơn ngữ lập trình Pascal, xâu kí tự khơng có kí tự gọi ? A Xâu trắng; B Xâu không; C Xâu rỗng; D Không phải xâu kí tự; Câu 11: Cho khai báo sau: VAR hoten : STRING; Phát biểu đúng? A Xâu có độ dài lớn 0; B Câu lệnh sai thiếu độ dài tối đa xâu; C Cần phải khai báo kích thước xâu sau đó; D Xâu có độ dài lớn 255; Câu 12: Trong ngơn ngữ lập trình Pascal, để in xâu kí tự hình theo thứ tự ngược lại ký tự xâu (vd : abcd thi in dcba), đoạn chương sau thực việc ? A For i := length(S) downto write(S) B For i := length(S) downto write(S[i]) C For i := to length(S) write(S[i]) D For i := to length(S) div write(S[i]) Câu 13: Phát biểu sau kiểu mảng SAI? A Độ dài tối đa mảng 255; B Có thể xây dựng mảng nhiều chiều; C Chỉ số mảng không thiết 1; D Xâu kí tự xem loại mảng; Câu 14: Cho xâu S:= ‘Ha_Noi_Mua_Thu’; Kết trả cho S câu lệnh DELETE(S,7,10); A Ha_Noi B Ha_noi C Ha Noi D Lỗi cú pháp Câu 15: Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực việc việc sau ( A mảng số có N phần tử) ? S := ; For i := to N S := S + A[i] ; A Tính tổng phần tử mảng A; B Không thực việc việc C Đếm số phần tử mảng A; D In hình mảng A; Câu 16: Đoạn chương trình sau in kết ? Program Welcome ; Var a : string[10]; Begin a := ‘tinhoc ’;writeln(length(a)); End A Chương trình có lỗi; B 6; C 10; D 7; Câu 17: Cho xâu S ‘AbABabABab’ Kết hàm POS(‘AB’,S) là: A 1; B 5; C 8; D 3; Câu 18: Cho khai báo mảng sau: VAR M: ARRAY[0 10] OF Integer ; Phương án phần tử thứ 10 mảng ? A M[9]; B M(9); C M(10); D M[10]; Câu 19: Cho khai báo sau : VAR A: ARRAY[0 16] OF Integer ; Câu lệnh in tất phần tử mảng trên? A FOR k := 16 DOWNTO DO write(a[k]); B FOR k:= TO 15 DO write(a[k]); C FOR k := 16 DOWN TO write(a[k]); D FOR k := TO 16 DO write(a[k]); Câu 20: Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực cơng việc gì? A Xóa ký tự số; C Đếm số dấu cách có xâu; B Đếm số ký tự có xâu; D Xóa dấu cách xâu; - HẾT -Trang 2/2 - Mã đề thi 061