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

 

Thống kê

Chủ đề
102,787
Bài viết
470,610
Thành viên
340,593
Thành viên mới nhất
winspire
Top