[r]
(1)Độ bền trung bình Bài toán
Một thí nghiệm khơng gian bao gồm N đối tợng, đợc đánh nhãn từ tới N Đợc biết, N số lẻ Mỗi đối tợng có độ bền khác nhau, đợc biểu diễn số tự nhiên Biết thêm độ bền Y thoả mãn điều kiện 1ÊYÊN Đối tợng bền trung bình đối tợng X có số lợng đối tợng bền số lợng đối tợng bề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ó cách so sánh độ bền thiết bị cho phép đối tợng bền trung bình từ đối tợng khác
Th viÖn
Bạn đợc sử dụng th viện có tên device với phép xử lý:
· GetN,gäi mét lÇn đầu chơng trình, tham số, hàm trả giá trị N,
ó Med3, gi vi tham số nhãn đối tợng khác trả kết nhãn đối tợng bền trung bình
ã Answer,gọi lần cuối chơng trình với tham số nhãn đối tợng độ bền trung bình tìm đợc đồng thơì kết thúc lý chơng trình bạn
Híng dÉn cho ngời lập trình Pascal: đa vào câu lệnh uses device;
ở đầ chơng trình nguồn Thử nghiƯm
Bạn thử làm việc với th viện cách tạo file văn DEVICE.IN File phải có dịng Dịng đầu chứa số nguyên N: số đối tợng Dòng thứ chứa số nguyên từ tới N theo trình tự: số nguyên thứ i độ bền đối tợng nhãn i
VÝ dô
DEVICE.IN
File DEVICE.IN ổ mô tả đối tợng với độ bền nh sau:
Nh·n
§é bỊn
Đây dãy lần gọi th viện đúng:
1.GetN (trong Pascal) , trả giá trị 5.
2.Med3(1,2,3) trả giá trị
3.Med3(3,4,1) trả giá trị
4.Med3(4,2,5) trả giá trị 5.Answer(4)
5
(2)Rµng buéc
ã Số đối tợng N thoả mãn điều kiện 5ÊNÊ1499 N số lẻ ã Với đối tợng nhãn i, ta có 1ÊiÊN.
ã Với độ bền Y đối tựng, ta có 1ÊYÊN tất độ bêng khác đôi
· Tªn th viªn Pascal: device.tpu
ã Hàm thủ tục Pascal đợc khai báo: function GetN: integer;
function Med3(x,y,z:integer):integer; procedure Answer(m:integer);