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]
(1)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<n100, 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 ≤ 2109) Đội tuyển phòng giáo dục đào tạo Huyện Cam Lộ có N học sinh tham
(2)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
(3)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
(4)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
(5)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;
(6)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
(7)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
(8)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];
(9)xauchung[j]:=tam; end;
writeln(f2, 'xau sinh ra', xauchung); end;
(10)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