De thi HSG tin 9 tinh bac giang

Sở GD&ĐT Hậu Giang ĐỀ THI HỌC SINH GIỎI HUYỆN NĂM HỌC 2014-2015
Phòng GD&ĐT Long Mỹ Môn: Tin Học 8
Thời gian làm bài: 120 phút

(Các tập tin lưu trong thư mục D:SBD, trong đó SBD là số báo danh của thí sinh)
Bài
Tên tập tin

1
Bai1.pas

2
Bai2.pas

3
Bai3.pas


Bài 1: (6 điểm) Viết chương trình cho phép nhập vào số nguyên n (1≤n≤10000). In ra màn hình giá trị của biểu thức:
. (Kết quả làm tròn 2 chữ số ở phần thập phân)
Ví dụ:
Dữ liệu vào (bàn phím)
Dữ liệu ra (màn hình)

10
1.55

105
1.64


Bài 2: (7 điểm) Viết chương trình cho phép nhập vào dãy số nguyên gồm n phần tử (1≤n≤100)
a) Tinh trung bình cộng của các phần tử lớn hơn 0 có trong dãy số.
(Kết quả làm tròn 2 chữ số ở phần thập phân)
b) Hiện ra màn hình các số nguyên tố có trong dãy số trên.
Ví dụ:
Dữ liệu vào (bàn phím)
Dữ liệu ra (màn hình)

12 -6 5 14 11 31 -7
14.600
5 11 31

32 -9 -7 7 3 -23
14.000
7 3


Bài 3: (7 điểm) Nhập vào 1 số tự nhiên N với (0 < N ≤ 65535).
a) Hãy cho biết chữ số lớn nhất của số tự nhiên vừa nhập.
b) Kiểm tra xem số đó có đối xứng không.
Ví dụ:
Dữ liệu vào (bàn phím)
Dữ liệu ra (màn hình)

3521
5
Khong doi xung

32123
3
Doi xung



------------------Hết------------------
Thí sinh không được sử dụng tài liệu
Giám thị không giải thích gì thêm
HƯỚNG DẪN CHẤM ĐIỂM
(Chấm theo bộ Test)
Bài
Dữ liệu vào (bàn phím)
Dữ liệu ra (màn hình)
Điểm

Bai1.pas
(6 điểm)
1
1.00
2 đ


15
1.58
2 đ


605
1.64
2 đ

Bai2.pas
(7 điểm)
7
7
7
1 đ


6 3 4 7
5
3 7
2 đ


-5 -8 -3


2 đ


-8 2 7 11 9 13 -21
8.400
2 7 11 13
2 đ

Bai3.pas
(7 điểm)
7
7
Doi xung
1 đ


4589
9
Khong doi xung
2 đ



44788744
8
Doi xung

2 đ


56165
6
Doi xung

2 đ



CHƯƠNG TRÌNH THAM KHẢO
Program bai1;
Uses crt;
Var i,n: integer;
t: real;
Begin
Clrscr;
Write(`Nhap n: `); readln(n);
t:=0;
for i:=1 to n do t:=t+1/(i*i);
Writeln(`T=`,t:0:2);
Readln;
End.

Program bai2;
Uses crt;
Var i,j,n,d,t: integer;
a: array[1..100] of Integer;
Begin
Clrscr;
Write(`Nhap n: `); readln(n);
For i:=1 to n do
Begin
Write(`Nhap phan tu thu `,i,`: `); readln(a[i]);
end;
d:=0; t:=0;
For i:=1 to n do
if a[i]>0 then
begin
t:=t+a[i];
d:=d+1;
end;
Writeln(`Trung binh cong cua cac phan tu lon ho 0 la: `, t/d:0:3);
Writeln(`Cac so nguyen to co trong day so la: `);
For i:=1 to n do
begin
d:=0;
for j:=1 to a[i] do if a[i] mod j=0 then d:=d+1;
if d=2 then Write(a[i],` `);
end;