ĐỀ THI HỌC SINH GIỎI LỚP 9 THCS MÔN TIN HỌC NĂM 2013 - SỞ GIÁO DỤC VÀ ĐÀO TẠO QUẢNG BÌNH

Trang 1

Sở Gd&Đt kỳ thi CHọN học sinh giỏi lớp 11 thpt Quảng bình năm học 2012 - 2013

Môn thi: tin học

Đề thi chính thức (Khóa thi ngày 27 tháng 3 năm 2013)

Số Báo Danh: Thời gian làm bài: 180 phút (không kể thời gian giao đề)

(Đề thi gồm cú 02 trang)

ĐỀ RA

Sử dụng ngụn ngữ lập trỡnh Turbo Pascal để lập trỡnh giải cỏc bài toỏn sau:

Cho số nguyờn dương X, khi đảo ngược trật tự cỏc chữ số của X ta sẽ thu được một số nguyờn dương Y, Y được gọi là số đảo ngược của X.

Vớ dụ: X = 613 thỡ Y = 316 là số đảo ngược của X.

Số nguyờn dương Y được gọi là số nguyờn tố nếu nú chỉ cú hai ước số là 1 và chớnh nú, số 1 khụng phải là số nguyờn tố.

Cho hai số nguyờn dương P và Q (1 ≤ P ≤ Q ≤ 2109; Q - P ≤ 105).

Yờu cầu: Hóy tỡm tất cả cỏc số nguyờn dương X nằm thỏa món P ≤ X ≤ Q và số

đảo ngược của số X là số nguyờn tố.

Dữ liệu vào: Cho trong file văn bản TIMSO.INP cú cấu trỳc như sau:

- Dũng 1: Ghi hai số nguyờn dương P Q, hai số được ghi cỏch nhau ớt nhất một

dấu cỏch.

Dữ liệu ra: Ghi ra file văn bản TIMSO.OUT trờn nhiều dũng, mỗi dũng ghi một số

nguyờn X tỡm dược.

Vớ dụ:

13 14 16 17

Cho hai số nguyờn dương M và N, M cú p chữ số và N cú q chữ số.

Yờu cầu: Tớnh tổng của hai số M và N.

Dữ liệu vào: Cho trong file văn bản TONG.INP cú cấu trỳc như sau:

- Dũng 1: Ghi số nguyờn dương p là số lượng chữ số của M (1 ≤ p ≤ 30000).

- Dũng 2: Ghi p chữ số của M theo thứ tự từ trỏi sang phải, cỏc chữ số được ghi

cỏch nhau ớt nhất một dấu cỏch.

- Dũng 3: Ghi số nguyờn dương q là số lượng chữ số của N (1 ≤ q ≤ 30000).

- Dũng 4: Ghi q chữ số của N theo thứ tự từ trỏi sang phải, cỏc chữ số được ghi

cỏch nhau ớt nhất một dấu cỏch.

Dữ liệu ra: Ghi ra file văn bản TONG.OUT theo cấu trỳc như sau:

- Dũng 1: Ghi số nguyờn dương k là số lượng chữ số của tổng tỡm được.

- Dũng 2: Ghi k chữ số của tổng tỡm được theo thứ tự từ trỏi sang phải, cỏc chữ số

được ghi cỏch nhau ớt nhất một dấu cỏch.

Vớ dụ:

Trang 2

2 2 3 2 3 9 3

2 4 7

6

2 2 3 4 8 6

(Có 85% số test với p, q ≤ 20000; 15% số test với p, q >20000 ).

Câu 3: (3,5 điểm) Dãy con chung dài nhất DAYCON.PAS

Cho dãy số nguyên A gồm N phần tử a1, a2, , aNvà dãy số nguyên B gồm M phần tử b1, b2, , bM Các phần tử trong một dãy số có giá trị khác nhau từng đôi một.

(1 ≤ ai, bj ≤ 2109; 1 ≤ N ≤ 100; 1 ≤ i ≤ N; 1 ≤ M ≤ 100; 1 ≤ j ≤ M).

Dãy C được gọi là dãy con của dãy A nếu dãy C nhận được từ dãy A bằng cách xóa đi một số phần tử và giữ nguyên thứ tự của các phần tử còn lại

Nếu dãy C là dãy con của dãy A và cũng là dãy con của dãy B thì dãy C được gọi là dãy con chung của hai dãy A và B.

Yêu cầu: Hãy tìm dãy C là dãy con chung của hai dãy A và B sao cho số lượng

