Đề kiểm tra thực hành Tin học lớp 11 lần 2 Năm học 20152016 Trường THPT Mỹ Bình20086

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