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 x, y : A Tham số hình thức B Tham số thực C Biến toàn cục D Biến cục 1.3) Tham số biến chương trình là: A a B x, y C a, b 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, Var y: Byte; var z: Byte); C Procedure Max(x, y: Byte; Var 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: Program cau_3 Var a, b, h, s Real; Fution DTHinhThang(x, y, z:real) : Real; Begin DTHinhThang (x + y) * z / 2; ThuVienDeThi.com End; Begin Wte( ‘nhap day lon, day nho va chieu cao cua hinh thang:’); Readln(a, b h); s := DTHinhThang(a, b, h) Writeln( ‘dien tich hinh thang la = ‘ s : : 2); Readln; End …Hết… ThuVienDeThi.com ThuVienDeThi.com ... thang:’); Readln(a, b h); s := DTHinhThang(a, b, h) Writeln( ‘dien tich hinh thang la = ‘ s : : 2) ; Readln; End …Hết… ThuVienDeThi.com ThuVienDeThi.com