Đề thi HSG Tin 9 N/H 2011-2012

PHÒNG GD&ĐT HƯƠNG TRÀ
TRƯỜNG THCS HƯƠNG TOÀN
ĐỀ THI HỌC SINH GIỎI THỊ XÃ NĂM HỌC 2011-2012
MÔN: TIN HỌC 9
( Thời gian làm bài 90 phút)



Bài 1:
Cho số tự nhiên n, hãy lập trình tính tổng sau:
S= 1+
+
+……+


Bài 2:
Viết chương trình nhập vào một số nguyên.
a. In ra màn hình các ước của số đó.
b. Số đã cho có bao nhiêu ước.
Ví dụ: Nhập vào số nguyên: 28
Các ước của 28 là: 1 2 4 7 14 28
Sô 28 có 6 ước

Bài 3:
Lập trình giải bài toán sau :” Trăm trâu trăm cỏ, trâu đứng ăn năm, trâu nằm ăn 3, trâu già 3 con ăn một bó. Hỏi có bao nhiêu trâu mỗi loại. (Xuất ra các trường hợp có thể xảy ra)

Bài 4: Bạn Nam dùng 3 biến mảng lần lượt biểu diễn cước phí điện thoại, điện, dịch vụ Internet của gia đình mình trong năm vừa qua.
Hãy giúp bạn Nam viết chương trình Pascal thực hiện các nhiệm vụ sau:
Nhập số tiền chi cho ba dịch vụ từng tháng từ bàn phím.
Tính và in ra màn hình tổng số tiền mà gia đình Nam phải trả cho các dịch vụ này trong năm vừa qua.
Hãy cho biết dịch vụ nào có tổng chi lớn nhất?
Hãy cho biết trung bình mỗi tháng gia đình Nam phải trả bao nhiêu tiền cho các dịch vụ nói trên.











ĐÁP ÁN
Bài 1:
Program cau9a;
{uses crt; }
var n,i,j,p:integer;
s,tong:real;
t:char;
begin
{ clrscr;}
writeln(` CHUONG TRINH TINH TONG N SO`);
writeln(`S = 1 + 1/2 + 1/3 +...+ 1/n`);
writeln;
write(`Nhap so gioi han can tinh, n=`);readln(n);
tong:=0;
for i:=1 to n do tong:=tong+1/sqr(i);
writeln(`Ket qua, S =`,tong:7:4);
readln;
End.
Bài 2:

Program timuoc;
Uses CRT;
Var a,i,dem: integer;
Begin
Writeln(` nhap vao mot so nguyen `);
Readln(a);
dem:=0 ;
Write(`cac uoc cua so `,a,` la:`);
For i:=1 to a do
If ( a mod i = 0 ) then
Begin
Write(i,``);
dem:=dem + 1;
End;
Write(` so `,a,` co`, dem,` uoc `);
Readln;
End.
B ài 3

program baitoanco;
uses crt;
Var d,n,g:byte;
Begin
clrscr;
for d:=0 to 20 do
for n:=1 to 34-d do
begin
g:=100-(d+n);
if( 5*d+3*n+g/3=100) and (g mod 3 = 0) then
writeln(`trau dung ` , d:2,` trau nam ` , n:2,` trau gia ` , g:2);
end;
readln;
End.
Bài 4
Program phi_dichvu;
Const n =12;
Var a, b, c: array[1..n] of integer;
i, tong1, tong2, tong3, tong, max, k: integer;
begin
for i:=1 to n do
begin
writeln(‘ nhap cac khoan chi dich vu thang thu’,i);
write(‘tien dien thoai:’); readln(a[i]);
writeln(‘ tien dien tieu dung:’); readln(b[i]);
write(‘ tien internet:’); readln(c[i]);
end;
writeln;
tong1:= 0; tong2:=0; tong3:=0;
for i:=1 to n do
begin
tong1:=tong1 + a[i];
tong2:=tong2 + b[i];
tong3:=tong3 + c[i];
end;
tong:= tong1 + tong2 + tong3;
writeln( ‘tong so tien chi tra cho nam qua:’, tong);
writeln;