Bdhsg

PHÒNG GIÁO DỤC VÀ ĐÀO TẠO HƯƠNG TRÀ
ĐỀ THI CHỌN HỌC SINH GIỎI HUYỆN
NĂM HỌC 2009-2010
MÔN: TIN HỌC 9. Thời gian làm bài: 120 phút


Câu 1: (4 điểm)
Viết chương trình nhập vào tháng, năm và cho biết tháng đó có bao nhiêu ngày.


Câu 2: (3 điểm)
Viết chương trình nhập vào từ bàn phím ba số tự nhiên a, b, c và hiển thị kết quả thông báo ra màn hình bộ ba số đó có phải là bộ số Pitago hay không.


Câu 3: (3 điểm)
Cho
là số có ba chữ số thỏa mãn điều kiện
. Hãy viết chương trình tìm các số thỏa mãn điều kiện đã cho.


Câu 4: (5 điểm)
Một người gửi tiền tiết kiệm vào ngân hàng với số tiền ban đầu là x triệu đồng với lãi suất hàng tháng là k%. Biết rằng phương thức tính lãi suất là lũy kế theo thời hạn, nghĩa là số tiền lãi hàng tháng được cộng dồn vào số tiền gốc với chu kì (thời hạn) là c tháng và khi chưa đủ chu kì thì không được tính số tiền lãi. Sau thời gian t tháng, người đó rút tiền cả vốn và lãi được b triệu đồng. Tính b.
Hãy viết chương trình giải bài toán trên với x, k, c, t được nhập từ bàn phím và b được viết ra màn hình.


Câu 5: (5 điểm)
Dùng ba biến mảng lần lượt biểu diễn số tiền cước phí về điện thoại, điện và dịch vụ Internet của gia đình mình trong năm qua. Em hãy viết một chương trình thực hiện các nhiệm vụ sau:
a. Nhập số tiền mà gia đình em đã chi cho ba dịch vụ từng tháng từ bàn phím.
b. Tính và in ra màn hình: Tổng số tiền mà gia đình em phải trả cho các dịch vụ này trong năm qua; dịch vụ có tổng chi lớn nhất và số tiền trung bình mỗi tháng gia đình em phải trả cho các dịch vụ nói trên.


–––––––––––––––––















PHÒNG GIÁO DỤC VÀ ĐÀO TẠO HƯƠNG TRÀ
ĐÁP ÁN, HƯỚNG DẪN CHẤM ĐỀ THI CHỌN HỌC SINH GIỎI HUYỆN NĂM HỌC 2009-2010
MÔN: TIN HỌC 9.


Câu 1: (4 điểm)

Program Cau _1;
Var n, t, ngay: integer;
Begin
Write (‘nhap thang:’); readln(t);
Write (‘nhap nam:’); readln(n);
Case t of
1, 3, 5, 7, 8, 10, 12: ngay: =31;
4, 6, 9, 11: ngay: =30;
2: if n mod 4 = 0 then ngay: = 29
Else ngay: =28;
End;
Writeln (‘thang: ’ , t, ‘nam: ’,n, ‘co’: ,ngay’);
Readln;
End.


Câu 2: (3 điểm)

Program Cau – 2;
Var a, b, c: integer;
Begin
Write (‘nhap vao cac so a, b, c:’); readln(a, b, c);
If (a*a = b*b + c*c) or (b*b = a*a + c*c) or (c*c = a*a + b*b)
Then writeln (ba so vua nhap la bo so Pitago)
Else writeln (ba so vua nhap khong phai la bo so Pitago);
Readln;
End.


Câu 3: (3 điểm)

Program Cau –3;
Var a, b, c: integer;
Begin
Writeln (‘Cac so can tim la’);
for a:= 1 to 9 do
for b:= 0 to 9 do
for c:= 0 to 9 do
if 100*a + 10*b + c = a*a*a + b*b*b + c*c*c
then Writeln(100*a + 10*b + c);
Readln;
End.


Câu 4: (5 điểm)

Program Cau_ 4;
Var x, k, b: real; i, c, t: integer;
Begin
Write (‘nhap vao so tien gui ban dau: ’); readln(x);
Write (‘nhap vao lai suat: ’); readln(k);
Write (‘nhap vao chu ki tinh lai: ’); readln(c);
Write (‘nhap vao so thang gui: ’); readln(t);
b: = x;
for i:=1 to t do
if I mod c = 0 then b: = b + b*k