Đề thi học sinh giỏi huyện Tin học lớp 8 - Năm học 2014-2015 - Phòng GD & ĐT Long Mỹ

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;
Readln;
End.
Program bai3;
 Uses crt;
 Var s,s1,max: string;
 i: integer;
 Begin
 Clrscr;
 Write('Nhap n: '); readln(s);
 max:='';
 for i:=1 to length(s) do if s[i]>max then max:=s[i];
 Writeln('Chu solon nhat la ',max);
 s1:='';
 for i:=length(s) downto 1 do s1:=s1+s[i];
 if s1=s then writeln(s,' la xau doi xung')
 else writeln(s,' khong la xau doi xung');
 Readln;
 End.