Tổng họp các đề thi HSG tin học các tỉnh có đáp án

Tổng hợp tập Sở GD&ĐT Hậu Giang 2014-2015 Phòng GD&ĐT Long Mỹ ĐỀ THI HỌC SINH GIỎI HUYỆN NĂM HỌC Môn: Tin Học Thời gian làm bài: 120 phút (Các tập tin lưu thư mục D:\SBD\, SBD số báo danh thí sinh) Bài Tên tập tin Bai1.pas Bai2.pas 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 hình giá trị biểu thức: T = + 1 1 + + + (Kết làm tròn chữ số phần 2 n thập phân) Ví dụ: Dữ liệu vào (bàn phím) 10 105 Dữ liệu (màn hình) 1.55 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 phần tử lớn có dãy số (Kết làm tròn chữ số phần thập phân) b) Hiện hình số nguyên tố có dãy số Ví dụ: Dữ liệu vào (bàn phím) Dữ liệu (màn hình) 12 -6 14 11 31 -7 14.600 11 31 32 -9 -7 -23 14.000 Bài 3: (7 điểm) Nhập vào số tự nhiên N với (0 < N ≤ 65535) a) Hãy cho biết chữ số lớn 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 (màn hình) 3521 Khong doi xung 32123 Doi xung Hết -• Thí sinh không sử dụng tài liệu • Giám thị không giải thích thêm Bài Bai1.pas (6 điểm) Bai2.pas (7 điểm) Bai3.pas (7 điểm) HƯỚNG DẪN CHẤM ĐIỂM (Chấm theo Test) Dữ liệu vào (bàn phím) Dữ liệu (màn hình) 1.00 15 1.58 605 1.64 7 7 -5 -8 -3 -8 11 13 -21 8.400 11 13 7 Doi xung 4589 Khong doi xung 44788744 Doi xung 56165 Doi xung Điểm 2đ 2đ 2đ 1đ 2đ 2đ 2đ 1đ 2đ 2đ 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 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 Begin Write('Nhap phan tu thu ',i,': '); readln(a[i]); end; d:=0; t:=0; For i:=1 to n if a[i]>0 then begin t:=t+a[i]; d:=d+1; end; Writeln('Trung binh cong cua cac phan tu lon ho la: ', t/d:0:3); Writeln('Cac so nguyen to co day so la: '); For i:=1 to n begin d:=0; for j:=1 to a[i] 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) if s[i]>max then max:=s[i]; Writeln('Chu solon nhat la ',max); s1:=''; for i:=length(s) downto s1:=s1+s[i]; if s1=s then writeln(s,' la xau doi xung') else writeln(s,' khong la xau doi xung'); Readln; End SỞ GD&ĐT QUẢNG BÌNH ĐỀ CHÍNH THỨC KÌ THI CHỌN HSG TỈNH NĂM HỌC 2013-2014 Khóa thi ngày 28 - - 2014 Môn: Tin học LỚP THCS Họ tên: ……………………… Số báo danh: ……… ………… Thời gian: 150 phút (không kể thời gian giao đề) Đề gồm có 02 trang ĐỀ RA Sử dụng ngôn ngữ lập trình Turbo Pascal để lập trình giải toán sau: Câu 1: (3,0 điểm) Đếm ký tự DEMKT.PAS Cho xâu ký tự St có độ dài tối đa 255 ký tự, ký tự lấy từ tập: ‘a’ … ‘z’; ‘A’ … ‘Z’; ‘0’ … ‘9’ Yêu cầu: Hãy đếm số lần xuất ký tự chữ in hoa xâu Dữ liệu vào: Ghi file văn DEMKT.INP có cấu trúc sau: - Dòng 1: Ghi xâu St Dữ liệu ra: Ghi file văn DEMKT.OUT theo cấu trúc sau: - Dòng 1: Ghi số D số lượng kí tự đếm Ví dụ: DEMKT.INP DEMKT.OUT Ki thi chon HSG lop Nam 2014 Câu 2: (3,5 điểm) Tập TAPCON.PAS Cho tập A có N phần tử {a 1, a2, , an}, tập B gọi tập tập A tập B có M phần tử {b1, b2, , bm} thỏa mãn điều kiện: Các phần tử tập B lấy từ tập A (b i ∈ A, ∀i = m) phần tử tập B khác đôi (bi ≠ bj, ∀i ≠ j) Ví dụ: Cho tập A = {1, 9, 4, 5, 9, 5, 8, 9} tập B = {1 9} Yêu cầu: Tìm tập B cho số phần tử tập B lớn Dữ liệu vào: Ghi file văn TAPCON.INP có cấu trúc sau: - Dòng 1: Ghi số nguyên dương N (1 ≤ N ≤ 10000) - Dòng 2: Ghi N số nguyên dương, số thứ i giá trị phần tử a i tập A (1 ≤ i ≤ N, < ≤ 32000) Các số ghi cách dấu cách Dữ liệu ra: Ghi file văn TAPCON.OUT theo cấu trúc: - Dòng 1: Ghi số nguyên dương M số lượng phần tử tập B tìm - Dòng 2: Ghi M số nguyên dương, số thứ i giá trị phần tử bi tập B tìm Các số ghi cách dấu cách Ví dụ: TAPCON.INP 9 TAPCON.OUT 5 Câu 3: (3,5 điểm) Độ cao dãy số DOCAO.PAS Ta gọi độ cao số nguyên dương K tổng giá trị chữ số K Ví dụ: số 25362 có độ cao 18 Cho dãy số nguyên dương A gồm N phần tử a1, a2, , aN (1 ≤ N ≤ 1000, ≤ i ≤ N, < ≤ 2147483647) Yêu cầu: Hãy tính độ cao phần tử dãy số A Dữ liệu vào: Ghi file văn DOCAO.INP có cấu trúc sau: - Dòng 1: Ghi số nguyên dương N, số lượng phần tử dãy số - Dòng 2: Ghi N số nguyên dương, số thứ i giá trị phần tử a i dãy số, số ghi cách dấu cách Dữ liệu ra: Ghi file văn DOCAO.OUT theo cấu trúc sau: - Dòng 1: Ghi N số nguyên dương t 1, t2, , tN, ti độ cao số a i Các số ghi cách dấu cách Ví dụ: DOCAO.INP 247 13 32000 334 DOCAO.OUT 10 27 Hết HƯỚNG DẪN VÀ ĐÁP ÁN CHẤM ĐỀ THI CHỌN HSG LỚP THCS NĂM HỌC 2013-2014 Môn: Tin học Khóa thi ngày 28 - - 2014 I- Phương pháp: - Giám khảo tạo liệu vào, tính toán kết Thực chương trình học sinh so sánh kết - Giám khảo sử dụng chương trình gợi ý để tính toán kết liệu vào - Đối với câu 1: Giám khảo phải tạo 06 test, chương trình học sinh 01 test giám khảo cho 0.5 điểm Trong 06 test giám khảo phải tạo 01 test có xâu liệu vào có 255 kí tự - Đối với câu 2: Giám khảo phải tạo 07 test, chương trình học sinh 01 test giám khảo cho 0.5 điểm Trong 07 test giám khảo phải tạo 01 test có N = 10000 - Đối với câu 3: Giám khảo phải tạo 07 test, chương trình học sinh 01 test giám khảo cho 0.5 điểm Trong 07 test giám khảo phải tạo 01 test có N = 1000 II- Chương trình gợi ý: Câu 1: (3,0 điểm) Đếm ký tự Program Dem_ky_tu_chu_cai_in_hoa; Const fi='DEMKT.IN1'; fo='DEMKT.OUT'; Var St: String; Procedure Read_Data; Var f:Text; Begin Assign(f,fi); Reset(f); Readln(f,St); Close(f); End; Function Count_Char:Integer; Var Count,i:Integer; Begin Count:=0; For i:=1 to Length(St) If (St[i] >= 'A') and (St[i] ='0') and (S1[l]Ds(a[i+1]) then Begin TG:=a[i]; a[i]:=a[i+1]; a[i+1]:=TG; End; Assign(f1,’sapxep.out’);Rewrite(f1); for i:=1 to N Writeln(f1,a[i]); Close(f);Close(f1); End Bài 2: Program SO_HH; Const fi='SOHH.INP'; fo='SOHH.OUT'; Var i,j,N,dem,l, P,Q:Longint; A:Array[1 1000] of longint; Function KT(N:Longint):Boolean; Var Tu:Integer; Begin Tu:=0; For l:=1 to trunc(sqrt(N)) If (N mod l =0) then If sqrt(N)>l then Begin Tu:=Tu+l; Tu:=Tu+N div l; End Else Tu:=tu+l; If Tu=2*N then KT:=true Else Kt:=False; ĐỀ THI THỰC HÀNH TIN HỌC Thời gian làm bài: 120 phút (đề thi gồm có: 02 trang, 03 câu) Họ tên: Số báo danh: Lưu ý thí sinh: Thí sinh lập trình máy phần mềm Borland Pascal Free Pascal để giải toán cho bên Thí sinh lưu file chương trình tạo file kết theo yêu cầu sau: Tên Câu Câu Câu Tên file chương trình Cau1.pas Cau2.pas Cau3.pas Tên file kết Cau11.txt Cau12.txt Cau13.txt Cau14.txt Cau15.txt Cau21.txt Cau22.txt Cau23.txt Cau24.txt Cau25.txt Cau31.txt Cau32.txt Cau33.txt Cau34.txt Cau35.txt Điểm test 10 5 Tổng điểm 50 25 25 Thí sinh tạo thư mục mang tên số báo danh ổ đĩa giám thị quy định Toàn file lưu thư mục Câu Với số nguyên dương n (n>1), ta phân tích n thành tích thừa số nguyên tố Cho biết số nguyên tố nhỏ Ví dụ: n=4  phân tích thành 2.2, n=10  phân tích thành 2.5, n=100  phân tích thành 2.2.5.5, … Yêu cầu: Viết chương trình nhập vào từ bàn phím số nguyên dương n (n>1) Phân tích n thành tích thừa số nguyên tố Thí sinh tạo file kết có tên yêu cầu trên, file ghi thừa số số nguyên dương n (mỗi thừa số cách khoảng trắng) Tên file kêt Cau10.txt n 100 Cau11.txt 101 Cau12.txt 1000 Cau13.txt Cau14.txt Cau15.txt 2011 65535 2147483647 Kết 2255 Câu Cho dãy số dài vô hạn sau: 12345678910111213141516171819202122… Ta cần chữ số đứng vị trí thứ n dãy Ví dụ: n=10  chữ số tìm 1, n=11 chữ số tìm 0, n=30 chữ số tìm 2, … Yêu cầu: Viết chương trình nhập vào từ bàn phím số nguyên dương n (n>0) Tìm chữ số thứ n dãy Thí sinh tạo file kết có tên yêu cầu trên, file ghi chữ số tìm Tên file kêt Cau20.txt Cau21.txt n 30 100 Cau22.txt 255 Cau23.txt 1000 Cau24.txt Cau25.txt 32000 Kết 65535 Câu Ta gọi n! (đọc n giai thừa) tích số nguyên liên tiếp từ đến n n! =1.2.3…n Ta phải đếm xem số n! có chữ số nằm cuối Ví dụ: n=4 4!=1.2.3.4=24  chữ số cuối số n=5  5!=1.2.3.4.5=120  có chữ số cuối số n=10 10!=1.2.3…10=3628800  có chữ số cuối số Yêu câu: Viết chương trình nhập vào từ bàn phím số nguyên dương n (n>1) Tìm số chữ số nằm cuối số n! Thí sinh tạo file kết có tên yêu cầu trên, file ghi số tìm Tên file kêt Cau30.txt Cau31.txt n 10 100 Cau32.txt 500 Cau33.txt 1000 Cau34.txt Cau35.txt 12345 Kết 65535 - Hết - Chữ kí giám thị 1: Chữ ký giám thị 2: (giám thị coi thi không giải thích thêm) TRƯỜNG THCS THẠNH PHÚ ĐỀ THI HỌC SINH GIỎI TIN HỌC ĐỀ CHÍNH THỨC ĐỀ THI THỰC HÀNH TIN HỌC Thời gian làm bài: 120 phút (đề thi gồm có: 02 trang, 03 câu) Họ tên: Số báo danh: Lưu ý thí sinh: Thí sinh tạo thư mục mang tên số báo danh ổ đĩa giám thị quy định Toàn thi lưu thư mục Thí sinh lập trình máy phần mềm Borland Pascal Free Pascal để giải toán cho bên Lưu file chương trình theo yêu cầu TỔNG QUAN BÀI THI Tên Câu Câu Câu Cau1.pas Cau2.pas Cau3.pas Số lượng test 5 Điểm test 6 Tổng điểm 40 30 30 Tên file chương trình Câu Hai số nguyên a b gọi nguyên tố chúng có ước số chung lớn Ví dụ: 25 nguyên tố chúng có ước số chung lớn 1; 15 không nguyên tố chúng có ước số chung lớn Yêu cầu: Viết chương trình Pascal nhập vào từ bàn phím số nguyên dương a, b (a, b ≤1000000000) Xuất hình thông báo xem a b có nguyên tố hay không Ví dụ chạy chương trình: Ví dụ 1: Nhap so nguyen: 25 Nguyen to cung Ví dụ 2: Nhap so nguyen: 15 Khong nguyen to cung Câu Một số nguyên dương gọi số đối xứng sau đảo ngược số ta nhận số Ví dụ: số 1234321 số đối xứng; số 12345321 số đối xứng Yêu câu: Viết chương trình Pascal nhập vào từ bàn phím số nguyên dương n (n≤1000000000) Kiểm tra thông báo hình xem n có phải số đối xứng hay không Ví dụ chạy chương trình: Ví dụ 1: Nhap so nguyen duong: 1234321 Doi xung Ví dụ 2: Nhap so nguyen duong: 12345321 Khong doi xung Câu Cho xâu văn chứa chữ chữ số Hãy tìm xâu dãy chữ số liên tiếp có giá trị lớn Nếu có nhiều dãy số lớn đếm xem có dãy số Ví dụ: xâu ‘tin28hoc6tre2013dong17nai’ có dãy số liên tiếp lớn 2013 có dãy số Yêu cầu: Viết chương trình nhập vào từ bàn phím xâu văn (≤ 255 ký tự) Tìm xuất hình dãy số liên tiếp lớn số lượng dãy số Ví dụ chạy chương trình: Ví dụ 1: Nhap xau: tin28hoc6tre2013dong17nai Day so lon nhat: 2013 So luong: Ví dụ 2: Nhap xau: conghoaxahoichunghiavietnam Day so lon nhat: khong co So luong: - Hết Chữ kí giám thị 1: Chữ ký giám thị 2: (giám thị coi thi không giải thích thêm) program bai3; var s,s1:string; sl,so,code,dem,i,max:integer; begin write('Nhap chuoi: ');readln(s); dem:=0; max:=0; s1:=''; sl:=0; for i:=1 to length(s) begin val(s[i],so,code); if code=0 then begin dem:=dem+1; s1:=s1+s[i]; end else begin val(s1,so,code); if max[...]... readln; END phòng giáo dục và đào tạo thanh thủy đề thi chọn học sinh giỏi lớp 9 THCS năm học 2014 - 2015 môn tin học Đề chính thức Thời gian: 150 phút, không kể thời gian giao đề (Đề thi có 01 trang) Bi 1 (4,0 im) Vit chng trỡnh nhp s t nhiờn n v tớnh giỏ tr biu thc Sn: Sn = 1 2 3 n + + + + 2 3 4 n +1 Tờn tp tin: D: \Thi HSG\Bai1.pas D: \Thi HSG\Bai1.doc Bi 2.(4,0 im) Vit chng trỡnh kim... 32 = 53 Tờn tp tin: D: \Thi HSG\Bai3.pas D: \Thi HSG\Bai3.doc Bai 4.(5,0 iờm) Vit chng trỡnh to mng bao gm N s nguyờn t u tiờn S t nhiờn N c nhp t bn phớm Tờn tp tin: D: \Thi HSG\Bai4.pas D: \Thi HSG\Bai4.doc -Hờt -H v tờn thớ sinh: SBD * Lu ý: Can bụ coi thi khụng phi giai thich gi thờm HNG DN CHM THI - CHN HC SINH GII LP 9 CP HUYN NM HC 2014 2015 Mụn: Tin hc Hng dn... ',a*b/ucln:1:1); readln; end Sở Gd&Đt Quảng bình Đề thi chính thức Số Báo Danh: kỳ thi CHọN học sinh giỏi lớp 9 tHCS năm học 2012- 2013 Môn thi: tin học (Khóa thi ngày 27 tháng 3 năm 2013) Thời gian làm bài: 150 phút (không kể thời gian giao đề) ( thi gm cú 02 trang) RA S dng ngụn ng lp trỡnh Turbo Pascal lp trỡnh gii cỏc bi toỏn sau: Cõu 1: (3,0 im) Phn thng PT.PAS Trong cuc thi gii toỏn qua mng internet mi hc... kt:=true; end; end; end; until kt; end; write(n); readln; end PHềNG GIO DC V O TO TRNG THCS THI CHN HC SINH GII LP 9 THCS NM HC 2015 2016 _ _ CHNH THC THI MễN: TIN HC Ngy thi: 16/1/2016 Thi gian lm bi:120 phỳt (Khụng k thi gian phỏt ) ( thi gm cú: 02 trang) Tng quan thi : Bi Bi 1 Bi 2 Bi 3 Bi 4 Tờn tp chng trỡnh BL1.PAS BL2.PAS BL3.PAS BL4.PAS D liu vo T bn... else writeln(s,' khong la xau doi xung'); Readln; End (2 im) S GIO DC V O TO TNH NG THP K THI CHN HC SINH GII LP 9 CP TNH NM HC 2013 - 2014 _ _ CHNH THC THI MễN: TIN HC Ngy thi: 09/3/2014 Thi gian lm bi: 150 phỳt (khụng k thi gian phỏt ) ( thi gm cú: 02 trang) Tng quan thi : Tờn tp Tờn bi D liu vo Kt qu ra chng trỡnh Bi 1 Quy thu ngõn BL1.PAS T bn phớm Mn hỡnh... kớ giỏm th 1: Ch ký giỏm th 2: (giỏm th coi thi khụng gii thớch gỡ thờm) TRNG THCS THNH PH 1 THI HC SINH GII TIN HC CHNH THC THI THC HNH TIN HC Thi gian lm bi: 120 phỳt ( thi ny gm cú: 02 trang, 03 cõu) H v tờn: S bỏo danh: Lu ý thớ sinh: 4 Thớ sinh to th mc mang tờn s bỏo danh ti a do giỏm th quy nh Ton b bi thi c lu trong th mc ny 5 Thớ sinh lp trỡnh trờn mỏy... QUY THU NGN Trong siờu th, ngi mua hng (khỏch hng) thanh toỏn tin ti quy thu ngõn Sau khi mỏy c mó vch giỏ tin ca tng sn phm s thụng bỏo tng s tin khỏch hng phi thanh toỏn l S ng, khỏch hng a s tin l K ng (S K ; S,K l bi ca 1000) Nhõn viờn quy thu ngõn nhn tin v tr li tin tha cho khỏch hng nu cú Em hóy giỳp nhõn viờn quy thu ngõn tr li tin tha cho khỏch hng sao cho tng s t giy bc l ớt nht Bit rng... thp phõn - Vớ d: XETHANG.INP XETHANG.OUT XETHANG.INP 5 9.8 0.1 6 9.9 9.6 9.8 9.6 9.8 9.9 1 9.9 9.6 9.8 9.6 9.8 9.6 9.5 2 9.8 TRNG THCS THNH PH 1 0 THI HC SINH GII TIN HC XETHANG.OUT 0 2 9.8 0 3 9.6 CHNH THC THI THC HNH TIN HC Thi gian lm bi: 120 phỳt ( thi gm cú: 02 trang, 03 cõu) H v tờn: S bỏo danh: Lu ý thớ sinh: 1 Thớ sinh lp trỡnh trờn mỏy bng phn mm Borland Pascal hoc... cỏch nhau mt du cỏch Trong ú si l phn t xut hin trong S ln hn mt ln v di tng ng l s ln si xut hin Vớ d: TS.INP TS.OUT 7 3 2 2 5 5 3 5 3 9 5 3 ==HT== Sở Gd&Đt Quảng bình kỳ thi CHọN học sinh giỏi lớp 9 THCS năm học 2012 - 2013 môn: tin học hớng dẫn chấm I- Phng phỏp: - Giỏm kho to b d liu vo, tớnh toỏn kt qu Thc hin chng trỡnh ca hc sinh v so sỏnh kt qu - Giỏm kho cú th s dng chng trỡnh gi ý di õy tớnh... assign(f,fo); rewrite(f); For i:=0 to 32000 do if a[i]>1 then writeln(f,i,' ',a[i]); close(f); Writeln((Times-Time)/18.2:0:0); Readln; End PHềNG GD&T CHNH THC THI CHN HSG LP 9 CP HUYN NM HC 2013 - 2014 Mụn: Tin hc Thi gian lm bi: 150 phỳt Lu ý: thi cú 02 trang Bi 1 (3 ) B s Py ta go (Tờn file Pytago.pas) Mt b ba s t nhiờn c gi l b s Py-ta-go nu tha món iu kin: bỡnh phng mt s bng tng bỡnh phng hai