Đề thi học sinh giỏi Tin học THCS - Năm học 2003-2004

KỲ THI HỌC SINH GIỎI THCS
NĂM HỌC 2003 – 2004
MÔN: TIN HỌC
ĐỀ HỌC SINH GIỎI MÔN TIN HỌC THCS – NĂM HỌC 2003-2004
KỲ THI NGÀY 20/2/2004
BÀI 1 : BÀI TOÁN DIỆN TÍCH TAM GIÁC
	Cho một hình chữ nhật ABCD, cạnh AB=a, cạnh BC=b. a,b là các số nguyên dương trong khoảng [1, 100]
	Một điểm M chạy trong đoạn BC với BM=x . x là số nguyên duơng trong khoảng [0, b], một điểm N chạy trong đoạn CD với CN=x
	Tính giá trị lớn nhất và giá trị nhỏ nhất của diện tích tam giác AMN khi M, N lưu động. 
Dữ liệu vào: Được cho trong tập tin CHUNHAT.inp, gồm một dòng ghi hai số nguyên dương lần lượt là a, b. Hai số cách nhau một khoảng trắng
Dữ liệu ra : Yêu cầu xuất ra tập tin CHUNHAT.out, gồm bốn dòng:
	+ Dòng đầu là giá trị lớn nhất của diện tích tam giác AMN (một chữ số thập phân)
	+ Dòng thứ hai là một giá trị của x để diện tích tam giác AMN đạt giá trị lớn nhất 
	+ Dòng thứ ba là giá trị nhỏ nhất của diện tích tam giác AMN (một chữ số thập phân)
	+ Dòng thứ tư là một giá trị của x để diện tích tam giác AMN đạt giá trị nhỏ nhất
Ví dụ: 
CHUNHAT.inp 
	10 6
CHUNHAT.out
	 30.0
	 0
	17.5
	 5
Yêu cầu kỹ thuật :
+ Có kiểm tra dữ liệu nhập
+ Bài làm của thí sinh lưu trên tập tin Bailam1.pas
BÀI 2: BÀI TOÁN Ô VUÔNG 
Cho một bảng chữ nhật gồm m x n điểm ( m hàng ngang, n hàng đứng) nằm trên các mắt lưới ô vuông. Các điểm liền kề trên cùng một hàng hoặc một cột có thể có nối với nhau bởi một đoạn thẳng có kích thước bằng 1. 
Trên mỗi hàng có nhiều nhất n-1 đoạn thẳng nằm ngang nối các điểm liền nhau, trên mỗi cột có nhiều nhất là m-1 đoạn thẳng thẳng đứng nối các điểm liền nhau. Các đoạn liền kề nhau có thể sẽ tạo ra các ô vuông trên bảng (chỉ quan tâm các ô vuông có độ dài cạnh bằng 1). Xem hình dưới:
Với bảng trên ta có 4 hàng ngang (mỗi hàng 5 điểm) và 5 hàng đứng (mỗi hàng 4 điểm). Các đoạn thẳng nối chúng tạo nên 3 ô vuông.
Để mô tả bảng người ta dùng hai mảng nhị phân: một mảng diễn tả các đoạn thẳng nằm ngang, một mảng diễn tả các đoạn thẳng thẳng đứng. 
Trong các mảng, số 1 diễn tả có đoạn thẳng nối hai điểm liên tiếp, số 0 diễn tả không có đoạn thẳng nối hai điểm.
Trong hình vẽ trên, (bảng có 4x5 điểm) thì ta có hai mảng sau:
 Ngang	Dọc
