TRƯỜNG PT DTNT TỈNH LÂM ĐỒNG TRƯỜNG THPT YERSIN HK2 NĂM HỌC 2012 2013 Họ và tên KIỂM TRA 15 PHÚT MÔN TIN HỌC LỚP 11 Lớp ĐIỂM BẢNG TRẢ LỜI TRẮC NGHIỆM Câu 1 2 3 4 5 6 7 8 9 10 Trả lời Câu 11 12 13 14 1[.]
TRƯỜNG THPT YERSIN HK2 - NĂM HỌC 2012-2013 KIỂM TRA 15 PHÚT MÔN TIN HỌC LỚP 11 Họ tên: ĐIỂM Lớp: Đề BẢNG TRẢ LỜI TRẮC NGHIỆM Câu Trả lời Câu Trả lời 10 11 12 13 14 15 16 17 18 19 20 CÂU HỎI TRẮC NGHIỆM Câu 1: Chọn nhận định KHÔNG ĐÚNG kiểu xâu: a xâu liệu dạng phi số, xâu dãy kí tự mã ASCII b kí tự xâu gọi phần tử xâu c độ dài xâu số kí tự xâu, xâu có tồn kí tự ‘ ’ xâu rỗng d xem xâu mảng chiều kiểu kí tự Câu 2: Khai báo biến xâu theo cách cú pháp: a Var : String[độ dài]; c Type File String:[80] b Var Ten = Array [1 255] of char; d Var =String; Câu 3: Xâu lớn xâu ‘Dalat’: a ‘ABBA’ b ‘Boolean’ c ‘Pascal’ d ‘Computer’ Câu 4: Cho xâu: A := ‘ Tin hoc ’; B := ‘B’; Xâu C xâu ghép xâu A với xâu B: C := A+B; Vậy xâu C là: a ‘ Tin hoc B’ b ‘ Con meo ’ c ‘B Tin hoc ’ d ‘TinhocB’ Câu 5: Cho xâu: S := ‘Truong THPT Yersin’ Hãy cho biết kết biến K trong lệnh gán sau: K := Pos(‘PT’, S) ; a 10 b c d 11 Câu 6: Chức hàm COPY theo cú pháp: Copy(S, vt, n); a Xóa số ký tự từ vị trí định qua phải b Trả n ký tự chép xâu s từ vị trí vt qua phải c Tạo xâu gồm vt ký tự từ vị trí n chép từ xâu s d Ghép xâu thành xâu kể từ vị trí vt qua phải Câu 7: Biểu thức gọi hàm chuẩn kiểu xâu với xâu S=’FESTIVAL’ : S := Copy(S, 4, 4); Xâu S có giá trị là: a ‘FEST’ b ‘IVAL’ c ‘FESTIVAL’ d ‘TIVA’ Câu 8: Lệnh gọi thực thủ tục chuẩn Delete với xâu S:=’KARAOKE’ Delete(S, 4, 4); Xâu S có giá trị là: a ‘S’ b ‘KARA’ c ‘KAR’ d ‘AOKE’ Câu 9: Lệnh gọi thực thủ tục chuẩn INSERT với xâu S1:=’YERSIN’; S2 := ‘Truong THPT’: Insert(S1, S2, 7); Xâu S1 có giá trị là: a ‘Truong THPT YERSIN’ c ‘YERSIN’ b ‘Truong YERSIN THPT’ d ‘YERSIN Truong THPT’ Câu 10: Bộ lệnh sau biến đổi xâu HOTEN thành xâu có tất kí tự ghi chữ In hoa? a For i:=1 to length(hoten) c L:= Length(hoten); hoten[i]:=upcase(hoten[i]); For i:=1 to L b For i:=1 to length(hoten) Hoten:=Upcase(Hoten); hoten:=upcase(hoten); d hoten[1]:=upcase(hoten[1]); Câu 11 : Ghi giá trị của biến a vào tệp F, ta dùng lệnh: a Write(a); b Write(f, a); c Readln(a); Câu 12: Cú pháp lệnh đọc liệu từ tệp: a Readln(,); b Reset(); d Writeln(a, f); c Write(,); d Read(); Câu 13: Xét các câu lệnh sau: Assign(F ,'baocao.txt'); Rewrite(F); Writeln(F, 'So HS vang la: ',ss-hd); Nếu ss=28, hd=10 tệp baocao.txt có nội dung là: a So HS vang la: 10 b So HS vang la: 18 c So HS vang la: 28 d Thông báo lỗi Câu 14: Từ khóa khai báo biến kiểu tệp văn là: a TEXT b TEST d TECH c TXT Câu 15: Thủ tục gán tên tệp Assign(, ) quy định kiểu liệu tên tệp là: a Kiểu số nguyên b Kiểu số thực c Kiểu logic d Kiểu xâu Câu 16: Tên thủ tục mở tệp để đọc liệu là: a Reset b Rewrite c Write d Read Câu 17: Hãy điền cú pháp lệnh cịn thiếu để hồn thành sơ đồ viết chương trình ghi liệu vào tệp: Rewrite(); Write(,); Hay: Writeln(,); Close(); a Assign(,); c Assign(); b Assign(,); d Assign(); Câu 18: Để đọc liệu tệp D:\so.dat thì: a Tệp so.dat phải tồn thư mục D c Tệp so.dat khơng cần phải có ở đĩa D: b Tệp so.dat phải tồn thư mục gốc ổ đĩa D: d Phải xóa tệp so.dat thư mục gốc ổ đĩa D: Câu 19: Xét các câu lệnh sau: Assign(F ,'dulieu.txt'); Reset(F); readln(F, a, b); Nếu tệp dulieu.txt có số nguyên ghi cách một khoảng trắng thì biến b có giá trị là: a Không có giá trị b c d Câu 20: Cú pháp thủ tục mở tệp để ghi liệu là: a Reset(); b Rewrite(); c Write(); - Hết - d Read(); TRƯỜNG THPT YERSIN HK2 - NĂM HỌC 2012-2013 KIỂM TRA 15 PHÚT MÔN TIN HỌC LỚP 11 Họ tên: ĐIỂM Lớp: Đề BẢNG TRẢ LỜI TRẮC NGHIỆM Câu Trả lời Câu Trả lời 10 11 12 13 14 15 16 17 18 19 20 CÂU HỎI TRẮC NGHIỆM Câu 1: Biểu thức gọi hàm chuẩn kiểu xâu với xâu S=’FESTIVAL’ : S := Copy(S, 4, 4); Xâu S có giá trị là: a ‘FEST’ b ‘IVAL’ c ‘FESTIVAL’ d ‘TIVA’ Câu 2: Lệnh gọi thực thủ tục chuẩn Delete với xâu S:=’KARAOKE’ Delete(S, 4, 4); Xâu S có giá trị là: a ‘S’ b ‘KARA’ c ‘KAR’ d ‘AOKE’ Câu 3: Xâu lớn xâu ‘Dalat’: a ‘ABBA’ b ‘Boolean’ c ‘Pascal’ Câu 4: Chọn nhận định KHÔNG ĐÚNG kiểu xâu: a xâu liệu dạng phi số, xâu dãy kí tự mã ASCII b kí tự xâu gọi phần tử xâu c độ dài xâu số kí tự xâu, xâu có tồn kí tự ‘ ’ xâu rỗng d xem xâu mảng chiều kiểu kí tự d ‘Computer’ Câu 5: Cho xâu: A := ‘ Tin hoc ’; B := ‘B’; Xâu C xâu ghép xâu A với xâu B: C := A+B; Vậy xâu C là: a ‘ Tin hoc B’ b ‘ Con meo ’ c ‘B Tin hoc ’ d ‘TinhocB’ Câu 6: Khai báo biến xâu theo cách cú pháp: a Var : String[độ dài]; c Type File String:[80] b Var Ten = Array [1 255] of char; d Var =String; Câu 7: Cho xâu: S := ‘Truong THPT Yersin’ Hãy cho biết kết biến K trong lệnh gán sau: K := Pos(‘PT’, S) ; a b 10 c d 11 Câu 8: Lệnh gọi thực thủ tục chuẩn INSERT với xâu S1:=’YERSIN’; S2 := ‘Truong THPT’: Insert(S1, S2, 7); Xâu S1 có giá trị là: a ‘Truong THPT YERSIN’ c ‘YERSIN’ b ‘Truong YERSIN THPT’ d ‘YERSIN Truong THPT’ Câu 9: Chức hàm COPY theo cú pháp: Copy(S, vt, n); a Xóa số ký tự từ vị trí định qua phải b Trả n ký tự chép xâu s từ vị trí vt qua phải c Tạo xâu gồm vt ký tự từ vị trí n chép từ xâu s d Ghép xâu thành xâu kể từ vị trí vt qua phải Câu 10: Bộ lệnh sau biến đổi xâu HOTEN thành xâucó tất kí tự ghi chữ In hoa? a For i:=1 to length(hoten) c L:= Length(hoten); hoten[i]:=upcase(hoten[i]); For i:=1 to L b For i:=1 to length(hoten) Hoten:=Upcase(Hoten); hoten:=upcase(hoten); d hoten[1]:=upcase(hoten[1]); Câu 11: Từ khóa khai báo biến kiểu tệp văn là: a TEXT b TEST c TXT d TECH Câu 12: Thủ tục gán tên tệp Assign(, ) quy định kiểu liệu tên tệp là: a Kiểu số nguyên b Kiểu số thực c Kiểu logic d Kiểu xâu Câu 13: Tên thủ tục mở tệp để ghi liệu là: a Reset b Rewrite c Write Câu 14: Cú pháp lệnh đọc liệu từ tệp: a Readln(,); b Reset(); c Write(,); d Read(); Câu 15 : Ghi giá trị của biến a vào tệp F, ta dùng lệnh: a Write(a); b Write(f, a); c Readln(a); Câu 16: Để đọc liệu tệp D:\so.dat thì: a Tệp so.dat phải tồn thư mục D c Tệp so.dat khơng cần phải có ở đĩa D: d Read d Writeln(a, f); b Tệp so.dat phải tồn thư mục gớc ổ đĩa D: d Phải xóa tệp so.dat thư mục gốc ổ đĩa D: Câu 17: Xét các câu lệnh sau: Assign(F ,'baocao.txt'); Rewrite(F); Writeln(F, 'So HS vang la: ',ss-hd); Nếu ss=28, hd=10 tệp baocao.txt có nội dung là: a So HS vang la: 10 b So HS vang la: 18 c So HS vang la: 28 d Thông báo lỗi Câu 18: Hãy điền cú pháp lệnh cịn thiếu để hồn thành sơ đồ viết chương trình ghi liệu vào tệp: Rewrite(); Write(,); Hay: Writeln(,); Close(); a Assign(,); c Assign(); b Assign(,); d Assign(); Câu 19: Cú pháp thủ tục mở tệp để đọc liệu là: a Reset(); b Rewrite(); c Write(); d Read(); Câu 20: Xét các câu lệnh sau: Assign(F ,'dulieu.txt'); Reset(F); readln(F, a, b); Nếu tệp dulieu.txt có số nguyên ghi cách một khoảng trắng thì biến b có giá trị là: a Không có giá trị b c d - Hết - TRƯỜNG THPT YERSIN HK2 - NĂM HỌC 2012-2013 KIỂM TRA 15 PHÚT MÔN TIN HỌC LỚP 11 Họ tên: ĐIỂM Lớp: Đề BẢNG TRẢ LỜI TRẮC NGHIỆM Câu Trả lời Câu Trả lời 10 11 12 13 14 15 16 17 18 19 20 CÂU HỎI TRẮC NGHIỆM Câu 1: Xét các câu lệnh sau: Assign(F ,'dulieu.txt'); Reset(F); readln(F, a, b); Nếu tệp dulieu.txt có số nguyên ghi cách một khoảng trắng thì biến b có giá trị là: a Không có giá trị b c d Câu 2: Thủ tục gán tên tệp Assign(, ) quy định kiểu liệu tên tệp là: a Kiểu số nguyên b Kiểu xâu c Kiểu logic d Kiểu số thực Câu 3: Tên thủ tục mở tệp để ghi liệu là: a Rewrite b Write c Reset Câu 4: Cú pháp lệnh đọc liệu từ tệp: a Readln(); b Reset(); c Write(,); d Read(,); Câu 5 : Ghi giá trị của biến a vào tệp F, ta dùng lệnh: a Write(a); b Write(f, a); c Readln(f, a); Câu 6: Để đọc liệu tệp D:\so.dat thì: a Tệp so.dat phải tồn thư mục D c Tệp so.dat khơng cần phải có ở đĩa D: d Read d Writeln(a, f); b Tệp so.dat phải tồn thư mục gớc ổ đĩa D: d Phải xóa tệp so.dat thư mục gốc ổ đĩa D: Câu 7: Hãy điền cú pháp lệnh cịn thiếu để hồn thành sơ đồ viết chương trình ghi liệu vào tệp: Rewrite(); Write(,); Hay: Writeln(,); Close(); a Assign(,); c Assign(); b Assign(,); d Assign(); Câu 8: Xét các câu lệnh sau: Assign(F ,'baocao.txt'); Rewrite(F); Writeln(F, 'So HS vang la: ',ss-hd); Nếu ss=28, hd=10 tệp baocao.txt có nội dung là: a So HS vang la: 10 b So HS vang la: 18 c So HS vang la: 28 d Thông báo lỗi Câu 9: Từ khóa khai báo biến kiểu tệp văn là: a TXT b TEST c TEXT d TECH Câu 10: Cú pháp thủ tục mở tệp để đọc liệu là: a Reset(); b Rewrite(); c Write(); d Read(); Câu 11: Khai báo biến xâu theo cách cú pháp: a Var : String[độ dài]; c Type File String:[80] b Var Ten = Array [1 255] of char; d Var =String; Câu 12: Cho xâu: S := ‘Truong THPT Yersin’ Hãy cho biết kết biến K trong lệnh gán sau: K := Pos(‘PT’, S) ; a b 10 c d 11 Câu 13: Lệnh gọi thực thủ tục chuẩn INSERT với xâu S1:=’YERSIN’; S2 := ‘Truong THPT’: Insert(S1, S2, 7); Xâu S1 có giá trị là: a ‘Truong THPT YERSIN’ c ‘YERSIN’ b ‘Truong YERSIN THPT’ d ‘YERSIN Truong THPT’ Câu 14: Chức hàm COPY theo cú pháp: Copy(S, vt, n); a Xóa số ký tự từ vị trí định qua phải b Trả n ký tự chép xâu s từ vị trí vt qua phải c Tạo xâu gồm vt ký tự từ vị trí n chép từ xâu s d Ghép xâu thành xâu kể từ vị trí vt qua phải Câu 15: Bộ lệnh sau biến đổi xâu HOTEN thành xâucó tất kí tự ghi chữ In hoa? a For i:=1 to length(hoten) c L := Length(hoten); hoten[i]:=upcase(hoten[i]); For i:=1 to L b For i:=1 to length(hoten) Hoten:=Upcase(Hoten); hoten:=upcase(hoten); d hoten[1]:=upcase(hoten[1]); Câu 16: Biểu thức gọi hàm chuẩn kiểu xâu với xâu S=’FESTIVAL’ : S := Copy(S, 4, 4); Xâu S có giá trị là: a ‘FEST’ b ‘FESTIVAL’ c ‘IVAL’ d ‘TIVA’ Câu 17: Lệnh gọi thực thủ tục chuẩn Delete với xâu S:=’KARAOKE’ Delete(S, 4, 4); Xâu S có giá trị là: a ‘S’ b ‘KARA’ c ‘KAR’ d ‘AOKE’ Câu 18: Xâu lớn xâu ‘Dalat’: a ‘ABBA’ b ‘Boolean’ d ‘Pascal’ c ‘Computer’ Câu 19: Chọn nhận định KHÔNG ĐÚNG kiểu xâu: a xâu liệu dạng phi số, xâu dãy kí tự mã ASCII b kí tự xâu gọi phần tử xâu c độ dài xâu số kí tự xâu, xâu có tồn kí tự ‘ ’ xâu rỗng d xem xâu mảng chiều kiểu kí tự Câu 20: Cho xâu: A := ‘ Tin hoc ’; B := ‘B’; Xâu C xâu ghép xâu A với xâu B: C := A+B; Vậy xâu C là: a ‘TinhocB’ b ‘ Con meo ’ c ‘B Tin hoc ’ d ‘ Tin hoc B’ - Hết -