Đề thi Học sinh giỏi Tin học Lớp 9 Cấp Huyện 2021-2022 (Có đáp án)

 Đề thi Học sinh giỏi Tin học Lớp 9 Cấp Huyện 2021-2022 (Có đáp án) - DeThiTinHoc.net
 PHÒNG GIÁO DỤC ĐỀ THI CHỌN HỌC SINH GIỎI
 HUYỆN AN LÃO LỚP 9 - NĂM HỌC: 2021- 2022
 MÔN: TIN HỌC
 Thời gian làm bài: 150 phút
 (Đề thi gồm 3 câu, 2 trang)
 TỔNG QUAN VỀ ĐỀ THI
 File chương
 Biểu
 STT trình nguồn File dữ liệu vào File kết quả ra
 điểm
 nộp
 Bài 1 BAI1.PAS BAI1.INP BAI1.OUT 3,0 điểm
 Bài 2 BAI2.PAS BAI2.INP BAI2.OUT 3,5 điểm
 Bài 3 BAI3.PAS BAI3.INP BAI3.OUT 3,5 điểm
Chú ý:
- Bài thi được làm trên máy vi tính.
- Học sinh đặt tên file chương trình theo đúng quy định của từng bài, không ghi bất kỳ thông tin cá
nhân nào vào file bài làm (họ tên, số báo danh, ngày sinh, trường, các ký hiệu khác thường,)
- Trong quá trình làm, thường xuyên lưu bài vào đĩa cứng tránh sự cố mất điện đột ngột, có thể mất
bài.
- File input và output ở trong thư mục hiện hành, thí sinh không phải khai báo đường dẫn đến file
input và output.
Bài 1 (3.0 điểm): Viết chương trình xóa các ký tự chữ số trong một xâu ký tự được đọc trong tệp
Bai1.inp.
Dữ liệu vào: Cho trong tệp BAI1.INP
 - Chứa một xâu ký tự có cả kí tự chữ số, độ dài xâu ký tự không vượt quá 100 ký tự.
Kết quả: Ghi ra tệp BAI1.OUT
 - Ghi xâu ký tự sau khi đã xóa các ký tự chữ số của xâu ký tự ở trong file input
Ví dụ:
 BAI1.INP BAI1.OUT
 ab12cd abcd
Bài 2 (3.5 điểm): Giao của 2 tập hợp.
 DeThiTinHoc.net Đề thi Học sinh giỏi Tin học Lớp 9 Cấp Huyện 2021-2022 (Có đáp án) - DeThiTinHoc.net
 ĐÁP ÁN
Bài 1 (3 điểm)
Thuật toán:
 Duyệt qua tất cả các phần tử của sâu S. Nếu kí tự S[i] S không là kí tự số thì viết kí tự đó
vào sâu S1 và viết S1 ra tệp Bai1.out.
Code mẫu
Const
 fi= ‘Bai1.inp’
 fo=’Bai1.out’
Var
 fi,fo: text;
 S,S1:String;
 I:byte;
Begin
 Assign(f,fi);
 Reset(f);
 Readln(f,S);
 Close(f);
 S1:=’ ‘;
 For i:=1 to length (S) do
 If not (S[i]>’0’ and S[i] <’9’) then
 S1:=S1+S[i];
 Assign(f,fo);
 Rewrite(f);
 Writeln(f,S1);
 Close(f);
End.
Bài 2 (3,5 điểm)
Thuật toán:
 Duyệt qua tất cả các phần tử ai A. Nếu ai B thì viết ai viết ra tệp Bai2.out.
Code mẫu
Const
 fi= ‘Bai2.inp’
 fo=’Bai2.out’
Var
 fi,fo: text;
 m,n,i:byte;
 A,B: Aray[1..100] of integer;
Function KiemTra(x:Integer; n:Byte; A:Mang):Boolean;
Var i:Byte; Found:Boolean;
Begin
 DeThiTinHoc.net Đề thi Học sinh giỏi Tin học Lớp 9 Cấp Huyện 2021-2022 (Có đáp án) - DeThiTinHoc.net
 S,Max:Integer;
Begin
 Assign(f,fi);
 Reset(f);
 Readln(f,n);
 For i:=1 to n do
 Read(f,A[i]);
 Readln(f,m);
 Close(f);
