Nếu là số hoàn chỉnh thì khẳng định là số hoàn chỉnh cùng với việc chứng tỏ nó thỏa điều kiện của số hoàn chỉnh. Với c/d là phân số sau khi rút gọn[r]
(1)UBND HUYỆN QUẾ SƠN PHÒNG GD&ĐT
KỲ KHẢO SÁT HỌC SINH GIỎI LỚP 6,7,8 CẤP HUYỆN NĂM HỌC 2009-2010
Môn: Tin học - Lớp
Thời gian làm bài: 120 phút (Không kể thời gian giao đề) ĐỀ CHÍNH THỨC
Bài 1: (3,5 điểm)
Viết chương trình cho phép phân loại tam giác biết số đo ba cạnh Yêu cầu:
Dữ liệu vào: Số đo ba cạnh tam giác
Dữ liệu ra: Ghi rõ loại tam giác: Đều, Vuông cân, Cân, Vuông, Thường Các khẳng định không dư Ví dụ: Đã khẳng định tam giác không cần khẳng định tam giác cân
Bài 2: (3,0 điểm)
Một số có tổng ước nhỏ nó gọi số hồn chỉnh Ví dụ: có ước nhỏ 1, 2, Tổng + + = nên số hoàn chỉnh
Viết chương trình xét xem số n nhập từ bàn phím có phải số hồn chỉnh khơng Nếu số hồn chỉnh khẳng định số hồn chỉnh với việc chứng tỏ thỏa điều kiện số hồn chỉnh
Ví dụ: Khi nhập n = xuất: “6 la so hoan chinh vi + + = 6” Khi nhập n=10 xuất “ 10 khong la so hoan chinh”
Bài 3: (3,5 điểm)
Viết chương trình cho phép rút gọn phân số Yêu cầu:
- Dữ liệu vào: Tử số mẫu số phân số cần rút gọn
- Dữ liệu xuất: Rút gọn xuất kết dạng c/d Với c/d phân số sau rút gọn Ví dụ: Nhập tử: - Nhập mẫu: Kết xuất: “6/8 = 3/4 ”
Nhập tử: 10 - Nhập mẫu: Kết xuất: “10/5 = ”
Nhập tử: 10 - Nhập mẫu: Kết xuất: “Khong phai phan so ”
(2)UBND HUYỆN QUẾ SƠN PHÒNG GD&ĐT
KỲ KHẢO SÁT HỌC SINH GIỎI LỚP 6,7,8 CẤP HUYỆN NĂM HỌC 2009-2010
Môn: Tin học - Lớp
Thời gian làm bài: 120 phút (Không kể thời gian giao đề)
HƯỚNG DẪN CHẤM Bài 1: (3,5 điểm)
Program Xet_tam_giac; uses crt;
var a,b,c: real; begin
0,25
‘Nhập ba cạnh tam giác:’ clrscr;
write('Nhap a = '); readln(a); write('Nhap b = '); readln(b); write('Nhap c = '); readln(c);
0,25
‘Kiểm tra điều kiện số đo ba cạnh tam giác:’ if (a+b < c) or (a+c < b) or (b+c < a) then
writeln('Khong phai số đo ba canh mot tam giac') else
0,50
‘Kiểm tra điều kiện tam giác đều:’ if (a = b) and (b = c) then writeln('La tam giac deu') else
0,75
‘Kiểm tra điều kiện tam giác cân, vuông cân:’ if (a = b) or (b = c) or (a = c) then
if (a*a = b*b+c*c) or (b*b = c*c+a*a) or (c*c= a*a+b*b)then writeln('La tam giac vuong can') else writeln('La tam giac can')
else
1,0
‘Kiểm tra điều kiện tam giác vuông:’
if (a*a = b*b+c*c) or (b*b = c*c+a*a) or (c*c= a*a+b*b) then writeln('La tam giac vuong')
else
0,50
‘Còn lại tam giác thường:’
writeln('La tam giac thường')
End 0,25
(3)
Bài 2: (3,0 điểm)
Program So_Hoan_Chinh; uses crt;
var n, i, s: integer; 0,25
begin
clrscr;
write('nhap so n: ');readln(n); s:=0;
0,50
for i:= to n -1 if n mod i = then s:=s+i; 0,75
if s = n then Begin
write(n, ' la so hoan chinh vi'); 0,50 write(1);
for i:= to n -1 if n mod i = then write(‘+’,i); writeln(‘=’,n);
end 0,75
else writeln(n, ‘khong phai so hoan chinh’); readln
end 0,25
Bài 3: (3.5 điểm)
Program Rut_Gon_Phan_So; uses crt;
var Tu,Mau: Integer;
a,b,r,UCLN: Integer; 0.50
‘Nhập phân số:’ Begin
clrscr;
Write('Nhap tu so: ');readln(Tu); Write('Nhap mau so: '); readln(Mau);
0.25
if Mau = then writeln(‘Khong phai phan so’) else
Begin
write(Tu,’/’,Mau);
0,50
‘Tìm UCLN tử mẫu:’ a:= Tu;
b:= Mau; r:= a mod b;
(4)while r <> Begin
a:=b; b:=r;
r:= a mod b; end;
0,50
UCLN:=b; 0,25
‘Thực rút gon:’
Tu:=Tu div UCLN;
mau:= Mau div UCLN; 0.50 ‘In phân số sau rút gọn:’
if Mau <> then
write('=',tu,’/’,mau) else write(Tu);
end; readln; End