SỞ GIÁO DỤC VÀ ĐÀO TẠO TỈNH PHÚ YÊN ĐỀ KIỂM TRA HỌC KỲ II LỚP 11 TRƯỜNG THPT PHAN BỘI CHÂU NĂM HỌC 2017 - 2018 MÔN TIN HOC (Chương trình chuẩn) Thời gian làm bài: 45 phút (Học sinh khơng sử dụng tài liệu) Họ, tên thí sinh: Lớp: ĐỀ A – TRẮC NGHIỆM (Mỗi câu 0.5 điểm) PHẦN Câu 1: Dữ liệu kiểu tệp: A bị ất tắt áy B không bị ất tắt áy h ặc ất điện C bị ất hết tắt điện đột ngột D Tất s i Câu 2: Cho chương trình: VAR a : integer; PROCEDURE nhap(var x : integer); Begin x:=1; End; BEGIN a:=2; nhap(sqr(a)); END Sau thực thi chương trình, a nhận giá trị: A B Lỗi c pháp C D Câu 3: Cho chương trình: Var a:integer; Procedure nhap(x:integer); begin x:=1; end; begin a:=2; nhap(a); end Sau thực thi chương trình, a nhận giá trị: A Lỗi c pháp B C D Câu 4: Cho chương trình: Var a:array[1 10]of byte; n:byte; Procedure nhap(x:array[1 10]of byte; y:byte); begin y:=3; x[1]:=1; x[2]:=2; x[3]:=3; end; Begin n:=0; nhap(a,n); End Sau thực thi chương trình, n=? A B C D Lỗi c phá Câu 5: Cho chương trình: Var a:integer; Procedure nhap(a:integer); begin a:=1; end; begin a:=7; nhap(a); end Sau thực thi chương trình, a nhận giá trị: A B Lỗi cú pháp C D Câu 6: Function từ khóa dùng để khai báo cho: A Xâu B Mảng C Hàm D Thủ tục Câu 7: Trong NNLT Pascal, cặp từ khóa mở đầu kết thúc chương trình là: A Begin End B Begen End; C Begin; End; D Begin End; Câu 8: Cho chương trình: VAR a,b,c : integer; Function Tinh(var x,y:integer;z:integer):integer; Begin x:=c+a+b; z:=x+y; Tinh:=z; End; BEGIN a:=1;b:=2;c:=3; c:=tinh(b,c,a); END Sau thực thi chương trình, c=? A B C Lỗi c pháp D Câu 9: Để đọc liệu từ tệp văn bản, ta sử dụng thủ tục: A re d(,); B re d(,); C re (,); D re (,); Câu 10: Chương trình sau thực cơng việc gì: Function M(a,b:real):real; Begin If (a>b) then M:=a else M:=b; End; A Tì giá trị ớn tr ng h i số thực , b B Tì giá trị nhỏ tr ng h i số nguyên , b C Tì giá trị ớn tr ng h i số nguyên , b D Tì giá trị nhỏ tr ng h i số thực , b PHẦN Cho chương trình VAR a,b,c : integer; FUNCTION bai1(y : integer):integer; Var z : integer; Begin z := abs(y); bai1:=z; End; BEGIN a := -1; b := 2; c:=bai1(a); write(c)//(1) c:=bai1(b); write(c)//(2) END Câu 11: z gọi là: A Th số thực B Biến t n cục Câu 12: c gọi là: A Biến cục B Th số thực Câu 13: Sau thực (2), hình hiển thị: A 12 B Khơng hi n thị Câu 14: Sau thực (1), hình hiển thị: A B -1 Câu 15: y gọi là: A Biến t n cục B Th số hình thức Câu 16: b gọi là: A Th số cục B Th số thực C Biến cục D Th số hình thức C Biến t n cục D Th số hình thức C D C D Khơng hi n thị C Th số cục D Th số thực C Th số t n cục D Th số hình thức B – TỰ LUẬN (2 điểm) H n thiện chương trình tính tích h i số thực ,b v ưu kết v ……………… Begin a:=1; b:=1; Tich:=a*b; …………… End - - HẾT tệp „tu u n ut‟ ĐÁP ÁN, HƯỚNG DẪN CHẤM VÀ BIỂU ĐIỂM ĐÁP ÁN VÀ HƯỚNG DẪN CHẤM I Phần trắc nghiệm (8 điểm) Câu Câu Câu Câu Câu Câu B B D D A C Câu Câu 10 Câu11 Câu 12 Câu 13 Câu 14 A A C C A C II Phần tự luận (2 điểm) BIỂU ĐIỂM Câu D Câu 15 B Câu D Câu 16 B Var a,b,tich:real; f:text; Begin a:=1; b:=1; Tich:=a*b; assign(f,’tuluan.out’); rewrite(f); write(f,tich); close(f); End Ghi chú: Học sinh có cách giải đ ng khác với đáp án, giá viên điều chỉnh bi u điế Mỗi đáp án đ ng 0,5 - Khai báo đ ng (1 ) - đ ng c u ệnh ssign (0,25 ) - đ ng c u ệnh rewrite (0.25 ) - đ ng c u ệnh write (0.25 ) - đ ng c u ệnh c se (0.25 ) ... Ghi chú: Học sinh có cách giải đ ng khác với đáp án, giá viên điều chỉnh bi u điế Mỗi đáp án đ ng 0,5 - Khai báo đ ng (1 ) - đ ng c u ệnh ssign (0 ,25 ) - đ ng c u ệnh rewrite (0 .25 ) - đ ng c... C Biến t n cục D Th số hình thức C D C D Không hi n thị C Th số cục D Th số thực C Th số t n cục D Th số hình thức B – TỰ LUẬN (2 điểm) H n thi? ??n chương trình tính tích h i số thực ,b v ưu kết... - - HẾT tệp „tu u n ut‟ ĐÁP ÁN, HƯỚNG DẪN CHẤM VÀ BIỂU ĐIỂM ĐÁP ÁN VÀ HƯỚNG DẪN CHẤM I Phần trắc nghiệm (8 điểm) Câu Câu Câu Câu Câu Câu B B D D A C Câu Câu 10 Câu11 Câu 12 Câu