k:=1; {Vị trí phần tử đầu tiên của dãy con}
 {Giả sử m phần tử đầu tiên của mảng A là dãy con có tổng lớn nhất}
 Max:=0;
 For i:=1 To m Do Max:=Max+A[i];
{Tìm các dãy con khác}
 For i:=2 To n-m+1 Do
 Begin
 {Tính tổng của dãy con thứ i}
 S:=0;
 For j:=i To i+m-1 Do S:=S+A[j];
 If S>Max Then {Nếu dãy con tìm được có tổng lớn hơn dãy con trước}
 Begin
 Max:=S; {Thay tổng mới}
 k:=i; {Thay vị trí đầu tiên của dãy con mới}
 End;
 End;
Writeln('Day con co tong lon nhat la:');
 For i:=k To k+m-1 Do Write (A[i]:5)
 Assign(f,fo);
 Rewrite(f);
 Write(f,A[i]);
 Close(f);
End.
Bộ Test
 Bài Test Dữ liệu vào Dữ kiệu ra Điểm
 1 ab12cd Abcd 0,3
 2 1234567a A 0,3
 3 Abcdef Abcdef 0,3
 Bài 1 4 abc12345 Abc 0,3
 (3,0 5 a1b2c3d4 Abcd 0,3
 điểm) 6 efghfjgjjyid1454646jgjagjg Efghfjgjjyidjgjagjg 0,3
 7 abcs14545jguygkhbh68989xdgvn abcsjguygkhbhxdgvn 0,3
 8 Cnbjhiynbnnnyuoohyyfv876bbjjhvcf Cnbjhiynbnnnyuoohyyfvbbjjhvcf 0,3
 9 1345bcbxjggkfufuffytf8855ch Bcbxjggkfufuffytfchkfkjvkjfc 0,3
 DeThiTinHoc.net Đề thi Học sinh giỏi Tin học Lớp 9 Cấp Huyện 2021-2022 (Có đáp án) - DeThiTinHoc.net
2 2 1 9 0,35
 1 9
 2
3 1 67 0,35
 67
 1
4 6 35 0,35
 2 4 35 4 1 3
 1
5 5 0,35
 4 6 9 29
6 12 4 5 6 4 3 2 0,35
 1 3 2 4 5 6 4 3 2 5 3 5
 6
7 12 5 6 4 0,35
 1 3 2 4 5 6 4 3 2 5 3 5
 3
8 16 8 7 0,35
 2 3 4 7 6 0 8 7 0 7 8 7 6 6 8 7
 2
9 16 7 8 7 0,35
 2 3 4 7 6 0 8 7 0 7 8 7 6 6 8 7
 3
10 16 7 8 7 6 0,35
 2 3 4 7 6 0 8 7 0 7 8 7 6 6 8 7
 4
 DeThiTinHoc.net Đề thi Học sinh giỏi Tin học Lớp 9 Cấp Huyện 2021-2022 (Có đáp án) - DeThiTinHoc.net
4 2 10 3 5
Câu 3. Trồng cây ăn trái (4 điểm). (Lưu tên file bài làm: cau3.pas)
 Mẹ Nam có một mảnh đất hình chữ nhật có chiều dài N mét, chiều rộng M mét. Mẹ Nam muốn
trồng cây ăn trái lên mảnh đất đó với quy tắc như sau:
 - Cây sẽ được trồng thẳng hàng theo hàng ngang và dọc của mảnh đất
 - Hàng cách hàng 3 mét.
 - Cây cách cây 3 mét.
 - Khoảng cách từ gốc cây đến đường biên của mảnh đất ít nhất 1,5 mét.
 Hỏi mẹ Nam có thể trồng được bao nhiêu cây ăn trái trên đất của mình?
 Dữ liệu vào: nhập từ bàn phím 2 số nguyên dương N, M trên một dòng, giữa 2 số cách nhau
bằng một khoảng trắng. (với 0<N, M< 200)
 Dữ liệu ra: in ra màn hình số nguyên duy nhất là số cây mà mẹ Nam có thể trồng được.
 Ví dụ:
 Nhập từ bàn phím In ra màn hình
 30 20 60
Câu 4. Đội bóng được yêu thích nhất (4 điểm). (Lưu tên file bài làm: cau4.pas)
 Trong giải bóng đá thiếu niên năm 2020 của trường X có 4 đội bóng tham gia, gồm có các đội A,
