Đề thi chọn HSG Tin 9 vòng 1 huyện Tam Dương năm 2010-2011

UBND HUYỆN TAM DƯƠNG PHÒNG GD-ĐT ---------ĐỀ CHÍNH THỨC ĐỀ THI HỌC SINH GIỎI VÒNG 1 Môn: Tin học 9 Thời gian làm bài: 150 phút (Không kể thời gian giao đề) (Lưu ý đề thi có 02 trang) Ghi chú: Học sinh có thể nhập, xuất dữ liệu từ file văn bản hoặc từ bàn phím Bài 1: ( 3 điểm ) Tên file bài làm là: bailam1.pas Với mỗi số tự nhiên N ( 1  N  1000). Tìm các số tự nhiên M  N thoả mãn: +/ M là một số nguyên tố. +/ Tổng các chữ số của M cũng là một số nguyên tố. Yêu cầu: Nhập số tự nhiên N (1  N  1000). Thông báo số lượng các số tự nhiên M thỏa mãn các yêu cầu trên, đó là các số nào? Dữ liệu vào từ file: bailam1.inp Dòng 1: Số tự nhiên N Dữ liệu ra file: bailam1.out Dòng 1: Ghi các số M thỏa mãn yêu cầu Dòng 2: Số lượng các số tự nhiên M thỏa mãn Ví dụ: Dữ liệu vào từ file: bailam1.inp 10 Dữ liệu ra file: bailam1.out 2357 4 Bài 2: ( 3 điểm) Tên file bài làm là: bailam2.pas Dãy số a1, a2, a3, ……, an được định nghĩa như sau: + a1= m; + ai+1 là số đảo ngược của số ai + k (1  i  n-1) Yêu cầu: 1/ Với mỗi bộ 3 số tự nhiên khác 0 là m, k, n được nhập hãy in ra dãy số a 1, a2, a3,… , an. 2/ In ra các chỉ số i mà tại đó ai = 1. Dữ liệu vào từ file: bailam2.inp Dòng 1: Số tự nhiên m, k, n Dữ liệu ra file: bailam2.out Dòng 1: Dãy số a1, a2, a3, ……, an. Dòng 2: chỉ số i mà tại đó ai = 1 Ví dụ: Dữ liệu vào từ file: bailam2.inp 1 4 10 Dữ liệu ra file: bailam2.out 15 9 31 53 75 97 101 501 505 1 Bài 3: ( 2 điểm) Tên file bài làm là: bailam3.pas Một công ty có nhu cầu cần mua 1 máy chuyên dụng, có N xí nghiệp nhận gia công loại máy này ( 1 N  20). Với mỗi xí nghiệp thứ i ( 1 i  N), thời gian gia công chiếc máy là T[i] và bán máy với giá C[i]. Yêu cầu: a/ Liệu công ty có thể mua máy của xí nghiệp nào mà thời gian gia công nhanh nhất và bán với giá rẻ nhất không ? Nếu có đó là xí nghiệp nào ? b/ Trong trường hợp không có xí nghiệp nào thỏa mãn cả 2 yêu cầu trên thì công ty ưu tiên mua của xí nghiệp có thời gian gia công nhanh nhất nhưng với điều kiện giá mua không cao hơn quá 10% của giá rẻ nhất. Liệu công ty có thực hiện được ý muốn không ? Nếu được thì thông báo đó là xí nghiệp nào ? Dữ liệu vào từ file: bailam3.inp Dòng 1: Số tự nhiên N Dòng 2: Thời gian gia công của xí nghiệp thứ i Dòng 3: Giá thành của xí nghiệp thứ i Dữ liệu ra file: bailam3.out Dòng 1: Ghi xí nghiệp được chọn, nếu không chọn được xí nghiệp nào thì ghi số 0 Ví dụ: bailam3.inp bailam3.out Ví dụ 1 3 527 435 2 Ví dụ 2 4 20 6 5 12.5 15 10 11 13 3 Ví dụ 3 3 18.5 5 9 9 8.5 4.5 0 Bài 4: (2 điểm) Tên file bài làm là: bailam4.pas Một nhóm gồm N học sinh thực hiện trò chơi loại người ra khỏi vòng tròn. Luật chơi như sau: N học sinh được đánh số hiệu từ 1 đến N xếp thành vòng tròn và học sinh thứ M bị loại ra khỏi vòng tròn tính theo chiều kim đồng hồ. Khi một học sinh bị loại khỏi vòng tròn, thì vòng tròn thu hẹp lại và đếm thứ tự từ học sinh còn lại bên cạnh để xác định học sinh bị loại tiếp theo, cứ như vậy cho đến khi nào trên vòng tròn chỉ còn một học sinh. Nhập hai số tự nhiên N, M hãy chỉ ra số hiệu của học sinh còn lại trên vòng tròn. Dữ liệu vào từ file: bailam4.inp Dòng 1: Số tự nhiên N, M Dữ liệu ra file: bailam4.out Dòng 1: Số hiệu của học sinh còn lại trên vòng tròn Ví dụ: Dữ liệu vào từ file: bailam4.inp 10 5 Dữ liệu ra file: bailam4.out 3 -----------------------------o0o----------------------------------Cán bộ coi thi không giải thích gì thêm. UBND HUYỆN TAM DƯƠNG PHÒNG GD-ĐT ---------- HƯỚNG DẪN CHẤM THI HSG VÒNG 1 Môn: Tin học 9 Thời gian làm bài: 150 phút Ghi chú: Học sinh có thể nhập, xuất dữ liệu từ file văn bản hoặc từ bàn phím Bài 1: ( 3 điểm ) bailam1.pas: Mỗi Test đúng: 0.5 điểm bailam1.inp bailam1.out 15 2 3 5 7 11 5 1 0 0 0 1000 2 3 5… 89 1001 0 7 2357 4 Bài 2: ( 3 điểm) bailam2.pas Mỗi Test đúng: 0.5 điểm Bailam2.inp Bailam2.out 000 0 0 111 1 1 257 2 7 21 62 76 18 32 0 4 5 50 4 1 7 31 73…. 2 32 10 6 24 10 61 76… 7 Bài 3: ( 2 điểm) bailam3.pas Mỗi Test đúng: 0.5 điểm Bailam3.inp 2 11 11 3 124 563 4 15 20.5 7 12 17 16.5 8 10 7 5 7 5.5 9 6 4 6 15 9 7 20 8 7.5 10 Bailam3.out 1 2 0 3 6 Bài 4: (2 điểm) Tên bailam4.pas Mỗi Test đúng: 0.5 điểm Bailam 4.inp Bailam 4.out 11 1 15 4 13 50 56 27 100 100 22 -----------------------------o0o----------------------------------- 2 100 50 2 201 103… 0 BỘ CHƯƠNG TRÌNH NGUỒN MẪU (Sử dụng nhập, xuất từ bàn phím) Program bai1; Var m,n,i,j,k,d:Longint; Function nto(n:Longint):Longint; Var i:Longint; Begin d:=0; For i:=2 to n div 2 do If N mod i = 0 then Inc(d); If (d=0)and(n1) then nto:=n; End; Function Sum(m:Longint):Longint; Var s:Longint; Begin s:=0; Repeat s:=s+ m mod 10; m:= m div 10; Until m=0; Sum:=s; End; Procedure XULI; Var n,d:Longint; Begin Write(' N= '); Readln(N); if (n>=1) and (n<=1000) then begin d:=0; For i:= 2 to N do If (nto(i)=i)and(nto(Sum(i))=Sum(i)) then Begin Inc(d); Write(i:5); End; Writeln; Writeln(' TIM THAY ',d:5,' SO THOA MAN'); End else write('0'); END; Begin XULI; Readln; End. Program bai2; Var m,n,i,k,d:Longint; a:Array[1..1000] of longint; Function dao(n:Longint):Longint; Var s,i:Longint; Begin s:=0; Repeat s:=s*10 + n mod 10; n:=n div 10; Until n=0; dao:=s; End; Begin Write('m,k,n'); Readln(m,k,n); a[1]:=m; For i:=1 to n-1 do a[i+1]:=dao(a[i]+k); For i:=1 to n do write(a[i]:5); Writeln; Writeln(' CAC VI TRI MA a[i]=1 LA:'); For i:=1 to n do If a[i]=1 then write(i:5); Readln;End. Program Bai3; Type Mang=array[1..100] of real; Var n,i,j,k:integer; t,c:Mang; min1,min2:real; Begin write('Nhap so xi nghiep n= '); Readln(n); writeln('Nhap thoi gian gia cong va gia thanh:'); for i:=1 to n do begin write('t[', i,']='); readln(t[i]); write('c[', i,']='); readln(c[i]); End; min1:=t[1]; For i:=2 to n do If min1>t[i] then min1:=t[i]; min2:=c[1]; For i:=2 to n do min2:=c[i]; k:=0; For i:=1 to n do begin if (t[i]=min1) and (c[i]=min2) then begin inc(k); writeln(' Lua chon XN thu:',i) end else if (t[i]=min1) and (c[i]<=min2*1.1) then begin inc(k); writeln(' Lua chon XN thu:',i); end end; if k=0 then Writeln(' 0 '); Readln; end. Bai 4 Var m,n,i,j,d,loai:Byte; a:array[1..100] of 0..1; Begin Write(' Nhap so hoc sinh:'); Readln(N); Write(' Hoc sinh bi loai dau tien: '); Readln(M); For i:=1 to n do a[i]:=1; loai:=0; i:=0; d:=0; Repeat i:=i mod n + 1; If (a[i]0) and (d= N-1; Writeln(' CON NGUOI THU:'); d:=0; For i:=1 to N do If a[i]=1 then Begin write(i:5); Inc(d); End; If d=0 then write('0'); Readln; End.