DE KIEM TRA 15 HK2 - K11

TRƯỜNG THPT BÌNH SƠN ĐỀ KIỂM TRA – NĂM HỌC 2010 - 2011 TỔ: TIN HỌC MÔN: TIN HỌC – THỜI GIAN: 15 PHÚT HỌ VÀ TÊN: LỚP: 11 MÃ ĐỀ: 111 PHẦN TRẢ LỜI: Chọn một câu đúng nhất (tô hoặc đánh dấu X vào ô tương ứng). Câu 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 A B C D 1/ Cho khai báo: Var A: Array[1 4] of Real; i: Integer ; Ðể nhập dữ liệu cho mảng A, chọn câu nào: a Write(‘ Nhập A:’); Readln(A); b For i:=1 to 4 do Write(‘ Nhập A[‘, i, ‘]= ’); Readln(A[i]); c For i:=1 to 4 do Readln(‘ Nhập A[‘, i, ‘]= ’); d For i:=1 to 4 do Begin Write(‘ Nhập A[‘, i, ‘]= ’); Readln(A[i]); End; 2/ Cho khai báo biến : Var A : array[1 5] of Integer; Chọn lệnh đúng: a A[2]:= -6 ; b A:= 10 ; c A[1]:= 4/2 ; d A(3):= 6 ; 3/ Cho khai báo : Var A : array[1 2,1 3] of Real; i, j : integer; Max : Real; Ðể tìm số lớn nhất của ma trận A, chọn câu nào: a A[1,1]:=Max ; For i:=1 to 2 do For j:=1 to 3 do if Max< A[i,j] then A[i,j]:=Max; b Max:=A[1,1]; i:=1; For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j]; c Max:=A[1,1]; For i:=1 to 2 do For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j]; d Max:=A[1,1]; For i:=1 to 2 do if Max < A[i,j] then Max:=A[i,j]; 4/ Cho khai báo sau: Var A: array[0 16] of integer; Câu lệnh nào 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 :=0 downto 16 do write(a[k]); 5/ Độ dài tối đa của xâu kí tự trong PASCAL là: a 256 b Tùy ý c 255 d 65535 6/ Xâu kí tự không có kí tự nào cả gọi là: a Xâu không b Xâu trắng c Không phải là xâu kí tự d Xâu rỗng 7/ Cho xâu A:='Lap trinh Pascal'. Nếu sử dụng hàm b:= pos(‘Pascal’, A); Kết quả in ra giá trị của b là: a 5 b 10 c 6 d 11 8/ Câu lệnh sau làm việc gì? For i:=1 to length(s) do Write(s[length(s)-i+1]) a Hiện ra màn hình xâu ngược lại so với xâu vừa nhập vào; b Cho biết độ dài của xâu vừa nhập vào; c Không làm gì cả; d Hiện ra màn hình xâu vừa nhập vào; 9/ Cho xâu S:='Tuoi hoc tro' thủ tục Delete(S, 1, Length(S)); kết quả ta được xâu? a Xâu rỗng; b 'hoc tro' c 'hoc' d 'Tuoi' 10/ Câu lệnh sau làm việc gì? k:=0; For i:=1 to length(S) do If S[i]=' ' then k:=k+1; a Đếm kí tự k trong xâu S; b Đếm kí tự trắng trong xâu S; c Đếm tổng các kí tự trong xâu S; d Đếm kí tự S trong xâu S; 11/ S1:=’Ngon ngu Pascal’; S2:=Copy(S1, 10, 6); S2 có giá trị là: a 'Ngon ngu' b 'Ngon ngu ' c 'Pascal' d 'Ngon n' 12/ Cho 2 xâu: a:='Tin Học'; b:='TIN HỌC'; Hãy chọn phương án đúng. a Độ dài mỗi xâu là 7, xâu a= xâu b. b Độ dài mỗi xâu là 6, xâu a= xâu b. c Độ dài mỗi xâu là 7, xâu a< xâu b. d Độ dài mỗi xâu là 7, xâu a> xâu b. 13/ S1:=’lap trinh’; S2:= ‘ ngon ngu’; Insert(S2, S1, 4); S1 có giá trị là: a 'lap ngon ngutrinh' b 'lapngon ngu trinh' c 'ngon ngu lap trinh' d 'lap ngon ngu trinh' 14/ Cho khai báo Var hoten:String; Phát biểu nào sau đây đúng? a Câu lệnh sai vì thiếu độ dài tối đa của xâu; b Xâu có độ dài lớn nhất là 255; c Cần phải khai báo độ dài lớn nhất của xâu đó; d Xâu có độ dài lớn nhất là 0; 15/ Để xóa đi kí tự đầu tiên của xâu kí tự S ta viết: a Delete (S,I,1); {I là biến có giá trị bất kì} b Delete (S,1,i); {i là biến có giá trị bất kì} c Delete(S,Length(S),1); d Delete(S,1,1); TRƯỜNG THPT BÌNH SƠN ĐỀ KIỂM TRA – NĂM HỌC 2010 - 2011 TỔ: TIN HỌC MÔN: TIN HỌC – THỜI GIAN: 15 PHÚT HỌ VÀ TÊN: LỚP: 11 MÃ ĐỀ: 222 PHẦN TRẢ LỜI: Chọn một câu đúng nhất (tô hoặc đánh dấu X vào ô tương ứng). Câu 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 A B C D 1/ S1:=’Ngon ngu Pascal’; S2:=Copy(S1, 10, 6); S2 có giá trị là: a 'Ngon ngu ' b 'Ngon n' c 'Ngon ngu' d 'Pascal' 2/ Cho xâu A:='Lap trinh Pascal'. Nếu sử dụng hàm b:= pos(‘Pascal’, A); Kết quả in ra giá trị của b là: a 5 b 10 c 6 d 11 3/ Câu lệnh sau làm việc gì? k:=0; For i:=1 to length(S) do If S[i]=' ' then k:=k+1; a Đếm kí tự k trong xâu S; b Đếm kí tự trắng trong xâu S; c Đếm kí tự S trong xâu S; d Đếm tổng các kí tự trong xâu S; 4/ Câu lệnh sau làm việc gì? For i:=1 to length(s) do Write(s[length(s)-i+1]) a Không làm gì cả; b Hiện ra màn hình xâu vừa nhập vào; c Hiện ra màn hình xâu ngược lại so với xâu vừa nhập vào; d Cho biết độ dài của xâu vừa nhập vào; 5/ Để xóa đi kí tự đầu tiên của xâu kí tự S ta viết: a Delete(S,Length(S),1); b Delete (S,1,i); {i là biến có giá trị bất kì} c Delete(S,1,1); d Delete (S,I,1); {I là biến có giá trị bất kì} 6/ Cho xâu S:='Tuoi hoc tro' thủ tục Delete(S, 1, Length(S)); kết quả ta được xâu? a 'hoc tro' b Xâu rỗng; c 'Tuoi' d 'hoc' 7/ Xâu kí tự không có kí tự nào cả gọi là: a Xâu không b Xâu trắng c Xâu rỗng d Không phải là xâu kí tự 8/ Cho 2 xâu: a:='Tin Học'; b:='TIN HỌC'; Hãy chọn phương án đúng. a Độ dài mỗi xâu là 7, xâu a= xâu b. b Độ dài mỗi xâu là 7, xâu a> xâu b. c Độ dài mỗi xâu là 6, xâu a= xâu b. d Độ dài mỗi xâu là 7, xâu a< xâu b. 9/ S1:=’lap trinh’; S2:= ‘ ngon ngu’; Insert(S2, S1, 4); S1 có giá trị là: a 'lap ngon ngu trinh' b 'lap ngon ngutrinh' c 'ngon ngu lap trinh' d 'lapngon ngu trinh' 10/ Độ dài tối đa của xâu kí tự trong PASCAL là: a 65535 b Tùy ý c 255 d 256 11/ Cho khai báo Var hoten:String; Phát biểu nào sau đây đúng? a Xâu có độ dài lớn nhất là 255; b Xâu có độ dài lớn nhất là 0; c Cần phải khai báo độ dài lớn nhất của xâu đó; d Câu lệnh sai vì thiếu độ dài tối đa của xâu; 12/ Cho khai báo: Var A: Array[1 4] of Real; i: Integer ; Ðể nhập dữ liệu cho mảng A, chọn câu nào: a For i:=1 to 4 do Write(‘ Nhập A[‘, i, ‘]= ’); Readln(A[i]); b For i:=1 to 4 do Begin Write(‘ Nhập A[‘, i, ‘]= ’); Readln(A[i]); End; c Write(‘ Nhập A:’); Readln(A); d For i:=1 to 4 do Readln(‘ Nhập A[‘, i, ‘]= ’); 13/ Cho khai báo biến : Var A : array[1 5] of Integer; Chọn lệnh đúng: a A(3):= 6 ; b A:= 10 ; c A[2]:= -6 ; d A[1]:= 4/2 ; 14/ Cho khai báo : Var A : array[1 2,1 3] of Real; i, j : integer; Max : Real; Ðể tìm số lớn nhất của ma trận A, chọn câu nào: a Max:=A[1,1]; i:=1; For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j]; b A[1,1]:=Max ; For i:=1 to 2 do For j:=1 to 3 do if Max< A[i,j] then A[i,j]:=Max; c Max:=A[1,1]; For i:=1 to 2 do For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j]; d Max:=A[1,1]; For i:=1 to 2 do if Max < A[i,j] then Max:=A[i,j]; 15/ Cho khai báo sau: Var A: array[0 16] of integer; Câu lệnh nào sẽ in ra tất cả các phần tử của mảng trên a For k :=0 to 15 do write(a[k]); b For k := 16 downto 0 do write(a[k]); c For k :=0 downto 16 do write(a[k]); d For k :=1 to 16 do write(a[k]); TRƯỜNG THPT BÌNH SƠN ĐỀ KIỂM TRA – NĂM HỌC 2010 - 2011 TỔ: TIN HỌC MÔN: TIN HỌC – THỜI GIAN: 15 PHÚT HỌ VÀ TÊN: LỚP: 11 MÃ ĐỀ: 333 PHẦN TRẢ LỜI: Chọn một câu đúng nhất (tô hoặc đánh dấu X vào ô tương ứng). Câu 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 A B C D 1/ Cho khai báo : Var A : array[1 2,1 3] of Real; i, j : integer; Max : Real; Ðể tìm số lớn nhất của ma trận A, chọn câu nào: a Max:=A[1,1]; For i:=1 to 2 do if Max < A[i,j] then Max:=A[i,j]; b Max:=A[1,1]; For i:=1 to 2 do For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j]; c A[1,1]:=Max ; For i:=1 to 2 do For j:=1 to 3 do if Max< A[i,j] then A[i,j]:=Max; d Max:=A[1,1]; i:=1; For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j]; 2/ S1:=’Ngon ngu Pascal’; S2:=Copy(S1, 10, 6); S2 có giá trị là: a 'Ngon n' b 'Ngon ngu ' c 'Pascal' d 'Ngon ngu' 3/ Cho khai báo sau: Var A: array[0 16] of integer; Câu lệnh nào 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 :=0 to 15 do write(a[k]); c For k := 16 downto 0 do write(a[k]); d For k :=0 downto 16 do write(a[k]); 4/ Cho xâu A:='Lap trinh Pascal'. Nếu sử dụng hàm b:= pos(‘Pascal’, A); Kết quả in ra giá trị của b là: a 6 b 5 c 10 d 11 5/ Cho khai báo Var hoten:String; Phát biểu nào sau đây đúng? a Cần phải khai báo độ dài lớn nhất của xâu đó; b Câu lệnh sai vì thiếu độ dài tối đa của xâu; c Xâu có độ dài lớn nhất là 255; d Xâu có độ dài lớn nhất là 0; 6/ Cho 2 xâu: a:='Tin Học'; b:='TIN HỌC'; Hãy chọn phương án đúng. a Độ dài mỗi xâu là 7, xâu a> xâu b. b Độ dài mỗi xâu là 6, xâu a= xâu b. c Độ dài mỗi xâu là 7, xâu a= xâu b. d Độ dài mỗi xâu là 7, xâu a< xâu b. 7/ Để xóa đi kí tự đầu tiên của xâu kí tự S ta viết: a Delete(S,Length(S),1); b Delete (S,1,i); {i là biến có giá trị bất kì} c Delete(S,1,1); d Delete (S,I,1); {I là biến có giá trị bất kì} 8/ Câu lệnh sau làm việc gì? k:=0; For i:=1 to length(S) do If S[i]=' ' then k:=k+1; a Đếm kí tự trắng trong xâu S; b Đếm kí tự S trong xâu S; c Đếm tổng các kí tự trong xâu S; d Đếm kí tự k trong xâu S; 9/ Xâu kí tự không có kí tự nào cả gọi là: a Xâu trắng b Xâu không c Không phải là xâu kí tự d Xâu rỗng 10/ Độ dài tối đa của xâu kí tự trong PASCAL là: a 256 b 255 c 65535 d Tùy ý 11/ S1:=’lap trinh’; S2:= ‘ ngon ngu’; Insert(S2, S1, 4); S1 có giá trị là: a 'lap ngon ngu trinh' b 'lapngon ngu trinh' c 'ngon ngu lap trinh' d 'lap ngon ngutrinh' 12/ Cho khai báo: Var A: Array[1 4] of Real; i: Integer ; Ðể nhập dữ liệu cho mảng A, chọn câu nào: a For i:=1 to 4 do Readln(‘ Nhập A[‘, i, ‘]= ’); b For i:=1 to 4 do Begin Write(‘ Nhập A[‘, i, ‘]= ’); Readln(A[i]); End; c For i:=1 to 4 do Write(‘ Nhập A[‘, i, ‘]= ’); Readln(A[i]); d Write(‘ Nhập A:’); Readln(A); 13/ Cho khai báo biến : Var A : array[1 5] of Integer; Chọn lệnh đúng: a A[1]:= 4/2 ; b A(3):= 6 ; c A:= 10 ; d A[2]:= -6 ; 14/ Câu lệnh sau làm việc gì? For i:=1 to length(s) do Write(s[length(s)-i+1]) a Hiện ra màn hình xâu ngược lại so với xâu vừa nhập vào; b Không làm gì cả; c Hiện ra màn hình xâu vừa nhập vào; d Cho biết độ dài của xâu vừa nhập vào; 15/ Cho xâu S:='Tuoi hoc tro' thủ tục Delete(S, 1, Length(S)); kết quả ta được xâu? a Xâu rỗng; b 'hoc' c 'Tuoi' d 'hoc tro' TRƯỜNG THPT BÌNH SƠN ĐỀ KIỂM TRA – NĂM HỌC 2010 - 2011 TỔ: TIN HỌC MÔN: TIN HỌC – THỜI GIAN: 15 PHÚT HỌ VÀ TÊN: LỚP: 11 MÃ ĐỀ: 444 PHẦN TRẢ LỜI: Chọn một câu đúng nhất (tô hoặc đánh dấu X vào ô tương ứng). Câu 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 A B C D 1/ Câu lệnh sau làm việc gì? For i:=1 to length(s) do Write(s[length(s)-i+1]) a Hiện ra màn hình xâu vừa nhập vào; b Cho biết độ dài của xâu vừa nhập vào; c Hiện ra màn hình xâu ngược lại so với xâu vừa nhập vào; d Không làm gì cả; 2/ Cho khai báo : Var A : array[1 2,1 3] of Real; i, j : integer; Max : Real; Ðể tìm số lớn nhất của ma trận A, chọn câu nào: a A[1,1]:=Max ; For i:=1 to 2 do For j:=1 to 3 do if Max< A[i,j] then A[i,j]:=Max; b Max:=A[1,1]; For i:=1 to 2 do For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j]; c Max:=A[1,1]; For i:=1 to 2 do if Max < A[i,j] then Max:=A[i,j]; d Max:=A[1,1]; i:=1; For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j]; 3/ Cho xâu S:='Tuoi hoc tro' thủ tục Delete(S, 1, Length(S)); kết quả ta được xâu? a 'Tuoi' b Xâu rỗng; c 'hoc tro' d 'hoc' 4/ Để xóa đi kí tự đầu tiên của xâu kí tự S ta viết: a Delete (S,I,1); {I là biến có giá trị bất kì} b Delete(S,Length(S),1); c Delete (S,1,i); {i là biến có giá trị bất kì} d Delete(S,1,1); 5/ Cho xâu A:='Lap trinh Pascal'. Nếu sử dụng hàm b:= pos(‘Pascal’, A); Kết quả in ra giá trị của b là: a 11 b 5 c 6 d 10 6/ Cho khai báo Var hoten:String; Phát biểu nào sau đây đúng? a Xâu có độ dài lớn nhất là 255; b Cần phải khai báo độ dài lớn nhất của xâu đó; c Câu lệnh sai vì thiếu độ dài tối đa của xâu; d Xâu có độ dài lớn nhất là 0; 7/ Câu lệnh sau làm việc gì? k:=0; For i:=1 to length(S) do If S[i]=' ' then k:=k+1; a Đếm kí tự S trong xâu S; b Đếm kí tự trắng trong xâu S; c Đếm tổng các kí tự trong xâu S; d Đếm kí tự k trong xâu S; 8/ S1:=’lap trinh’; S2:= ‘ ngon ngu’; Insert(S2, S1, 4); S1 có giá trị là: a 'ngon ngu lap trinh' b 'lapngon ngu trinh' c 'lap ngon ngutrinh' d 'lap ngon ngu trinh' 9/ S1:=’Ngon ngu Pascal’; S2:=Copy(S1, 10, 6); S2 có giá trị là: a 'Ngon ngu' b 'Ngon n' c 'Pascal' d 'Ngon ngu ' 10/ Cho khai báo sau: Var A: array[0 16] of integer; Câu lệnh nào sẽ in ra tất cả các phần tử của mảng trên a For k := 16 downto 0 do write(a[k]); b For k :=0 downto 16 do write(a[k]); c For k :=1 to 16 do write(a[k]); d For k :=0 to 15 do write(a[k]); 11/ Cho khai báo: Var A: Array[1 4] of Real; i: Integer ; Ðể nhập dữ liệu cho mảng A, chọn câu nào: a For i:=1 to 4 do Begin Write(‘ Nhập A[‘, i, ‘]= ’); Readln(A[i]); End; b Write(‘ Nhập A:’); Readln(A); c For i:=1 to 4 do Readln(‘ Nhập A[‘, i, ‘]= ’); d For i:=1 to 4 do Write(‘ Nhập A[‘, i, ‘]= ’); Readln(A[i]); 12/ Cho khai báo biến : Var A : array[1 5] of Integer; Chọn lệnh đúng: a A(3):= 6 ; b A[2]:= -6 ; c A[1]:= 4/2 ; d A:= 10 ; 13/ Cho 2 xâu: a:='Tin Học'; b:='TIN HỌC'; Hãy chọn phương án đúng. a Độ dài mỗi xâu là 6, xâu a= xâu b. b Độ dài mỗi xâu là 7, xâu a< xâu b. c Độ dài mỗi xâu là 7, xâu a> xâu b. d Độ dài mỗi xâu là 7, xâu a= xâu b. 14/ Độ dài tối đa của xâu kí tự trong PASCAL là: a 65535 b 255 c Tùy ý d 256 15/ Xâu kí tự không có kí tự nào cả gọi là: a Xâu trắng b Xâu rỗng c Xâu không d Không phải là xâu kí tự TRƯỜNG THPT BÌNH SƠN ĐỀ KIỂM TRA – NĂM HỌC 2010 - 2011 TỔ: TIN HỌC MÔN: TIN HỌC – THỜI GIAN: 15 PHÚT HỌ VÀ TÊN: LỚP: 11 MÃ ĐỀ: 555 PHẦN TRẢ LỜI: Chọn một câu đúng nhất (tô hoặc đánh dấu X vào ô tương ứng). Câu 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 A B C D 1/ Xâu kí tự không có kí tự nào cả gọi là: a Xâu không b Xâu trắng c Xâu rỗng d Không phải là xâu kí tự 2/ Cho khai báo : Var A : array[1 2,1 3] of Real; i, j : integer; Max : Real; Ðể tìm số lớn nhất của ma trận A, chọn câu nào: a Max:=A[1,1]; For i:=1 to 2 do For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j]; b A[1,1]:=Max ; For i:=1 to 2 do For j:=1 to 3 do if Max< A[i,j] then A[i,j]:=Max; c Max:=A[1,1]; For i:=1 to 2 do if Max < A[i,j] then Max:=A[i,j]; d Max:=A[1,1]; i:=1; For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j]; 3/ S1:=’Ngon ngu Pascal’; S2:=Copy(S1, 10, 6); S2 có giá trị là: a 'Ngon ngu ' b 'Ngon ngu' c 'Pascal' d 'Ngon n' 4/ Cho khai báo Var hoten:String; Phát biểu nào sau đây đúng? a Xâu có độ dài lớn nhất là 0; b Cần phải khai báo độ dài lớn nhất của xâu đó; c Xâu có độ dài lớn nhất là 255; d Câu lệnh sai vì thiếu độ dài tối đa của xâu; 5/ S1:=’lap trinh’; S2:= ‘ ngon ngu’; Insert(S2, S1, 4); S1 có giá trị là: a 'lap ngon ngutrinh' b 'ngon ngu lap trinh' c 'lap ngon ngu trinh' d 'lapngon ngu trinh' 6/ Cho xâu A:='Lap trinh Pascal'. Nếu sử dụng hàm b:= pos(‘Pascal’, A); Kết quả in ra giá trị của b là: a 6 b 5 c 10 d 11 7/ Cho khai báo: Var A: Array[1 4] of Real; i: Integer ; Ðể nhập dữ liệu cho mảng A, chọn câu nào: a For i:=1 to 4 do Readln(‘ Nhập A[‘, i, ‘]= ’); b For i:=1 to 4 do Begin Write(‘ Nhập A[‘, i, ‘]= ’); Readln(A[i]); End; c For i:=1 to 4 do Write(‘ Nhập A[‘, i, ‘]= ’); Readln(A[i]); d Write(‘ Nhập A:’); Readln(A); 8/ Cho khai báo biến : Var A : array[1 5] of Integer; Chọn lệnh đúng: a A[2]:= -6 ; b A[1]:= 4/2 ; c A:= 10 ; d A(3):= 6 ; 9/ Câu lệnh sau làm việc gì? k:=0; For i:=1 to length(S) do If S[i]=' ' then k:=k+1; a Đếm kí tự trắng trong xâu S; b Đếm tổng các kí tự trong xâu S; c Đếm kí tự k trong xâu S; d Đếm kí tự S trong xâu S; 10/ Cho xâu S:='Tuoi hoc tro' thủ tục Delete(S, 1, Length(S)); kết quả ta được xâu? a 'Tuoi' b 'hoc' c 'hoc tro' d Xâu rỗng; 11/ Cho 2 xâu: a:='Tin Học'; b:='TIN HỌC'; Hãy chọn phương án đúng. a Độ dài mỗi xâu là 7, xâu a> xâu b. b Độ dài mỗi xâu là 6, xâu a= xâu b. c Độ dài mỗi xâu là 7, xâu a< xâu b. d Độ dài mỗi xâu là 7, xâu a= xâu b. 12/ Để xóa đi kí tự đầu tiên của xâu kí tự S ta viết: a Delete (S,1,i); {i là biến có giá trị bất kì} b Delete (S,I,1); {I là biến có giá trị bất kì} c Delete(S,1,1); d Delete(S,Length(S),1); 13/ Độ dài tối đa của xâu kí tự trong PASCAL là: a 65535 b Tùy ý c 256 d 255 14/ Cho khai báo sau: Var A: array[0 16] of integer; Câu lệnh nào 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 :=0 downto 16 do write(a[k]); 15/ Câu lệnh sau làm việc gì? For i:=1 to length(s) do Write(s[length(s)-i+1]) a Hiện ra màn hình xâu ngược lại so với xâu vừa nhập vào; b Hiện ra màn hình xâu vừa nhập vào; c Cho biết độ dài của xâu vừa nhập vào; d Không làm gì cả; [...]... 'lapngon ngu trinh' d 'ngon ngu lap trinh' 14/ Để xóa đi kí tự đầu tiên của xâu kí tự S ta viết: a Delete(S,Length(S),1); b Delete(S,1,1); c Delete (S,I,1); {I là biến có giá trị bất kì} d Delete (S,1,i); {i là biến có giá trị bất kì} 15/ Câu lệnh sau làm việc gì? For i:=1 to length(s) do Write(s[length(s)-i+1]) a Không làm gì cả; b Hiện ra màn hình xâu ngược lại so với xâu vừa nhập vào; c Hiện ra màn... tất cả các phần tử của mảng trên a For k :=0 to 15 do write(a[k]); b For k := 16 downto 0 do write(a[k]); c For k :=0 downto 16 do write(a[k]); d For k :=1 to 16 do write(a[k]); 3/ Để xóa đi kí tự đầu tiên của xâu kí tự S ta viết: a Delete(S,Length(S),1); b Delete (S,I,1); {I là biến có giá trị bất kì} c Delete (S,1,i); {i là biến có giá trị bất kì} d Delete(S,1,1); 4/ Cho khai báo: Var A: Array[1 4]... cả các phần tử của mảng trên a For k := 16 downto 0 do write(a[k]); b For k :=0 to 15 do write(a[k]); c For k :=1 to 16 do write(a[k]); d For k :=0 downto 16 do write(a[k]); 12/ Để xóa đi kí tự đầu tiên của xâu kí tự S ta viết: a Delete (S,I,1); {I là biến có giá trị bất kì} b Delete(S,Length(S),1); c Delete(S,1,1); d Delete (S,1,i); {i là biến có giá trị bất kì} 13/ Cho khai báo Var hoten:String; Phát... xâu vừa nhập vào; d Cho biết độ dài của xâu vừa nhập vào; TRƯỜNG THPT BÌNH SƠN TỔ: TIN HỌC 15 PHÚT ĐỀ KIỂM TRA – NĂM HỌC 2010 - 2011 MÔN: TIN HỌC – THỜI GIAN: HỌ VÀ TÊN: LỚP: 11 MÃ ĐỀ: 777 PHẦN TRẢ LỜI: Chọn một câu đúng nhất (tô hoặc đánh dấu X vào ô tương ứng) Câu A B C D 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 1/ Cho xâu A:='Lap trinh Pascal' Nếu sử dụng hàm b:= pos(‘Pascal’, A); Kết quả in ra giá... Max:=A[1,1]; i:=1; For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j]; d Max:=A[1,1]; For i:=1 to 2 do For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j]; TRƯỜNG THPT BÌNH SƠN TỔ: TIN HỌC 15 PHÚT ĐỀ KIỂM TRA – NĂM HỌC 2010 - 2011 MÔN: TIN HỌC – THỜI GIAN: HỌ VÀ TÊN: LỚP: 11 MÃ ĐỀ: 888 PHẦN TRẢ LỜI: Chọn một câu đúng nhất (tô hoặc đánh dấu X vào ô tương ứng) Câu A B C D 1 2 3 4 5 6 7 8 9 10 11 12 13...TRƯỜNG THPT BÌNH SƠN TỔ: TIN HỌC 15 PHÚT ĐỀ KIỂM TRA – NĂM HỌC 2010 - 2011 MÔN: TIN HỌC – THỜI GIAN: HỌ VÀ TÊN: LỚP: 11 MÃ ĐỀ: 666 PHẦN TRẢ LỜI: Chọn một câu đúng nhất (tô hoặc đánh dấu X vào ô tương ứng) Câu A B C D 1 2 3 4 5 6 7 8 9 10 11 12 13... 14/ Cho xâu S:='Tuoi hoc tro' thủ tục Delete(S, 1, Length(S)); kết quả ta được xâu? a 'Tuoi' b 'hoc' c Xâu rỗng; d 'hoc tro' 15/ Xâu kí tự không có kí tự nào cả gọi là: a Xâu trắng b Không phải là xâu kí tự c Xâu rỗng d Xâu không ¤ Đáp án của đề thi: 111 1[ 1]d 2[ 1]a 3[ 1]c 9[ 1]a 10[ 1]b 11[ 1]c 4[ 1]b 12[ 1]d 5[ 1]c 13[ 1]d 6[ 1]d 14[ 1]b 7[ 1]d 15[ 1]d 8[ 1]a ¤ Đáp án của đề thi:... 12[ 1]b 5[ 1]c 13[ 1]c 6[ 1]b 14[ 1]c 7[ 1]c 15[ 1]b 8[ 1]b ¤ Đáp án của đề thi: 333 1[ 1]b 2[ 1]c 3[ 1]c 9[ 1]d 10[ 1]b 11[ 1]a 4[ 1]d 12[ 1]b 5[ 1]c 13[ 1]d 6[ 1]a 14[ 1]a 7[ 1]c 15[ 1]a 8[ 1]a ¤ Đáp án của đề thi: 444 1[ 1]c 2[ 1]b 3[ 1]b 9[ 1]c 10[ 1]a 11[ 1]a 4[ 1]d 12[ 1]b 5[ 1]a 13[ 1]c 6[ 1]a 14[ 1]b 7[ 1]b 15[ 1]b 8[ 1]d ¤ Đáp án của đề thi: 555 1[ 1]c ... 12[ 1]c 5[ 1]c 13[ 1]d 6[ 1]d 14[ 1]b 7[ 1]b 15[ 1]a 8[ 1]a ¤ Đáp án của đề thi: 666 1[ 1]d 2[ 1]a 3[ 1]d 9[ 1]d 10[ 1]c 11[ 1]c 4[ 1]b 12[ 1]d 5[ 1]a 13[ 1]a 6[ 1]c 14[ 1]b 7[ 1]b 15[ 1]b 8[ 1]d ¤ Đáp án của đề thi: 777 1[ 1]d 2[ 1]b 3[ 1]d 9[ 1]a 10[ 1]b 11[ 1]a 4[ 1]b 12[ 1]a 5[ 1]a 13[ 1]b 6[ 1]c 14[ 1]b 7[ 1]d 15[ 1]d 8[ 1]c ¤ Đáp án của đề thi: 888 1[ 1]c ... trên a For k := 16 downto 0 do write(a[k]); b For k :=0 downto 16 do write(a[k]); c For k :=0 to 15 do write(a[k]); d For k :=1 to 16 do write(a[k]); 3/ Cho xâu A:='Lap trinh Pascal' Nếu sử dụng hàm b:= pos(‘Pascal’, A); Kết quả in ra giá trị của b là: a 10 b 6 c 5 d 11 4/ Cho xâu S:='Tuoi hoc tro' thủ tục Delete(S, 1, Length(S)); kết quả ta được xâu? a 'Tuoi' b Xâu rỗng; c 'hoc tro' d 'hoc' 5/ Cho khai . là 0; 15/ Để xóa đi kí tự đầu tiên của xâu kí tự S ta viết: a Delete (S,I,1); {I là biến có giá trị bất kì} b Delete (S,1,i); {i là biến có giá trị bất kì} c Delete(S,Length(S),1); d Delete(S,1,1); TRƯỜNG. viết: a Delete(S,Length(S),1); b Delete (S,1,i); {i là biến có giá trị bất kì} c Delete(S,1,1); d Delete (S,I,1); {I là biến có giá trị bất kì} 6/ Cho xâu S:='Tuoi hoc tro' thủ tục Delete(S,. của xâu kí tự S ta viết: a Delete(S,Length(S),1); b Delete(S,1,1); c Delete (S,I,1); {I là biến có giá trị bất kì} d Delete (S,1,i); {i là biến có giá trị bất kì} 15/ Câu lệnh sau làm việc gì? For