B, C và D. Mỗi đội gồm có 10 cầu thủ, các cầu thủ có mã số gồm 3 ký tự: Ký tự tên đội + 2 ký tự số
thứ tự của cầu thủ. Ví dụ: Đội A có các cầu thủ A01, A02, , A10; đội B có các cầu thủ B01, B02,
, B10; 
 Ban tổ chức có chương trình bình chọn cầu thủ được yêu thích nhất. Ban tổ chức nhận được một
danh sách các lượt bình chọn của khán giả dành cho các cầu thủ. Tiện đây ban tổ chức cũng muốn
thống kê xem đội bóng nào được yêu thích nhất. Đội bóng được yêu thích nhất là đội có tổng số
lượt bình chọn dành cho các cầu thủ trong đội nhiều nhất. Em hãy giúp ban tổ chức tìm ra đội bóng
được yêu thích nhất. Biết rằng sẽ không có 2 đội bóng cùng được yêu thích nhất mà có số lượt bình
chọn bằng nhau.
 Dữ liệu vào: nhập từ bàn phím:
 - Dòng đầu tiên nhập vào số nguyên dương N (N<1000) là số lượt bình chọn của khán giả
 - N dòng tiếp theo, mỗi dòng nhập một mã số cầu thủ được bình chọn
 Dữ liệu ra: in ra màn hình tên đội bóng được yêu thích nhất và tổng số lượt khán giả bình chọn
cho các cầu thủ đội đó, hai thành phần cách nhau bằng một khoảng trắng.
 Ví dụ:
 Nhập từ bàn phím In ra màn hình
 6 B 3
 B04
 DeThiTinHoc.net Đề thi Học sinh giỏi Tin học Lớp 9 Cấp Huyện 2021-2022 (Có đáp án) - DeThiTinHoc.net
 ĐÁP ÁN VÀ BIỂU ĐIỂM
 Câu 1. Mua hàng khuyến mãi (5 điểm)
 a) Chương trình tham khảo
 program cau1;
 var x: longint;
 t: real;
 begin
 readln(x);
 if x< 100000 then t:= x*95/100
 else if x<1000000 then t:=x*92/100
 else t:=x*90/100 ;
 writeln(t:0:0);
 end.
 b) Bộ test
Dữ liệu nhập từ bàn phím Kết quả ghi ra màn hình Điểm
20000 19000 1
85000 80750 1
150000 138000 1
888888 817777 1
2000000 1800000 1
 Câu 2. Trung bình cộng (4 điểm)
 a) Chương trình tham khảo
 program cau2;
 var n,i,x: integer;
 t: real;
 begin
 readln(n);
 for i:= 1 to n do
 begin
 read(x);
 t:=t+x;
 end;
 writeln(t/n:0:3);
 end.
 b) Bộ test
Test Dữ liệu nhập từ bàn phím Kết quả ghi Điểm
 ra màn hình
1 6 4.333 0,5
 DeThiTinHoc.net Đề thi Học sinh giỏi Tin học Lớp 9 Cấp Huyện 2021-2022 (Có đáp án) - DeThiTinHoc.net
 b) Bộ test
Test Dữ liệu nhập từ bàn Kết quả ghi ra màn Điểm
 phím hình
1 30 20 60 0,5
2 33 9 33 0,5
3 100 50 528 0,5
4 50 40 208 0,5
5 100 100 1089 0,5
6 150 25 400 0,5
7 45 20 90 0,5
8 60 60 400 0,5
 Câu 4. Đội bóng được yêu thích nhất (4 điểm)
 a) Chương trình tham khảo
 {cách 1}
 program cau4;
 var s: string;
 dema,demb,demc,demd: integer;
 doi:char;
 n,i, max:integer;
 begin
 readln(n);
 for i:=1 to n do
 begin
 readln(s);
 if s[1]='A' then dema:=dema+1;
 if s[1]='B' then demb:=demb+1;
 if s[1]='C' then demc:=demc+1;
 if s[1]='D' then demd:=demd+1;
 end;
 doi:='A' ;
 max:=dema;
 if max<demb then
 begin
 doi:='B';
 max:=demb;
 end;
 if max<demc then
 begin
 doi:='C';
 DeThiTinHoc.net