Đề thi HSG môn Tin 9 năm 2019 Phòng GD&ĐT Hậu Lộc có đáp án

Em hãy giúp bộ phận thư ký lập trình thực hiện công việc với yêu cầu như sau: Nếu có nhiều kí tự trắng ở trong xâu thì xóa và chỉ để lại một kí tự trắng ở giữa mỗi từ, kí tự đầu tiên c[r]

PHÒNG GD&ĐT HẬU LỘC ĐỀ THI HỌC SINH GIỎI VĂN HÓA LỚP NĂM HỌC 2018- 2019

Môn thi : TIN HỌC

Thời gian làm : 120 phút( Không kể thời gian giao đề)

Em dùng ngơn ngữ lập trình Pascal Free Pascal để lập trình giải tốn sau:

Bài 1: (4, điểm) Tính tổng BAI1.PAS

Viết chương trình nhập từ bàn phím số tự nhiên n cho 5<n100, nhập sai yêu cầu nhập lại nhập tính tổng Sn

1.2 2.3 3.4 .( 1)

3.4 4.5 5.6 ( 2)( 3)

n

n n S

n n



    

 

Bài 2: (4,0 điểm) Xử lý xâu BAI2.PAS

Trong kỳ thi học sinh giỏi lớp 9, sơ xuất nhập liệu nên liệu họ tên thí sinh khơng theo quy cách văn bản, khó khăn việc tìm kiếm thơng tin thí sinh Để khắc phục tình trạng đó, ban tổ chức u cầu phận thư ký chỉnh sửa lại liệu chuẩn Em giúp phận thư ký lập trình thực công việc với yêu cầu sau: Nếu có nhiều kí tự trắng xâu xóa để lại kí tự trắng từ, kí tự họ, họ lót, tên chuyển thành chữ in hoa, tất kí tự cịn lại chuyển thành chữ thường

Dữ liệu vào: Cho file text XAU.INP gồm dịng chứa xâu dài khơng q 255 kí tự, họ tên thí sinh

Kết ra: Ghi file text XAU.OUT gồm dịng chứa kết xâu xử lý Ví dụ:

XAU.INP XAU.OUT

NguYEn THI ThuY nhung Nguyen Thi Thuy Nhung

Bài 3: (6,0 điểm) Phần thưởng BAI3.PAS

Trong thi học sinh giỏi văn hóa cấp Huyện mơn Tin học học sinh có số điểm tích lũy riêng Số điểm tích lũy học sinh số nguyên dương K (0 < K ≤ 2109) Đội tuyển phòng giáo dục đào tạo Huyện Cam Lộ có N học sinh tham

quyết định thưởng cho học sinh đội tuyển Q triệu đồng, biết điểm tích lũy học sinh chia hết cho Q

Yêu cầu: Hãy tìm số nguyên dương Q lớn

Dữ liệu vào: Số nguyên dương N số lượng học sinh nhập từ bàn phím

Nhập điểm tích lũy N học sinh, số ghi cách dấu cách Dữ liệu ra: Ghi số nguyên dương Q tìm

Ví dụ:

PT.INP PT.OUT

5

15 24 45 36 27

3

Bài 4: ( điểm) Sinh xâu ký tự BAI4.PAS

Cho hai xâu X, Y gồm ký tự số từ đến biểu diễn sau:

X=x1, x2, x3…xn; Y= y1, y2,y3…ym (n,m<250) Hãy viết chương trình sinh xâu ST thỏa

mãn điều kiện sau :

- ST gồm ký tự số vừa có mặt xâu X, vừa có mặt xâu Y - Các ký tự số xâu ST xuất lần - Xâu ST đổi số nhận số đạt giá trị lớn

Dữ liệu vào : Cho file text SINHXAU.INP chứa xâu X xâu Y, xâu nằm dịng

Kết quả : Ghi hình số lớn nhận

SINHXAU.INP SINHXAU.OUT

X= “19012304” Y= “034012”

43210

X= “2468” Y= “3579”

Khong co

Yêu cầu: - Các tệp làm lưu theo tên Ví dụ: BAI1.PAS

HƯỚNG DẪN CHẤM HỌC SINH GIỎI MÔN TIN HỌC NĂM HỌC 2018 - 2019

Bài 1: (4 điểm ) Tính tổng

TEST Nhập n từ bàn phím Kết hình Điểm

1 3.74 1đ

2 2.46 1đ

3 100 87.11 1đ

4 150 Nhập lại N 1đ

Chương trình tham khảo program tinhtong;

uses crt;

var n,i:integer; s:real; begin clrscr; repeat

write('nhap n:');readln(n) until (5<n) and (n<=100); s:=0;

for i:=1 to n

s:=s+((i*(i+1))/((i+2)*(i+3))); write('Tong la:',s:2:2);

readln; end

Bài 2: (4,0 điểm) Xử lý xâu

Test XAU.INP XAU.OUT Điểm

1 NguYEn thi THUY nhung Nguyen Thi Thuy Nhung 1,0 Le thi nhu na Le Thi Nhu Na 1,0 Hoang THI TUYET Hoang Thi Tuyet 1,0

4 TRUONG HO NHAT ANH Truong Ho Nhat Anh 1,0

var st:string; i:integer; f1,f2:text; Begin

assign(f1,'xau.inp');reset(f1); assign(f2,'xau.out');rewrite(f2); read(f1,st);

while st[1]=' 'do delete(st,1,1);

while st[length(st)]=' ' delete(st,length(st),1); while pos(' ',st) > delete(st,pos(' ',st),1); for i:=1 to length(st)

if st[i] in ['A' 'Z'] then st[i]:=chr(ord(st[i])+32);

st[1]:=upcase(st[1]); for i:=1 to length(st)

