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 ===========================================================