DE THAM KHAO THI HSG TRUƠNG

KỲ KHẢO SÁT HỌC SINH GIỎI LỚP 8 CẤP TRƯỜNG
NĂM HỌC 2011-2012
Môn: Tin học - Lớp 8
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 khi biết số đo ba cạnh.
Yêu cầu:
Dữ liệu vào: Số đo ba cạnh của 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 là tam giác đều thì không cần khẳng định là tam giác cân.

Bài 2: (3,0 điểm)
Một số có tổng các ước nhỏ hơn nó bằng chính nó được gọi là số hoàn chỉnh.
Ví dụ: 6 có các ước nhỏ hơn nó là 1, 2, 3. Tổng 1 + 2 + 3 = 6 nên 6 là số hoàn chỉnh.
Viết chương trình xét xem một số n được nhập từ bàn phím có phải là số hoàn chỉnh không. 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í dụ: Khi nhập n = 6 thì xuất: “6 la so hoan chinh vi 1 + 2 + 3 = 6”. Khi nhập n=10 thì 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 một phân số.
Yêu cầu:
- Dữ liệu vào: Tử số và mẫu số của phân số cần rút gọn.
- Dữ liệu xuất: Rút gọn và xuất kết quả dạng c/d. Với c/d là phân số sau khi rút gọn.
Ví dụ: Nhập tử: 6 - Nhập mẫu: 8. Kết quả xuất: “6/8 = 3/4 ”
Nhập tử: 10 - Nhập mẫu: 5. Kết quả xuất: “10/5 = 2 ”
Nhập tử: 10 - Nhập mẫu: 0. Kết quả xuất: “Khong phai phan so ”



Học sinh thực hiện tạo thư mục với tên là số báo danh của mình. Lưu kết quả vào thư mục này với tên file: Bai_1.pas, Bai_2.pas, Bai_3.pas












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 của 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 một 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 là tam giác thường:’
writeln(`La tam giac thường`)
End.
0,25






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