BCMARA spoj PTIT – Chạy đua marathon
Nguồn đề bài: http://www.spoj.com/PTIT/problems/BCMARA/ 1. Đề bài BCMARA spoj PTIT John cho các con bò của mình chạy đua marathon! Thời gian bò N (1 <= N <= 5,000) về đích được biểu diễn theo dạng Số giờ (0 <= Số giờ <= 99), Số phút (0 <= Số phút <= 59), và số ...
Nguồn đề bài: http://www.spoj.com/PTIT/problems/BCMARA/
1. Đề bài BCMARA spoj PTIT
John cho các con bò của mình chạy đua marathon! Thời gian bò N (1 <= N <= 5,000) về đích được biểu diễn theo dạng Số giờ (0 <= Số giờ <= 99), Số phút (0 <= Số phút <= 59), và số giây (0 <= Số giây <= 59). Để xác định nhà vô địch, John phải sắp xếp các thời gian (theo số giờ, số phút, và số giây) theo thứ tự tăng dần, thời gian ít nhất xếp đầu tiên.
Ví dụ: Với 3 thời gian như sau:
11:20:20
11:15:12
14:20:14
Kết quả sau khi sắp xếp là:
11:15:12
11:20:20
14:20:14
INPUT FORMAT:
* Line 1: 1 số nguyên: N
* Lines 2..N+1: Dòng i+1 chứa thời gian bò i được mô tả bởi 3 số nguyên cách bởi dấu cách : Số Giờ , Số Phút, Số giây.
OUTPUT FORMAT:
* Dòng 1..N: Mỗi dòng chứa thời gian của 1 con bò là 3 số nguyên cách nhau bởi dấu cách sau khi đã sắp xếp.
SAMPLE INPUT:
3
11 20 20
11 15 12
14 20 14
SAMPLE OUTPUT:
11 15 12
11 20 20
14 20 14
Gợi ý: đổi giờ phút sang giây và dùng thuật toán sắp xếp Quicksort để sắp xếp, sau đó xuất ra kết quả.
2. code tham khảo BCMARA spoj PTIT
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 | const fi='; nmax=5500; type data=longint; dulieu=record h,p,s,sum:data; end; var A:array[0..nmax] of dulieu; n:data; f:text; procedure docfile; var i,j:data; begin assign(f,fi); reset(f); readln(f,n); for i:=1 to n do begin readln(f,a[i].h,a[i].p,a[i].s); a[i].sum:=a[i].h*3600+a[i].p*60+a[i].s; end; close(f); end; procedure sort(l,r: longint); var i,j,x: longint; y:dulieu; begin i:=l; j:=r; x:=a[(l+r) div 2].sum; repeat while a[i].sum<x do inc(i); while x<a[j].sum do dec(j); if not(i>j) then begin y:=a[i]; a[i]:=a[j]; a[j]:=y; inc(i); j:=j-1; end; until i>j; if l<j then sort(l,j); if i<r then sort(i,r); end; procedure xuli; var i:data; begin for i:=1 to n do writeln(a[i].h,' ',a[i].p,' ',a[i].s); end; begin docfile; sort(1,n); xuli; end. |