phần tử của dãy C là lớn nhất.

Dữ liệu vào: Cho trong file văn bản DAYCON.INP có cấu trúc như sau:

- Dòng 1: Ghi số nguyên dương N là số lượng phần tử của dãy A.

- Dòng 2: Ghi N số nguyên là giá trị của các phần tử trong dãy A, các số được ghi

cách nhau ít nhất một dấu cách.

- Dòng 3: Ghi số nguyên dương M là số lượng phần tử của dãy B.

- Dòng 4: Ghi M số nguyên là giá trị của các phần tử trong dãy B, các số được ghi

cách nhau ít nhất một dấu cách.

Dữ liệu ra: Ghi ra file văn bản DAYCON.OUT theo cấu trúc như sau:

- Dòng 1: Ghi số nguyên dương K là số lượng phần tử của dãy C.

- Dòng 2: Ghi K số nguyên là giá trị của các phần tử trong dãy C, các số được ghi

cách nhau một dấu cách.

- Dòng 3: Ghi K số nguyên dương lần lượt là chỉ số của các phần tử trong dãy A

tương ứng với các giá trị của phần tử đó trong dãy C, các số được ghi cách nhau một dấu cách.

- Dòng 4: Ghi K số nguyên dương lần lượt là chỉ số của các phần tử trong dãy B

tương ứng với các giá trị của phần tử đó trong dãy C, các số được ghi cách nhau một dấu cách.

Ví dụ:

6

9 3 1 12 6 15 5

3 12 7 6 15

4

3 12 6 15

2 4 5 6

1 2 4 5

==HẾT==

Trang 3

Së GD&§T kú thi CHäN häc sinh giái líp 11 THPT Qu¶ng b×nh n¨m häc 2012 - 2013

M«n thi: tin häc

I- Phương pháp:

- Giám khảo tạo bộ dữ liệu vào, tính toán kết quả Thực hiện chương trình của học sinh và so sánh kết quả.

- Giám khảo có thể sử dụng chương trình gợi ý dưới đây để tính toán kết quả của dữ liệu vào.

- Đối với câu 1: Giám khảo phải tạo được 06 bộ test, chương trình học sinh đúng 01 bộ test giám khảo cho 0.5 điểm Trong 06 bộ test giám khảo phải tạo được

01 bộ test có Q-P = 105, 01 bộ test giá trị P, Q > 65535.

- Đối với câu 2: Giám khảo phải tạo được 07 bộ test, chương trình học sinh đúng 01 bộ test giám khảo cho 0.5 điểm Trong 07 bộ test giám khảo phải tạo được

01 bộ test có P, Q > 20000.

- Đối với câu 3:

+ Có thể có nhiều kết quả đúng, nếu học sinh đưa ra kết quả đúng nhưng khác với kết quả của giám khảo thì vẫn cho điểm tối đa.

+ Giám khảo phải tạo được 05 bộ test, chương trình học sinh đúng 01 bộ test giám khảo cho 0.7 điểm.

+ Đối với mỗi bộ test: Nếu học sinh đưa ra đúng số lượng phần tử của dãy con chung thì giám khảo cho 0.3 điểm, nếu đưa ra đúng dãy con chung giám khảo cho 0.2 điểm, nếu đưa ra đúng chỉ số của các phần tử trong dãy A và dãy B ban đầu thì giám khảo cho 0.2 điểm Tổng điểm của mỗi test là 0.7 điểm.

II- Chương trình gợi ý:

Câu 1: (3,0 điểm) Tìm số

Program Tim_so;

Const fi='TIMSO.INP';

fo='TIMSO.OUT' ;

Var P,Q:longint;

Time:Longint;

Times:Longint absolute 0:$46C;

Function NT(K:longint):Boolean;

Var Can,i:Longint;

Begin

If (K=2) or (K=3) then Begin NT:=True;Exit; End;

If (K<2) or (K mod 2 = 0) or (K mod 3 = 0) then

Begin NT:=False; Exit; End;

NT:=True;

i:=5;

Can:=Trunc(sqrt(K));

While i<=Can do

Begin

if (K mod i = 0) or (K mod (i+2) =0) then

Begin NT:=False; Exit; End

ELse inc(i,6);

End;

Function Daoso(N:longint):longint;

Var S:longint;

Begin

S:=0;

While N<>0 do

Begin

S:=S*10+ (N mod 10);

N:=N div 10;

End;

Daoso:=S;

End;

