Đề thi HSG Tin 9 huyện Vĩnh Tường năm 2010-2011
Nội dung tài liệu
Tải xuống
Link tài liệu:
Các tài liệu liên quan
-
![Đề thi học kì 2 Tin 9 trường THCS Nguyễn Chí Thanh năm 2021-2022]()
-
![Đề thi học kì 1 Tin 9 trường THPT Phan Châu Trinh năm 2021-2022]()
-
![Đề thi học kì 2 Tin 9 trường PTDTBT - THCS Liên xã La Êê- Chơ Chun năm 2021-2022]()
-
![Đề thi học kì 1 Tin 9 trường THCS Đông Hưng A năm 2021-2022]()
-
![Đề thi học kì 1 Tin 9 trường THCS Đức Lân năm 2021-2022]()
-
![Đề thi học kì 2 Tin 9 trường THCS Nhơn Bình năm 2019-2020]()
-
![Đề thi giữa kì 1 Tin 9 trường THCS Thị trấn Thới Lai năm 2020-2021]()
-
![Đề thi giữa kì 1 Tin 9 trường THCS Thị trấn Thới Lai năm 2020-2021]()
-
![Đề thi giữa kì 1 Tin 7 trường THCS Phú Xuân năm 2020-2021]()
-
![Đề thi học kì 2 Tin 9 trường THCS Bắc Lệnh năm 2020-2021]()
Có thể bạn quan tâm
Thông tin tài liệu
Phßng gd- §T
§Ò thi chän häc sinh giái líp
9
vÜnh têng
ĐỀ CHÍNH THỨC
N¨m häc 2010- 2011
m«n: tin häc
Thêi gian lµm bµi: 150
phót
Bài 1. Tên file được đặt là BAI1.PAS
Nhập một xâu kí tự S khác rỗng.
Yêu cầu: - Đếm trong xâu có bao nhiêu từ.
- Thực hiện chuẩn hoá xâu. Tức là xoá các dấu cách thừa và chuyển
các chữ cái đầu thành chữ hoa, những ký tự khác thành chữ thường.
Dữ liệu vào: Được cho trong tệp BAI1.INP gồm 1 dòng ghi xâu S
Dữ liệu ra: Kết quả ghi ra tệp BAI1.OUT có cấu trúc như sau:
- Dòng 1: Ghi số lượng từ có trong xâu S.
- Dòng 2: Ghi xâu S sau khi đã được chuẩn hoá.
Ví dụ:
BAI1.INP
BAI1.OUT
pHong giAo duC vA daO tAo vInh tUong 8
Phong Giao Duc Va Dao Tao Vinh Tuong
Bài 2. Tên file được đặt là BAI2.PAS
Tại vương quốc Ba Tư xa xưa, người ta tổ chức cuộc thi tìm dãy số hạnh
phúc: Các tràng trai, cô gái thông minh trong thời gian ngắn nhất phải tìm ra
được một dãy số hạnh phúc có nhiều phần tử nhất.
Dãy số tự nhiên a1, a2, …, ak được gọi là hạnh phúc nếu nó thoả mãn các
điều kiện sau:
- Dãy trên là dãy giảm dần.
- Với mọi i (1
' ') then dem:= dem +1;
Sotu:= dem;
end;
Procedure Chuanhoa(Var S: String);
Begin
While S[1]=' ' do delete(S,1,1);
While S[length(s)]=' ' do delete(S,length(S),1);
For i:= length(S) downto 2 do
if (S[i]=' ')and(S[i-1]=' ')then delete(S,i,1);
S[1]:= Upcase(S[1]);
for i:= 2 to length(S) do
if S[i-1]=' ' then s[i]:=Upcase(S[i])
else if S[i] in ['A'..'Z'] then S[i]:= chr(ord(S[i])+32);
end;
BEGIN
Nhap;
Assign(f,Fo);
Rewrite(f);
Writeln(f,Sotu(S));
chuanhoa(S);
Writeln(f,S);
close(f);
END.
Bai 2
Const fi='HAPPY.INP';
fo='HAPPY.OUT';
Var i,n,dem:longint;
f:text;
function So_Nguyen_To(so:longint):boolean;
var i:longint;
begin
5
So_Nguyen_To:=False;
for i:=2 to TRUNC(SQRT(so)) do
if so mod i = 0 then exit;
So_Nguyen_To:=True;
end;
Procedure Nhap;
begin
Assign(f,fi);
reset(f);
read(f,n);
close(f);
end;
Begin
nhap;
Assign(f,fo);
rewrite(f);
dem := 0;
for i:=n downto 1 do
if n mod i = 0 then
begin
write(f,i,' ');
inc(dem);
if dem mod 10 = 0 then writeln;
end
else
if So_Nguyen_To(i) then
begin
write(f,i,' ');
inc(dem);
if dem mod 10 = 0 then writeln;
end;
writeln(f);
close(f);
End.
Bai 3
Const Fi='BANGSO.INP';
Fo='BANGSO.OUT';
Var f:TEXT;
max,i,j,im,jm,m,n,tg : integer;
a : array[1..100,1..100] of integer;
Procedure nhap;
Var i,j : integer;
Begin
assign(f,Fi);
reset(f);
readln(f,m,n);
for i := 1 to m do
for j := 1 to n do read(f,a[i,j]);
close(f);
End;
procedure xepdong(k: integer);
var i,j, tg : integer;
6
begin
for i := 1 to n do
for j := i+1 to n do
if a[k,i] > a[k,j] then
begin
tg := a[k,i];
a[k,i]:= a[k,j];
a[k,j] := tg;
end;
end;
BEGIN
nhap;
assign(f,fo);
rewrite(f);
max := a[1,1];
im := 1; jm := 1;
for i := 1 to m do
for j := 1 to n do
if max < a[i,j] then
begin
max := a[i,j];
im := i;
jm := j;
end;
writeln(f,'(',im,',',jm,')');
for i := 1 to m do xepdong(i);
for i := 1 to m do
begin
for j := 1 to n do write(f,a[i,j]:5);
writeln(f);
end;
7