TRƯỜNG THPT IASAO KIỂM TRA 15 PHÚT MÔN TIN HỌC LỚP 11B1 TỔ TOÁN TIN LẦN 1 HỌC KỲ 2 NĂM HỌC 2007 2008 Họ và tên I Phần trắc nghiệm đơn tuyển (5 0 điểm) Câu 1 Trong ngôn ngữ lập trình Pascal, cho đoạn c[.]
TRƯỜNG THPT IASAO TỔ TOÁN TIN KIỂM TRA 15 PHÚT - MÔN TIN HỌC - LỚP 11B1 LẦN - HỌC KỲ - NĂM HỌC 2007 - 2008 Họ tên: I Phần trắc nghiệm đơn tuyển (5.0 điểm): Câu 1: Trong ngơn ngữ lập trình Pascal, cho đoạn chương trình sau: Var m: array[2 11] of Integer; i:byte; begin for i:=2 to 11 if i mod = then m[i]:=i*i else m[i]:=i+i; End Sau thực xong chương trình trên, giá trị phần tử thứ mảng m là: A 10 B 14 C 36 D 64 Câu 2: Trong ngơn ngữ lập trình Pascal, Cho đoạn khai báo sau: Const columns = 3; rows = 4; Var table: array[0 columns+1, rows] of integer; Số phần tử mảng table là: A 20 B 25 C 12 D 16 Câu 3: Trong ngôn ngữ lập trình Pascal, Cho đoạn khai báo sau: Var a, b: array[1 100] of Char; c: array[1 50] of Char; Trong phần thân chương trình có đoạn khai báo câu lệnh gán sau đúng? A c:=a; B b:=c; C a:=b; D a:=c; Câu 4: Trong ngơn ngữ lập trình Pascal, mặt cú pháp câu lệnh sau đúng? A Type mang2c = array[1 100, 100] of char; B Type mang2c = array[1 100][1 100] of char; C Type mang = array[1-100, 1-100] of char; D Type 2chieu = array[1 100, 100] of char; Câu 5: Trong ngôn ngữ lập trình Pascal, Giả sử khai báo biến mảng biến khác, đoạn chương trình sau làm (với a mảng gồm n phần tử)? For i:=1 to n Begin Write('a[',i,']='); Readln(a[i]); End; A Hiện lên hình giá trị phần tử mảng A; B Đếm số phần tử mảng A; C Hiện lên hình giá trị a[i]; D Nhập giá trị cho phần tử mảng A; II Phần đọc hiểu (5.0 điểm): Trong ngơn ngữ lập trình Pascal, cho đoạn chương trình sau: Var S1, S2, S3: String; L, K, Kt, i: byte; Begin S1:=‘Thang Ba Tay Nguyen’; S2:=‘PleiKu’ L:=lenght(S1)+ length(s1); Insert(S2, S1,7); K:= Pos(‘b’,S1); kt:=length(S1); For i:=1 to length(S2) S3[i]:=Upcase(S2[i]); Readln; End Em xác định giá trị biến S1, S3, L, K, Kt sau thực xong đoạn chương trình Biến Giá trị S1 S3 L K Kt TRƯỜNG THPT IASAO TỔ TỐN TIN KIỂM TRA 15 PHÚT - MƠN TIN HỌC - LỚP 11B1 LẦN - HỌC KỲ - NĂM HỌC 2007 - 2008 Họ tên: I Phần trắc nghiệm đơn tuyển (5.0 điểm): Câu 1: Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình sau: Var m: array[2 11] of Integer; i:byte; begin for i:=2 to 11 if i mod = then m[i]:=i*i else m[i]:=i+i; End Sau thực xong chương trình trên, giá trị phần tử thứ mảng m là: A 64 B 36 C 10 D 14 Câu 2: Trong ngơn ngữ lập trình Pascal, Giả sử khai báo biến mảng biến khác, đoạn chương trình sau làm (với a mảng gồm n phần tử)? For i:=1 to n Begin Write('a[',i,']='); Readln(a[i]); End; A Hiện lên hình giá trị phần tử mảng A; B Đếm số phần tử mảng A; C Nhập giá trị cho phần tử mảng A; D Hiện lên hình giá trị a[i]; Câu 3: Trong ngơn ngữ lập trình Pascal, Cho đoạn khai báo sau: Const columns = 3; rows = 4; Var table: array[0 columns+1, rows] of integer; Số phần tử mảng table là: A 25 B 20 C 16 D 12 Câu 4: Trong ngơn ngữ lập trình Pascal, mặt cú pháp câu lệnh sau đúng? A Type mang = array[1-100, 1-100] of char; B Type mang2c = array[1 100, 100] of char; C Type mang2c = array[1 100][1 100] of char; D Type 2chieu = array[1 100, 100] of char; Câu 5: Trong ngôn ngữ lập trình Pascal, Cho đoạn khai báo sau: Var a, b: array[1 100] of Char; c: array[1 50] of Char; Trong phần thân chương trình có đoạn khai báo câu lệnh gán sau đúng? A a:=b; B c:=a; C a:=c; D b:=c; II Phần đọc hiểu (5.0 điểm): Trong ngơn ngữ lập trình Pascal, cho đoạn chương trình sau: Var S1, S2, S3: String; L, K, Kt, i: byte; Begin S1:=‘Tinh Gia Lai’; S2:=‘PleiKu’ L:=lenght(S1)+ length(s1); Insert(S2, S1,7); K:= Pos(‘b’,S1); kt:=length(S1); For i:=1 to length(S2) S3[i]:=Upcase(S2[i]); Readln; End Em xác định giá trị biến S1, S3, L, K, Kt sau thực xong đoạn chương trình Biến Giá trị S1 S3 L K Kt TRƯỜNG THPT IASAO TỔ TOÁN TIN KIỂM TRA 15 PHÚT - MÔN TIN HỌC - LỚP 11B1 LẦN - HỌC KỲ - NĂM HỌC 2007 - 2008 Họ tên: I Phần trắc nghiệm đơn tuyển (5.0 điểm): Câu 1: Trong ngơn ngữ lập trình Pascal, Cho đoạn khai báo sau: Const columns = 3; rows = 4; Var table: array[0 columns+1, rows] of integer; Số phần tử mảng table là: A 25 B 16 C 12 D 20 Câu 2: Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình sau: Var m: array[2 11] of Integer; i:byte; begin for i:=2 to 11 if i mod = then m[i]:=i*i else m[i]:=i+i; End Sau thực xong chương trình trên, giá trị phần tử thứ mảng m là: A 14 B 10 C 36 D 64 Câu 3: Trong ngơn ngữ lập trình Pascal, Giả sử khai báo biến mảng biến khác, đoạn chương trình sau làm (với a mảng gồm n phần tử)? For i:=1 to n Begin Write('a[',i,']='); Readln(a[i]); End; A Đếm số phần tử mảng A; B Hiện lên hình giá trị phần tử mảng A; C Hiện lên hình giá trị a[i]; D Nhập giá trị cho phần tử mảng A; Câu 4: Trong ngôn ngữ lập trình Pascal, Cho đoạn khai báo sau: Var a, b: array[1 100] of Char; c: array[1 50] of Char; Trong phần thân chương trình có đoạn khai báo câu lệnh gán sau đúng? A a:=b; B a:=c; C b:=c; D c:=a; Câu 5: Trong ngơn ngữ lập trình Pascal, mặt cú pháp câu lệnh sau đúng? A Type mang = array[1-100, 1-100] of char; B Type 2chieu = array[1 100, 100] of char; C Type mang2c = array[1 100][1 100] of char; D Type mang2c = array[1 100, 100] of char; II Phần đọc hiểu (5.0 điểm): Trong ngơn ngữ lập trình Pascal, cho đoạn chương trình sau: Var S1, S2, S3: String; L, K, Kt, i: byte; Begin S1:=‘Doi mat PleiKu’; S2:=‘PleiKu’ L:=lenght(S1)+ length(s1); Insert(S2, S1,7); K:= Pos(‘b’,S1); kt:=length(S1); For i:=1 to length(S2) S3[i]:=Upcase(S2[i]); Readln; End Em xác định giá trị biến S1, S3, L, K, Kt sau thực xong đoạn chương trình Biến Giá trị S1 S3 L K Kt TRƯỜNG THPT IASAO TỔ TOÁN TIN KIỂM TRA 15 PHÚT - MÔN TIN HỌC - LỚP 11B1 LẦN - HỌC KỲ - NĂM HỌC 2007 - 2008 Họ tên: I Phần trắc nghiệm đơn tuyển (5.0 điểm): Câu 1: Trong ngơn ngữ lập trình Pascal, cho đoạn chương trình sau: Var m: array[2 11] of Integer; i:byte; begin for i:=2 to 11 if i mod = then m[i]:=i*i else m[i]:=i+i; End Sau thực xong chương trình trên, giá trị phần tử thứ mảng m là: A 10 B 36 C 14 D 64 Câu 2: Trong ngôn ngữ lập trình Pascal, Cho đoạn khai báo sau: Var a, b: array[1 100] of Char; c: array[1 50] of Char; Trong phần thân chương trình có đoạn khai báo câu lệnh gán sau đúng? A b:=c; B a:=c; C a:=b; D c:=a; Câu 3: Trong ngơn ngữ lập trình Pascal, Cho đoạn khai báo sau: Const columns = 3; rows = 4; Var table: array[0 columns+1, rows] of integer; Số phần tử mảng table là: A 16 B 20 C 12 D 25 Câu 4: Trong ngơn ngữ lập trình Pascal, Giả sử khai báo biến mảng biến khác, đoạn chương trình sau làm (với a mảng gồm n phần tử)? For i:=1 to n Begin Write('a[',i,']='); Readln(a[i]); End; A Nhập giá trị cho phần tử mảng A; B Hiện lên hình giá trị phần tử mảng A; C Đếm số phần tử mảng A; D Hiện lên hình giá trị a[i]; Câu 5: Trong ngơn ngữ lập trình Pascal, mặt cú pháp câu lệnh sau đúng? A Type mang2c = array[1 100, 100] of char; B Type mang = array[1-100, 1-100] of char; C Type mang2c = array[1 100][1 100] of char; D Type 2chieu = array[1 100, 100] of char; II Phần đọc hiểu (5.0 điểm): Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình sau: Var S1, S2, S3: String; L, K, Kt, i: byte; Begin S1:=‘Giai phong Gia Lai’; S2:=‘PleiKu’ L:=lenght(S1)+ length(s1); Insert(S2, S1,7); K:= Pos(‘b’,S1); kt:=length(S1); For i:=1 to length(S2) S3[i]:=Upcase(S2[i]); Readln; End Em xác định giá trị biến S1, S3, L, K, Kt sau thực xong đoạn chương trình Biến Giá trị S1 S3 L K Kt TRƯỜNG THPT IASAO TỔ TOÁN TIN KIỂM TRA 15 PHÚT - MÔN TIN HỌC - LỚP 11B1 LẦN - HỌC KỲ - NĂM HỌC 2007 - 2008 Họ tên: I Phần trắc nghiệm đơn tuyển (5.0 điểm): Câu 1: Trong ngơn ngữ lập trình Pascal, Giả sử khai báo biến mảng biến khác, đoạn chương trình sau làm (với a mảng gồm n phần tử)? For i:=1 to n Begin Write('a[',i,']='); Readln(a[i]); End; A Hiện lên hình giá trị a[i]; B Đếm số phần tử mảng A; C Nhập giá trị cho phần tử mảng A; D Hiện lên hình giá trị phần tử mảng A; Câu 2: Trong ngơn ngữ lập trình Pascal, Cho đoạn khai báo sau: Var a, b: array[1 100] of Char; c: array[1 50] of Char; Trong phần thân chương trình có đoạn khai báo câu lệnh gán sau đúng? A a:=c; B a:=b; C b:=c; D c:=a; Câu 3: Trong ngôn ngữ lập trình Pascal, Cho đoạn khai báo sau: Const columns = 3; rows = 4; Var table: array[0 columns+1, rows] of integer; Số phần tử mảng table là: A 16 B 12 C 25 D 20 Câu 4: Trong ngơn ngữ lập trình Pascal, cho đoạn chương trình sau: Var m: array[2 11] of Integer; i:byte; begin for i:=2 to 11 if i mod = then m[i]:=i*i else m[i]:=i+i; End Sau thực xong chương trình trên, giá trị phần tử thứ mảng m là: A 36 B 14 C 64 D 10 Câu 5: Trong ngơn ngữ lập trình Pascal, mặt cú pháp câu lệnh sau đúng? A Type mang2c = array[1 100, 100] of char; B Type 2chieu = array[1 100, 100] of char; C Type mang = array[1-100, 1-100] of char; D Type mang2c = array[1 100][1 100] of char; II Phần đọc hiểu (5.0 điểm): Trong ngơn ngữ lập trình Pascal, cho đoạn chương trình sau: Var S1, S2, S3: String; L, K, Kt, i: byte; Begin S1:=‘Trung tam pho’; S2:=‘PleiKu’ L:=lenght(S1)+ length(s1); Insert(S2, S1,7); K:= Pos(‘b’,S1); kt:=length(S1); For i:=1 to length(S2) S3[i]:=Upcase(S2[i]); Readln; End Em xác định giá trị biến S1, S3, L, K, Kt sau thực xong đoạn chương trình Biến Giá trị S1 S3 L K Kt TRƯỜNG THPT IASAO TỔ TỐN TIN KIỂM TRA 15 PHÚT - MƠN TIN HỌC - LỚP 11B1 LẦN - HỌC KỲ - NĂM HỌC 2007 - 2008 Họ tên: I Phần trắc nghiệm đơn tuyển (5.0 điểm): Câu 1: Trong ngôn ngữ lập trình Pascal, Cho đoạn khai báo sau: Var a, b: array[1 100] of Char; c: array[1 50] of Char; Trong phần thân chương trình có đoạn khai báo câu lệnh gán sau đúng? A b:=c; B a:=c; C c:=a; D a:=b; Câu 2: Trong ngơn ngữ lập trình Pascal, cho đoạn chương trình sau: Var m: array[2 11] of Integer; i:byte; begin for i:=2 to 11 if i mod = then m[i]:=i*i else m[i]:=i+i; End Sau thực xong chương trình trên, giá trị phần tử thứ mảng m là: A 14 B 64 C 10 D 36 Câu 3: Trong ngơn ngữ lập trình Pascal, mặt cú pháp câu lệnh sau đúng? A Type mang = array[1-100, 1-100] of char; B Type 2chieu = array[1 100, 100] of char; C Type mang2c = array[1 100, 100] of char; D Type mang2c = array[1 100][1 100] of char; Câu 4: Trong ngơn ngữ lập trình Pascal, Cho đoạn khai báo sau: Const columns = 3; rows = 4; Var table: array[0 columns+1, rows] of integer; Số phần tử mảng table là: A 25 B 16 C 12 D 20 Câu 5: Trong ngơn ngữ lập trình Pascal, Giả sử khai báo biến mảng biến khác, đoạn chương trình sau làm (với a mảng gồm n phần tử)? For i:=1 to n Begin Write('a[',i,']='); Readln(a[i]); End; A Hiện lên hình giá trị a[i]; B Đếm số phần tử mảng A; C Hiện lên hình giá trị phần tử mảng A; D Nhập giá trị cho phần tử mảng A; II Phần đọc hiểu (5.0 điểm): Trong ngơn ngữ lập trình Pascal, cho đoạn chương trình sau: Var S1, S2, S3: String; L, K, Kt, i: byte; Begin S1:=‘Nga tu Bien Ho’; S2:=‘PleiKu’ L:=lenght(S1)+ length(s1); Insert(S2, S1,7); K:= Pos(‘b’,S1); kt:=length(S1); For i:=1 to length(S2) S3[i]:=Upcase(S2[i]); Readln; End Em xác định giá trị biến S1, S3, L, K, Kt sau thực xong đoạn chương trình Biến Giá trị S1 S3 L K Kt ...TRƯỜNG THPT IASAO TỔ TOÁN TIN KIỂM TRA 15 PHÚT - MÔN TIN HỌC - LỚP 11 B1 LẦN - HỌC KỲ - NĂM HỌC 20 07 - 20 08 Họ tên: I Phần trắc nghiệm đơn tuyển (5.0 điểm): Câu 1: Trong ngơn ngữ lập trình... đúng? A Type mang = array [ 1- 100, 1- 100] of char; B Type 2chieu = array [1 100, 10 0] of char; C Type mang2c = array [1 100] [1 100] of char; D Type mang2c = array [1 100, 10 0] of char; II Phần đọc... sau đúng? A Type mang2c = array [1 100, 10 0] of char; B Type mang = array [ 1- 100, 1- 100] of char; C Type mang2c = array [1 100] [1 100] of char; D Type 2chieu = array [1 100, 10 0] of char; II Phần