Procedure Read_Data;

Var F:text;

Begin

Trang 4

Assign(f,fi);

Reset(f);

Read(f,P,Q);

Close(f);

End;

Procedure Write_Data;

Var f:text;

j:longint;

Begin

Assign(f,fo);

Rewrite(f);

for j:=P to Q do

if NT(Daoso(j)) then Writeln(f,j);

Close(f);

End;

BEGIN

Time:=Times;

Read_Data;

Write_Data;

Writeln((Times-Time)/18.2:0:2);

Readln;

END

Câu 2: (3,5 điểm) Tính tổng

Program Tinh_tong;

Const fi= 'TONG.INP';

fo= 'TONG.OUT';

MaxN=30000;

Type mmc=Array [0 MaxN] of byte;

Var N,M,Top:Longint;

A,B:mmc;C:^mmc;

Var f:text;i:Longint;

Begin

Assign(f,fi);

Reset(f);

Readln(f,N);

For i:=1 to N do

Read(f,A[i]);

Readln(f);

Readln(f,M);

New(C);

Fillchar(C^,Sizeof(C^),0);

For i:=1 to M do

Read(f,C^[i]);

Close(f);

End;

Procedure Init;

Var Tg,k:Longint;

Begin

If M=N then Begin Top:=N;B:=C^;Exit End;

If N > M Then

Begin

Tg:=N-M;

For K:=M Downto 1 do

B[K+Tg]:=C^[K];

Top:=N;

End

Else

Begin

Tg:=M-N;

For K:=N Downto 1 do

B[K+Tg]:=A[K];

A:=C^;

Top:=M;

End;

Fillchar(C^,Sizeof(C^),0);

End;

Procedure Process;

Var i,Nguyen,Tg:Longint;

Begin

Nguyen:=0;

For i:= Top Downto 0 do

Begin

Tg:=(A[i]+B[i]+Nguyen);

C^[i]:= Tg mod 10;

Trang 5

Nguyen:=Tg Div 10;

End;

Var f:text;i:Longint;

Begin

Assign(f,fo);

Rewrite(f);

if C^[0]>0 then

Begin

Writeln(f,Top+1);

Write(f,C^[0],' ');

End

Else

Writeln(f,Top);

For i:=1 to Top do

Write(f,C^[i], ' ');

Close(f);

Dispose(C);

End;

BEGIN

Read_Data;

Init;

Process;

Write_Data;

END

Câu 3: (3,5 điểm) Dãy con chung dài nhất

Program Day_con;

Const fi='DAYCON.INP';

fo='DAYCON.OUT';

MaxN=101;

Type mmc=Array[0 MaxN] of Longint;

mhc=Array[0 MaxN] of mmc;

Var A,B,C:mmc;

L:mhc;

N,M,K:Longint;

Time:Longint;

Times: Longint absolute 0:$46C;

Var f:Text; i:Longint;

Begin

Assign(f,fi);

Reset(f);

Readln(f,N);

For i:=1 to N do

Read(f,A[i]);

Readln(f,M);

For i:=1 to M do

Read(f,B[i]);

Fillchar(L,Sizeof(L),0);

Close(f);

End;

Procedure Solution;

Var i,j:Longint;

Begin

For i:=1 to N do

For j:=1 to M do

Begin

if A[i] = B[j] then

L[i,j]:=L[i-1,j-1]+1

Else

Begin

L[i,j]:=L[i,j-1];

If L[i-1,j] > L[i,j-1] then

L[i,j]:=L[i-1,j];

End;

Trang 6

Var f:Text;i,j,Top:Longint;LA,LB:mmc;

Begin

Assign(f,fo);

Rewrite(f);

Writeln(f,L[N,M]);

Top:=0;

i:=N;j:=M;

While (i>0) and (j>0) do

Begin

if A[i] = B[j] then

Begin

inc(Top);

LA[Top]:=i;

LB[Top]:=j;

dec(i);

dec(j);

End

Else

if L[i-1,j] > L[i,j-1] then

dec(i)

Else

dec(j);

End;

For i:=Top Downto 1 do

Write(f,A[LA[i]],' ');

Writeln(f);

Write(f,LA[i],' ');

Writeln(f);

Write(f,LB[i],' ');

Close(f);

End;

BEGIN

Time:=Times;

Read_Data;

Solution;

Write_Data;

Writeln((Times-Time)/18.2:0:0);

Readln;

END

Định dạng
Số trang	6
Dung lượng	55 KB