Bài kiểm tra 1 tiết môn Tin học Khối 11 - Trường THPT Nguyễn Chí Thanh

Nội dung text: Bài kiểm tra 1 tiết môn Tin học Khối 11 - Trường THPT Nguyễn Chí Thanh

1. TRƯỜNG THPT NGUYỄN CHÍ THANH ĐỀ KIỂM TRA 1 TIẾT- MÔN TIN HỌC TỔ TIN HỌC- HƯỚNG NGHIỆP KHỐI 11 THỜI GIAN: 45 PHÚT HỌ VÀ TÊN HỌC SINH: LỚP: ĐỀ 1 : CÂU 1( 3,5 điểm): Cho chương trình sau: Program Rutgon_phanso; Hãy cho biết : Uses crt; A. Biến toàn cục: Var tuso, maso, a: integer; B. Biến cục bộ: Function UCLN(x, y: integer) : integer; var sodu : integer; C. Tên chương trình con: begin D. Tên chương trình chính: while y 1 then begin tuso:= tuso div a; mauso:= mauso div a; end; writeln(tuso:5, mauso:5); END. CÂU 2 (5 điểm ) : Viết chương trình (có sử dụng chương trình con) lập trình bài toán sau: Bài toán: Cho số N nguyên dương và mảng a gồm N phần tử . a. Nhập vào mảng A gồm N phần tử kiểu nguyên từ bàn phím. b. Tìm Giá trị lớn nhất Max của mảng; c. Tính tổng các phần tử lẻ của mảng; d. Đếm số lượng phần tử chia hết cho 3; e. Xuất ra màn hình các kết quả trên; CÂU 3 (1,5 điểm ): Cho biết kết quả sau khi biên dịch chương trình sau: Function giaix(x, y :integer) : integer; var p,i : integer; begin p:=1; for i:=1 to n do p:= p*i; giaix:=p; end;
2. TRƯỜNG THPT NGUYỄN CHÍ THANH ĐỀ KIỂM TRA 1 TIẾT- MÔN TIN HỌC TỔ TIN HỌC- HƯỚNG NGHIỆP KHỐI 11 THỜI GIAN: 45 PHÚT HỌ VÀ TÊN HỌC SINH: LỚP: ĐỀ 2 : CÂU 1( 3,5 điểm): Cho chương trình sau: Program Rutgon_phanso; Hãy cho biết : Uses crt; A. Biến toàn cục: Var tuso, maso, a: integer; B. Biến cục bộ: Procedure UCLN( var x, y: integer) ; var sodu : integer; C. Tên chương trình con: begin D. Tên chương trình chính: while y 1 then begin tuso:= tuso div a; mauso:= mauso div a; end; writeln(tuso:5, mauso:5); END. CÂU 2 (5 điểm ) : Viết chương trình (có sử dụng chương trình con) lập trình bài toán sau: Bài toán: Cho số N nguyên dương và mảng a gồm N phần tử . a) Nhập vào mảng A gồm N phần tử kiểu thực từ bàn phím. b) Tìm Giá trị nhỏ nhất Min của mảng; c) Tính tổng các phần tử chẵn của mảng; d) Đếm số lượng phần tử chia hết cho 5; e) Xuất ra màn hình các kết quả trên; CÂU 3 (1,5 điểm ): Cho biết chương trình con sau thực hiện công việc gì: Function giaix(x, y :integer) : integer; var p,i : integer; begin p:=1; for i:=1 to n do p:= p*i; giaix:=p; end;