TRƯỜNG THPT NGUYỄN CHÍ THANH TRƯỜNG THPT NGUYỄN CHÍ THANH TỔ TIN HỌC HƯỚNG NGHIỆP ĐỀ KIỂM TRA 1 TIẾT MÔN TIN HỌC 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[.]
TRƯỜNG THPT NGUYỄN CHÍ THANH TỔ TIN HỌC- HƯỚNG NGHIỆP ĐỀ KIỂM TRA TIẾT- MÔN TIN HỌC KHỐI 11 THỜI GIAN: 45 PHÚT HỌ VÀ TÊN HỌC SINH: LỚP: ĐỀ : 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; C Tên chương trình con: var sodu : integer; D Tên chương trình chính: begin E - Hàm: -Thủ tục: while y F.Tham số hình thức: begin G.Lời gọi chương trình con: sodu:= x mod y; x:= y ; y: = sodu; end; UCLN:= x; end; BEGIN Clrscr; Write(‘Nhap tu so, mau so vao ! ’); Readln(tuso,mauso); a:= UCLN(tuso,mauso); if a> then begin tuso:= tuso div a; mauso:= mauso div a; end; writeln(tuso:5, mauso:5); END CÂU (5 điểm ) : Viết chương trình (có sử dụng chương trình con) lập trình tốn sau: Bài tốn: Cho số N nguyên dương 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 ngun từ bàn phím b Tìm Giá trị lớn Max mảng; c Tính tổng phần tử lẻ mảng; d Đếm số lượng phần tử chia hết cho 3; e Xuất hình kết trên; CÂU (1,5 điểm ): Cho biết kết sau 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 p:= p*i; giaix:=p; end; TRƯỜNG THPT NGUYỄN CHÍ THANH TỔ TIN HỌC- HƯỚNG NGHIỆP ĐỀ KIỂM TRA TIẾT- MÔN TIN HỌC KHỐI 11 THỜI GIAN: 45 PHÚT HỌ VÀ TÊN HỌC SINH: LỚP: ĐỀ : 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) ; C Tên chương trình con: var sodu : integer; D Tên chương trình chính: begin E - Hàm: -Thủ tục: while y F.Tham số hình thức: begin G.Lời gọi chương trình con: sodu:= x mod y; x:= y ; y: = sodu; end; end; BEGIN Clrscr; Write(‘Nhap tu so, mau so vao ! ’); Readln(tuso,mauso); UCLN(tuso,mauso); if a> then begin tuso:= tuso div a; mauso:= mauso div a; end; writeln(tuso:5, mauso:5); END CÂU (5 điểm ) : Viết chương trình (có sử dụng chương trình con) lập trình tốn sau: Bài tốn: Cho số N nguyên dương 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ỏ Min mảng; c) Tính tổng phần tử chẵn mảng; d) Đếm số lượng phần tử chia hết cho 5; e) Xuất hình kết trên; CÂU (1,5 điểm ): Cho biết chương trình sau thực cơng việc gì: Function giaix(x, y :integer) : integer; var p,i : integer; begin p:=1; for i:=1 to n p:= p*i; giaix:=p; end; ...TRƯỜNG THPT NGUYỄN CHÍ THANH TỔ TIN HỌC- HƯỚNG NGHIỆP ĐỀ KIỂM TRA TIẾT- MÔN TIN HỌC KHỐI 11 THỜI GIAN: 45 PHÚT HỌ VÀ TÊN HỌC SINH: LỚP: ĐỀ : CÂU 1( 3,5 điểm):... e) Xuất hình kết trên; CÂU (1, 5 điểm ): Cho biết chương trình sau thực cơng việc gì: Function giaix(x, y :integer) : integer; var p,i : integer; begin p: =1; for i: =1 to n p:= p*i; giaix:=p; end;... integer) ; C Tên chương trình con: var sodu : integer; D Tên chương trình chính: begin E - Hàm: -Thủ tục: while y F.Tham số hình thức: begin G.Lời gọi chương trình con: sodu:=