Pascal 28 Mot so bai tap Pascal hay

<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>

<b>Độ bền trung bình </b>

<b>Bài toán</b>

Mt thớ nghiệm không gian mới bao gồm N đối tợng, đợc đánh nhãn từ 1 tới N. Đợc
biết, N là một số lẻ. Mỗi đối tợng có một độ bền khác nhau, đợc biểu diễn bằng một số
tự nhiên. Biết thêm là mỗi độ bền Y đều thoả mãn điều kiện 1Ê<i>Y</i>Ê<i>N. Đối tợng bền</i>
trung bình là đối tợng X có số lợng các đối tợng kém bền hơn nó bằng số lợng các đối
tợng bền hơn nó. Bạn phải viết chơng trình xác định đối tợng bền trung bình. Thật
khơng may, vhỉ có 1 cách so sánh độ bền bằng 1 thiết bị cho phép chỉ ra đối tợng bền
trung bình từ 3 đối tợng khác nhau.

Th viƯn

Bạn đợc sử dụng th viện có tên là device với 3 phộp x lý:

à GetN,gọi một lần ở đầu chơng trình, không có tham số, hàm này trả về giá trị
N,

ó Med3, gọi với tham số là 3 nhãn của 3 đối tợng khác nhau và trả về kết quả là
nhãn đối tợng bền trung bình.

ã Answer,gọi một lần ở cuối chơng trình với tham số là nhãn đối tợng độ bền trung
bình tìm đợc và đồng thơì kết thúc ử lý trong chơng trình của bạn.

<b>Híng dÉn cho nh÷ng ngời lập trình trên Pascal: đa vào câu lệnh</b>
uses device;

ở đầ chơng trình nguồn
<b>Thử nghiệm </b>

Bn cú th th lm việc với th viện bằng cách tạo ra file văn bản DEVICE.IN. File

phải có 2 dịng. Dịng đầu chứa 1 số nguyên N: số đối tợng. Dòng thứ 2 chứa các số
nguyên từ 1 tới N theo trình tự: số nguyên thứ i là độ bền của đối tợng nhãn i.

<b>VÝ dô</b>

DEVICE.IN

File DEVICE.IN ổ trên mô tả 5 đối tợng với các độ bền nh sau:

Nh·n 1 2 3 4 5

§é bỊn 2 5 4 3 1

Đây là dãy 5 lần gọi th viện đúng:

1.<i>GetN (trong Pascal) , trả về giá trị 5.</i>

2.Med3(1,2,3) trả về giá trị 3.

3.Med3(3,4,1) trả về giá trị 4.

4.Med3(4,2,5) trả về giá trị 4.
5.Answer(4)

5

</div>
<span class='text_page_counter'>(2)</span><div class='page_container' data-page=2>

<b>Ràng buộc</b>

ó <i>S đối tợng N thoả mãn điều kiện 5ÊN</i>Ê1499 và N là số lẻ.
ã Với mỗi đối tợng nhãn i, ta có 1Ê<i>i</i>Ê<i>N.</i>

ã Với mỗi độ bền Y của đối tựng, ta có 1Ê<i>Y</i>Ê<i>N và tất cả các độ bêng đều khác</i>
nhau từng đơi một.

· Tªn th viªn Pascal: device.tpu

ã Hàm và thủ tục Pascal đợc khai báo: function GetN:
integer;

function Med3(x,y,z:integer):integer;
procedure Answer(m:integer);

</div>

<!--links-->