Tìm nhiều giá trị nhỏ nhất trong một mảng record Pascal

Chào các bác Vforum, hôm nay em trong lúc "làm việc" thì có một số vấn đề ạ.
Em có 1 record
type datavt=record;
ti:real;
xs,xt:longint;
end;

và một mảng k:array[0..1000]of datavt;
hiện tại k.ti có một số giá trị nào nào đó, và em muốn sắp xếp mảng tăng dần dựa trên giá trị của k.ti và đồng thời k.xs và k.xt cũng được di chuyển theo k.ti luôn ạ
VD: ta có k[1].ti=2 k[2].ti=3 k[3].ti=1
k[1].xs=1 k[2].xs=2 k[3].xs=3
k[1].xt=1 k[2].xt=2 k[3].xt=3

Sau khi sắp xếp ta sẽ có
k[1].ti=1 k[2].ti=2 k[3].ti=3
k[1].xs=3 k[2].xs=1 k[3].xs=2
k[1].xt=3 k[2].xt=1 k[3].xt=2

Em nghĩ cái này làm hơi cực nên bác nào chịu khó thương em thì giúp em nhé, cái này không phải làm bài tập, em đang học tập thôi ạ, mong các bác support đừng hiểu lầm cho em ạ
 

taplamhacker

♥ Thanh Trâm ♥
1 biến tạm có kiểu record
2 biến cần so sánh
so sánh theo 1 thuộc tính nhất định rồi hoán vị theo biến tạm

 

Bài viết đang hot

Thống kê

Chủ đề
102,777
Bài viết
470,596
Thành viên
340,591
Thành viên mới nhất
Quang Nguyễn NĐ
Top