SỞ GD VÀ ĐT LONG AN TRƯỜNG THCS VÀ THPT MỸ BÌNH ĐỀ KIỂM TRA THỰC HÀNH 45 PHÚT LẦN HỌC KỲ II NĂM HỌC 2015 – 2016 MÔN: Tin học KHỐI: 11 CHƯƠNG TRÌNH: Cơ HỆ: THPT Thời gian làm bài: 45 phút ( Không kể thời gian phát đề.) Trường THCS & THPT Mỹ Bình Điểm nhận xét Lớp: 11A…… Họ tên: ………………………………… ……………………………………………… Năm học: 2015 - 2016 ĐỀ Câu 1(3 đ):Cho chương trình sau: Program Tham_so; Var a, b: integer; Procedure Nhan_biet_ts(x: integer; var y: integer); begin x:=x-1; y:=y-1; writeln(x: 6; y: 6); end; Begin a:=1; b:=4; ………………?………………… writeln(a: 6; b: 6); End 1) Câu lệnh điền vào (…? ) để gọi chương trình Nhan_biet_ts cho biến a b là: A Nhan_biet_ts; C Nhanbietts(a,b); B Nhan_biet_ts(a,b); D Writeln(Nhan_biet_ts(a,b)); 2) Các biến a, b : A Tham số hình thức B Tham số thực C Biến cục D Biến toàn cục 1.3) Tham số giá trị chương trình là: A a,b B x, y C x D y Câu 2(1 đ): Trong đoạn chương trình sau, đoạn thủ tục để in dòng chữ “Welcome to Pascal” ? C Procedure Welcome A Procedure Welcome to Pascal; Begin Begin Writeln(“Welcome to Pascal”); Writeln(’Welcome’); End; End; D Procedure Welcome; B Procedure Welcome; Begin Begin Welcome to Pascal; Writeln(’Welcome to Pascal’); End; End; Câu 3(1 đ): Muốn khai báo x, y tham số giá trị z tham số biến (x, y, z thuộc kiểu Byte) thủ tục “Max” khai báo sau đúng? A Procedure Max(x, y: Byte; var z: Byte); C Procedure Max(x: Byte; Var y, z: Byte); B Procedure Max(x: Byte; Var y: Byte; var z: Byte); D function Max(x, y: Byte; var x: Byte); Câu 4(5 đ): Hãy sửa lỗi chương trình hồn chỉnh sau chạy chương trình phần mềm free pascal: Pgram cau_4; Var a, b, s : Real Function DTChuNhat(a, b:real) Real; Begin DTChu := a*b; ThuVienDeThi.com End; Begin Write( ‘nhap chieu day va chieu rong cua hinh chu nhat); Reln(a, b); s := DTChuNhat(a b); Writeln( ‘ Dien tich hinh chu nhat la = ‘, s : : 2) Real; End …Hết… ThuVienDeThi.com ThuVienDeThi.com ... hinh chu nhat); Reln(a, b); s := DTChuNhat(a b); Writeln( ‘ Dien tich hinh chu nhat la = ‘, s : : 2) Real; End …Hết… ThuVienDeThi.com ThuVienDeThi.com