Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống
1
/ 12 trang
THÔNG TIN TÀI LIỆU
Thông tin cơ bản
Định dạng
Số trang
12
Dung lượng
75,5 KB
Nội dung
Së Gi¸o dôc vµ §µo t¹o
Qu¶ng b×nh
SBD :
§Ò chÝnh thøc
kú thi CHäN häc sinh giái líp 12
n¨m häc 2007 - 2008
m«n: tin häc-Vßng 2
Thời gian 180 phút, không kể thời gian giao đề
===========================================================
ĐỀ RA
Sử dụng ngôn ngữ lập trình Turbo Pascal để giải các bài toán sau:
Câu 1: (3,0 điểm) Khoảng cách Manhattan.
DISTANCE.PAS
Trên mặt phẳng tọa độ cho N điểm. Mỗi điểm được xác định bởi một cặp số
(x,y), trong đó x là hoành độ và y là tung độ của một điểm.
Người ta định nghĩa: Khoảng cách Manhattan giữa hai điểm A(xA,yA) và
B(xB,yB) là giá trị được tính theo công thức: |xA-xB| + |yA-yB|.
Yêu cầu: Xác định khoảng cách Manhattan lớn nhất giữa 2 điểm trong N điểm.
Dữ liệu vào: Cho trong file văn bản DISTANCE.INP có cấu trúc như sau:
- Dòng 1: Ghi số nguyên dương N, là số lượng điểm được cho trên mặt phẳng.
- N dòng tiếp theo: Mỗi dòng ghi hai số nguyên x y, là tọa độ của một điểm. Hai số
được ghi cách nhau ít nhất một dấu cách. (1 < N < 1000; -10000 < x, y < 100000)
Dữ liệu ra: Ghi ra file văn bản DISTANCE.OUT theo cấu trúc như sau:
- Dòng 1: Ghi một số nguyên dương là khoảng cách Manhattan lớn nhất tìm được.
Ví dụ:
DISTANCE.INP DISTANCE.OUT
5
12
1 1
3 5
2 7
8 1
4 4
Câu 2: (3,5 điểm) Số chính
NUMBER.PAS
Cho mét tËp hîp T gåm N phÇn tö cã gi¸ trÞ nguyªn d¬ng.
Ngêi ta ®Þnh nghÜa: Sè x thuéc tËp hîp T ®îc gäi lµ sè chÝnh nÕu sè x xuÊt
hiÖn trong trong tËp T nhiÒu h¬n N/2 lÇn.
Yªu cÇu: X¸c ®Þnh trong tËp hîp T cã tån t¹i sè chÝnh hay kh«ng.
D÷ liÖu vµo: Cho trong file v¨n b¶n NUMBER.INP cã cÊu tróc nh sau:
- Dßng 1: Ghi sè nguyªn d¬ng N, lµ sè lîng phÇn tö cña tËp hîp T. (1=1) do
Begin
if b^[i]='T' then
Begin
s:=1;
k:=i-1;
while (b^[k]='T') and (k>=1) do
Begin inc(s);
dec(k); end;
write(f,'T',s);
i:=k;
end
else
Begin
s:=1;
k:=i-1;
while (b^[k]='L') and (k>=1) do
Begin
inc(s);
dec(k);
end;
write(f,'L',s);
i:=k;
end;
end;
end
else
write(f,-1);
close(f);
end;
Begin
new(a);
new(b);
new(tum);
new(co);
nhap;
init;
xuli;
xuat;
dispose(a);
dispose(co);
dispose(b);
dispose(tum);
end.
... xuli; xuat; END Sở Giáo dục Đào tạo Quảng bình SBD : Đề thức kỳ thi CHọN học sinh giỏi lớp 12 năm học 2007 - 2008 môn: tin học- Vòng Thi gian 180 phỳt, khụng k thi gian giao ===========================================================... CZIAMA.OUT amai 11 itacay ahomi == Ht == Sở Giáo dục Đào tạo kỳ thi CHọN học sinh giỏi lớp 12 Quảng bình năm học 2007 - 2008 môn: tin học- Vòng Đáp án hớng dẫn chấm ===========================================================... DOCDIA.OU2 10 10 -1 L2T1 === Ht === Sở Giáo dục Đào tạo kỳ thi CHọN học sinh giỏi lớp 12 Quảng bình năm học 2007 - 2008 môn: tin học- Vòng Đáp án hớng dẫn chấm ===========================================================