Đề thi học sinh giỏi vòng 1 - Môn: Tin học 9

Nội dung text: Đề thi học sinh giỏi vòng 1 - Môn: Tin học 9

1. UBND HUYỆN TAM DƯƠNG ĐỀ THI HỌC SINH GIỎI VÒNG 1 PHÒNG GD-ĐT Môn: Tin học 9 Thời gian làm bài: 150 phút ĐỀ CHÍNH THỨC (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 2 3 5 7 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ố a1, 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
2. 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ụ: Ví dụ 1 Ví dụ 2 Ví dụ 3 bailam3.inp 3 4 3 5 2 7 20 6 5 12.5 18.5 5 9 4 3 5 15 10 11 13 9 8.5 4.5 bailam3.out 2 3 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.
3. UBND HUYỆN TAM DƯƠNG HƯỚNG DẪN CHẤM THI HSG VÒNG 1 PHÒNG GD-ĐT 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 15 1 0 1000 1001 7 bailam1.out 2 3 5 7 11 2 3 5 2 3 5 7 5 0 0 89 0 4 Bài 2: ( 3 điểm) bailam2.pas Mỗi Test đúng: 0.5 điểm Bailam2.inp 0 0 0 1 1 1 2 5 7 4 5 50 10 6 24 2 100 50 Bailam2.out 0 1 2 7 21 62 76 18 32 4 1 7 31 73 . 10 61 76 2 201 103 0 1 0 2 32 7 0 Bài 3: ( 2 điểm) bailam3.pas Mỗi Test đúng: 0.5 điểm Bailam3.inp 2 3 4 7 1 1 1 2 4 15 20.5 7 12 5 7 5.5 9 6 4 6 1 1 5 6 3 17 16.5 8 10 15 9 7 20 8 7.5 10 Bailam3.out 1 0 3 6 2 Bài 4: (2 điểm) Tên bailam4.pas Mỗi Test đúng: 0.5 điểm Bailam 4.inp 1 1 15 4 50 56 100 100 Bailam 4.out 1 13 27 22 o0o
4. 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(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);
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] 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.