1
0
1
0
1
0
0
0
1
1
1
1
0
1
0
0
1
1
1
0
0
1
1
0
0
0
0
1
1
0
0
Nhiệm vụ :
Lập trình đếm số các ô vuông có cạnh dộ dài bằng 1 tạo bởi các đoạn nối có trên bảng đã cho.
Dữ liệu vào: gồm ba tập tin 
Kthuoc.inp: gồm 2 số nguyên dương (nhỏ hơn 100) lần lượt là m, n. Hai số cách nhau một khoảng trắng 
Ngang.inp và Doc.inp ( như mô tả ở phần trên). Hai số liền nhau cách nhau một khoảng trắng.
Dữ liệu ra : Xuất ra màn hình số ô vuông có trên bảng đã cho.
Ví dụ : 
Kthuoc.inp: 
4 5
Ngang.inp và Doc.inp chứa nội dung như hai bảng trên.
Xuất ra màn hình : 3
Lưu ý: Chỉ tính các ô vuông có độ dài cạnh bằng 1 
Yêu cầu kỹ thuật :
+ Không cần kiểm tra dữ liệu nhập
+ Bài làm của thí sinh lưu trên tập tin Bailam2.pas
HẾT
MỘT SỐ BỘ TEST THAM KHẢO
Bài 1.
CHUNHAT.INP
CHUNHAT.OUT
Test 1
10
20
Sai dữ liệu
Test 2
40
40
800.0
0 (hay 40)
600.0
20
Test 3
10
6
30.0
0
17.5
5
Test 4
20
10
100.0
0
50.0
10
Test 5
20
6
60.0
0
18.0
6
Bài 2.
DOC.INP
KTHUOC.INP
NGANG.INP
XUAT
Test 1
1 1 1 1 1 1 1
1 1 0 0 0 1 1
1 1 0 0 1 1 1
1 1 1 1 1 1 1
5 7
1 1 1 1 1 1
1 1 0 0 1 1
1 1 0 0 1 1
1 1 0 0 1 1
1 1 1 1 1 1
13
Test 2
1 1 1 0 0
1 1 0 0 0
0 1 1 0 0
4 5
1 0 1 0
1 0 0 0
1 1 1 1
0 1 0 0
3
Test 3
0 0 1 0 0 0
0 0 1 0 0 0
0 0 1 0 0 0
0 0 1 0 0 0
0 0 1 0 0 0
6 6
0 0 0 0 0
0 0 0 0 0
1 1 1 1 1
0 0 0 0 0
0 0 0 0 0
0 0 0 0 0
0
Test 4
1 0 1 1 0
1 0 1 0 1
0 1 1 0 1
1 1 0 1 1
5 5
1 1 0 1
0 0 1 1
1 1 1 1
1 0 1 0
1 1 1 1
1
THAM KHẢO MỘT SỐ BÀI LÀM HAY
BÀI 1.
program bailam1;
uses crt;
const finp='chunhat.inp';
 fout='chunhat.out';
var i,j,a,b,s,luu,luu1:longint;
 max,min,dt:real;
 f,g:text;
procedure nhap;
begin
 {$i-}
 assign(f,finp); reset(f);
 close(f);
 if (IOresult0) then
 begin
 write('File bi hu hoac khong ton tai');
 readln;
 halt;
 end;
 assign(f,finp); reset(f);
 readln(f,a,b);
 if (IOresult0) or (a100) or (b>100) then
 begin
 write('Nhap sai');
 readln; halt;
 end;
 {$i+}
 close(f);
end;
begin
 clrscr;
 nhap;
 s:=a*b;
 max:=s/2; min:=max;
 for i:=0 to b do
 begin
 dt:=s-(a*i)/2-((b-i)*i)/2-((a-i)*b)/2;
 if dt<min then
 begin
 luu:=i; min:=dt;
 end;
 if dt>max then
 begin
 max:=dt; luu1:=i;
 end;
 end;
 assign(g,fout); rewrite(g);
 writeln(g,max:0:1);
 writeln(g,luu1);
 writeln(g,min:0:1);
 writeln(g,luu);
 close(g);
 writeln(max:0:1);
 writeln(luu1);
 writeln(min:0:1);
 writeln(luu);
 writeln(' Ngoai ra ket qua con duoc xuat vao file CHUNHAT.out');
 delay(300);
end.
BÀI 2.
program bailam2;
uses crt;
const fin1='kthuoc.inp';
 fin2='ngang.inp';
 fin3='doc.inp';
var f1,f2,f3:text;
 a,nga,doc:array[1..100,1..100] of integer;
 i,m,n,d,j:integer;
procedure nhap;
var i,j:integer;
begin
 assign(f1,fin1); reset(f1);
 read(f1,m,n); close(f1);
 assign(f2,fin2); reset(f2);
 for i:=1 to m do
 begin
 for j:=1 to n-1 do
 read(f2,nga[i,j]);
 readln(f2);
 end;
 close(f2);
 assign(f3,fin3); reset(f3);
 for i:=1 to m-1 do
 begin
 for j:=1 to n do
 read(f3,doc[i,j]);
 readln(f3);
 end;
end;
begin
 clrscr;
 nhap; d:=0;
 for i:=1 to m do
 for j:=1 to n do
 if nga[i,j]+nga[i+1,j]+doc[i,j]+doc[i,j+1]=4 then inc(d);
 write(d);
 readln;
end.