Kiểm tra 1 tiết

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 sau:
Program Rutgon_phanso;
Uses crt;
Var tuso, maso, a: integer;
Function UCLN(x, y: integer) : integer;
var sodu : integer;
begin
while y<> 0 do
begin
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> 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ử .
Nhập vào mảng A gồm N phần tử kiểu nguyên từ bàn phím.
Tìm Giá trị lớn nhất Max của mảng;
Tính tổng các phần tử lẻ của mảng;
Đếm số lượng phần tử chia hết cho 3;
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;





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:
ĐỀ 2 :
CÂU 1( 3,5 điểm): Cho chương trình sau:
Program Rutgon_phanso;
Uses crt;
Var tuso, maso, a: integer;
Procedure UCLN( var x, y: integer) ;
var sodu : integer;
begin
while y<> 0 do
begin
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> 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ử .
Nhập vào mảng A gồm N phần tử kiểu thực từ bàn phím.
Tìm Giá trị nhỏ nhất Min của mảng;
Tính tổng các phần tử chẵn của mảng;
Đếm số lượng phần tử chia hết cho 5;
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;