Đang tải... (xem toàn văn)
Thời gian test mỗi bộ không quá 5giây.. Thời gian test mỗi bộ không quá 5giây.[r]
(1)PHÒNG GIÁO DỤC VÀ ĐÀO TẠO TP TAM KỲ
KỲ KIỂM TRA CHỌN HỌC SINH GIỎI LỚP Năm học 2013-2014
Môn : TIN HỌC
Thời gian : 60 phút (không kể thời gian giao đề Bài (5 điểm- Tần số )
Xét dãy số a1 , a2 , a3, aN Gọi x giá trị phần tử dãy
Ta nói tần số số k giá trị x xuất k lần dãy Ví dụ : Cho
dãy 1, 4, 3, 4, 2, 5, tần số a2 giá trị a2 xuất lần
dãy (tương tự, ta nói tần số a4 a7 3) Số M gọi tần số lớn
nhất dãy với i ( i =1,2 ,N), tần số nhỏ M Yêu cầu : Nhập vào từ bàn phím số nguyên dương N (0< N 100) N số nguyên
(0 100, i=1,2, N) Đưa hình tần số lớn dãy a1 , a2, , aN
Input Output
10
1 4 2
4
Bài (5 điểm- Tìm ẩn số tổng) Xét đẳng thức cho bởi:
1 5+
1 8+
1
8 11+ +
(x −3)x+
1
x(x+3)= p q (1) ( với p q số nguyên dương)
Yêu cầu : Nhập vào từ bàn phím số nguyên p, q (0 < p, q 1000) In hình số nguyên x thỏa mãn đẳng thức (1) ( giả thiết hai số p, q nhập vào thích hợp để phương trình (1) ln tồn nghiệm)
Input Output
101 610 302
===Hết===
Ghi : Các file làm phải ghi tương ứng BL1.PAS, BL2.PAS
(2)HƯỚNG DẪN CHẤM ====
Bài (5 đ) Test 10 0,5 điểm Thời gian test không 5giây Quá thời gian quy định không cho điểm
Test Input Output
1
1
2 10
1 4 2
4
3 12
1 1 -2 -2
4 15
4 19 9 19 19 8
5
5
1 1 1 1
6
1 3
7 11
7 0 7 1 1 1
8 12
1 2 2 2
9 15
9 9 4 4 3 3 3
7
10
1 2
Bài (5đ) Test 10 bộ, 0,5 điểm Thời gian test không 5giây Quá thời gian quy định không cho điểm
Test Input Output
1 22
2 40
3
4 11
5 34 14
6 11 70 32
7 15 94 44
8 21 130 62
9 73 442 218
10 101 610 302
(3)LỜI GIẢI THAM KHẢO Bài 1:
uses crt;
var a,L:array[1 10000]of integer; N,i,imax,max: integer;
Procedure Nhap; begin
write('N=');readln(N); for i:=1 to N do
begin
write('a[',i,']=');readln(a[i]) end;
end;
Procedure Xuly; Begin
fillchar(L,sizeof(L),0); for i:=1 to N do
begin
L[a[i]]:=L[a[i]]+1; if L[a[i]]>max then begin
max:=L[a[i]]; imax:=i; end;
end;
write(max); readln; end;
Begin nhap; xuly; end. Bài 2: uses crt;
var p,q,i:integer; S,epsi:real;
Begin
S:=0; i:=2 ; epsi:=0.0000000001; write('P,Q='); readln(p,q); repeat
S:=S+1/(i*(i+3));
if (abs(S-p/q)<=epsi) then writeln(i);
inc(i,3);
until (s>=p/q) or (i>= 30000); readln;