Đề thi HSG Lớp 9 môn Tin học - Năm học 2017- 2018 (Có đáp án)

Dòng 1 ghi số phần tử của dãy số nguyên.
Dòng 2 ghi các giá trị của dãy số nguyên.
Dữ liệu ra : Yêu cầu xuất ra tập tin CP.out, gồm 1 dòng ghi kết quả kiểm tra trong dãy có hoặc không có số chính phương hoặc tất cả các số trong dãy đều chính phương.
	*Ví dụ: 
CP.inp
CP.out
4
2 4 5 6
Trong dãy có số chính phương 
Bài 3: (8,0 điểm)
 Nhập một xâu ký tự. Đưa xâu đó về dạng chuẩn, nghĩa là:
Không còn ô trống ở đầu và cuối xâu;
Không còn hai ô trống kề nhau;
Không còn các ô trống đứng liền sau dấu chấm;
Ký tự đầu tiên và các ký tự sau dấu chấm phải viết hoa.
Dữ liệu: File văn bản xauchuan.INP, gồm một dòng ghi một xâu.
Kết quả: Ghi ra file văn bản xauchuan.OUT, ghi xâu đã được đưa về dạng chuẩn
Ví dụ:
xauchuan.INP
xauchuan.OUT
asjff. kfkfk
Asjff .Kfkfk
-----------------------------Hết-------------------------
NGƯỜI RA ĐỀ THI
(Họ và tên, chữ ký)
 Vũ Thị xuân Hoa
NGƯỜI THẨM ĐỊNH
VÀ PHẢN BIỆN CỦA TRƯỜNG
(Họ và tên, chữ ký)
XÁC NHẬN CỦA BGH
(Họ và tên, chữ ký)
 Bùi Thị Phương Huế
MÃ KÍ HIỆU
HƯỚNG DẤN CHẤM ĐỀ THI HỌC SINH GIỎI LỚP 9
Năm học 2017- 2018
MÔN: TIN HỌC
Thời gian làm bài: 150 phút
Đáp án gồm 3 trang
Bài 1: (6 điểm)
STT
Tên file test (tg.inp)
Kết quả (tg.out)
Điểm
1
tg1.inp
2
2
tg2.inp
2
3
tg3.inp
2
Bài 2: (6 điểm)
STT
Tên file test (cp.INP)
Kết quả( cp.OUT)
Điểm
1
cp1.INP
2
2
cp2.INP
2
3
cp3.INP
2
Bài 3: (8 điểm)
STT
Tên file test(xauchuan.inp)
Kết quả(xauchuan.out)
Điểm
1
xauchuan1.inp
2
2
xauchuan2.inp
2
3
xauchuan3.inp
2
4
xauchuan4.inp
2
Bài 1:
program bai1;
var n,m,s:integer;
 f,g:text;
function ucln(m,n:integer):integer;
 begin
 while mn do
 if m>n then
 m:=m-n
 else
 n:=n-m;
 ucln:=m;
 end;
Begin
 assign(f,'tg.inp');reset(f);
 assign(g,'tg.out');rewrite(g);
 read(f,m,n);
 s:=ucln(m,n);
 write(g,'dang toi gian cua phan so:',m div s,'/',n div s);
 close(f);close(g);
end.
----------------------------------------------------------------------------
Bài 2: ...end;
 k:=pos('.'+tr,w);
 if k>0 then
 begin
 delete(w,k+1,1);
 tiep:=true;
 end;
 end;
 for i:=1 to length(w)-1 do
 if w[i]='.' then w[i+1]:=upcase(w[i+1]);
 w[1]:=upcase(w[1]);
 writeln(g,'in lai xau:');
 writeln(g,w);
 close(f);close(g);
end.
-----------------------------Hết-------------------------
PHẦN KÝ XÁC NHẬN:
	TÊN FILE ĐỀ THI: TI-02-HSG9-18-PG3
 MÃ ĐỀ THI (DO SỞ GD&ĐT GHI): 	
 TỔNG SỐ TRANG (GỒM ĐỀ THI VÀ HƯỚNG DẪN CHẤM) LÀ: 05 TRANG.
NGƯỜI RA ĐỀ THI
(Họ và tên, chữ ký)
 Vũ Thị xuân Hoa
NGƯỜI THẨM ĐỊNH
VÀ PHẢN BIỆN CỦA TRƯỜNG
(Họ và tên, chữ ký)
XÁC NHẬN CỦA BGH
(Họ và tên, chữ ký)
 Bùi Thị Phương Huế