if st[i]=' ' then st[i+1]:=upcase(st[i+1]); writeln(f2,st);

close(f1); close(f2); end

Bài 3: (6,0 điểm) Phần thưởng

TEST PT.INP PT.OUT Điểm

1

15 24 45 36 27

3 1đ

2

8 12

3

20 25 30 15 40

5 1đ

4

16 24 28 40

4 1đ

5

20 12 15 10 22 26 30 13

1 1đ

6 10

8 16 80 32 64 160 320 640 24 4000

8 1đ

Chương trình tham khảo Program Phan_thuong; Const fi='PT.INP';

fo='PT.OUT';

Type mmc=Array[0 101] of Longint; Var N:Longint;

A:mmc;

Function UCLN(x,y:Longint):Longint; Var sodu:Word;

Begin

sodu:=x mod y; While sodu<>0 Begin

x:=y; y:=sodu;

UCLN:=y; End;

Procedure Read_Data; Var f:text;

i:Longint; Begin

Assign(f,fi); Reset(f); Readln(f,N); For i:=1 to N Read(f,A[i]); Close(f); End;

Function USC:Longint; Var f:text;

i,mUSC:longint; Begin

mUSC:=UCLN(A[1],A[2]); for i:= to N

mUSC:=UCLN(mUSC,A[i]); USC:=mUSC;

End;

Procedure Write_Data; Var f:Text;

Begin

Write(f,USC); Close(f); End; BEGIN Read_Data; Write_Data; End

Bài 4: (6 điểm) SINH XÂU KÍ TỰ Mỗi test điểm

Test SINHXAU.INP SINHXAU.OUT

1 X= “19012304” Y= “034012”

43210

2 X= “2468” Y= “3579”

Khong co xau sinh

3 X= “abc19012304” Y= “b9123”

9321

Chương trình tham khảo program sinh_xau_ki_tu;

var s1,s2,s11,s22, xauchung: string; tam:char;

dem,i,j:integer; f1,f2:text; BEGIN

assign(f2,'SINHXAU.OUT') ; rewrite(f2);

dem:=0; s11:='';s22:='';xauchung:=''; while (dem=0) and not eof(f1)

begin

readln(f1,s1); readln(f1,s2); s11:=s11+s1; s22:=s22+s2; i:=1;

while i<=length(s11) begin

if (pos(s11[i],s22) >0) and (pos(s11[i],xauchung)=0) then

xauchung:=xauchung+s11[i]; inc(i);

end;

If xauchung=‟ ‟ then write (f2, „khong co xau sinh ra‟);

end;

If xauchung >‟ ‟ then begin

for i:=1 to length(xauchung) for j:=i+1 to length(xauchung) if xauchung[i]<xauchung[j] then

begin

tam:=xauchung[i];

xauchung[j]:=tam; end;

writeln(f2, 'xau sinh ra', xauchung); end;

Website HOC247 cung cấp môi trường học trực tuyến sinh động, nhiều tiện ích thơng minh, nội dung giảng biên soạn công phu giảng dạy giáo viên nhiều năm kinh nghiệm, giỏi kiến thức chuyên môn lẫn kỹ sư phạm đến từ trường Đại học trường chuyên danh tiếng

I. Luyện Thi Online

- Luyên thi ĐH, THPT QG: Đội ngũ GV Giỏi, Kinh nghiệm từ Trường ĐH THPT danh tiếng

xây dựng khóa luyện thi THPTQG các mơn: Tốn, Ngữ Văn, Tiếng Anh, Vật Lý, Hóa Học Sinh Học

- Luyện thi vào lớp 10 chun Tốn: Ơn thi HSG lớp 9 luyện thi vào lớp 10 chuyên Toán

trường PTNK, Chuyên HCM (LHP-TĐN-NTH-GĐ), Chuyên Phan Bội Châu Nghệ An trường Chuyên khác TS.Trần Nam Dũng, TS Pham Sỹ Nam, TS Trịnh Thanh Đèo Thầy Nguyễn Đức Tấn.

II. Khoá Học Nâng Cao HSG

- Tốn Nâng Cao THCS: Cung cấp chương trình Toán Nâng Cao, Toán Chuyên dành cho em HS

THCS lớp 6, 7, 8, u thích mơn Tốn phát triển tư duy, nâng cao thành tích học tập trường đạt điểm tốt kỳ thi HSG

- Bồi dưỡng HSG Toán: Bồi dưỡng phân mơn Đại Số, Số Học, Giải Tích, Hình Học và Tổ Hợp

dành cho học sinh khối lớp 10, 11, 12 Đội ngũ Giảng Viên giàu kinh nghiệm: TS Lê Bá Khánh Trình, TS Trần Nam Dũng, TS Pham Sỹ Nam, TS Lưu Bá Thắng, Thầy Lê Phúc Lữ, Thầy Võ Quốc Bá Cẩn đơi HLV đạt thành tích cao HSG Quốc Gia

III. Kênh học tập miễn phí

- HOC247 NET: Website hoc miễn phí học theo chương trình SGK từ lớp đến lớp 12 tất

các môn học với nội dung giảng chi tiết, sửa tập SGK, luyện tập trắc nghiệm mễn phí, kho tư liệu tham khảo phong phú cộng đồng hỏi đáp sôi động

- HOC247 TV: Kênh Youtube cung cấp Video giảng, chuyên đề, ôn tập, sửa tập, sửa đề thi

miễn phí từ lớp đến lớp 12 tất mơn Tốn- Lý - Hố, Sinh- Sử - Địa, Ngữ Văn, Tin Học Vững vàng tảng, Khai sáng tương lai

Học lúc, nơi, thiết bi – Tiết kiệm 90%

Học Toán Online Chuyên Gia