HSG TIN 9HUONG TRA0910

<span class='text_page_counter'>(1)</span>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 abc là số có ba chữ số thỏa mãn điều kiện abc=a3 +b 3 +c 3 . 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. –––––––––––––––––.

<span class='text_page_counter'>(2)</span> 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);.

<span class='text_page_counter'>(3)</span> 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/100; Writeln(‘so tien rut duoc sau’ , t, ‘thang la: ’, b:15:3); Reandln; End.. Câu 5: (5 điểm) Program Cau _5; Const n = 12; Var a, b, c: array[1…n] of integer; I, tong_1, tong_2, tong_3, 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]); Write (‘tien dien: ’); readln(b[i]); Write (‘tien internet: ’); readln(c[i]); End; Writeln; Tong _1:=0; tong _2:=0; tong _3:=0; for i:=1 to n do Begin tong _1:= tong _1 + a[i]; tong_ 2:= tong _2 + b[i]; tong _3:= tong_ 3 + c[i]; end; tong = tong _1 + tong _2 + tong_ 3; Writeln(‘tong so tien chi tra cua nam qua:’, tong); Writeln; {tim dich vu co tong chi cao nhat} Max:= tong_ 1; k:=1; If max < tong_ 2 then k:= 2; If max < tong_ 3 then k:= 3; If k=1 then writenln(‘tien chi cho dien thoai cao nhat’) Else If k=2 then writenln(‘tien chi cho dien cao nhat’) Else writenln(‘tien chi cho dich vu internet cao nhat’); Writeln; writenln(‘phi dich vu trung binh hang thang la: ’, tong div n); readln; End..

<span class='text_page_counter'>(4)</span>