Dạo này thấy box Pascal ỉu xìu quá!

[Rikku]

... Thôi đáp án luôn ^^
Đọc file 1 lần
Số m xuất hiện >=n/2 lần --> từng chữ số của nó cũng xuất hiện >=n/2 lần...
lập mảng a[x][y] là số lần xuất hiện của chữ số x tại vị trí y...
Thế thôi, lọc ra

[condecodon2003]

Nice nice. Suýt đúng đáp án ^^
Sao lại phải đổi ra bit làm gì , 10 chữ số là 10 chữ số ^^ ko đổi đề

OK là 10 chữ số, thế thì làm với số thập phân luôn, cũng tương tự như vậy, ko fai đổi ra nhị phân làm gì nữa.

Còn nữa: xin lỗi thuật toán hơi thừa 1 chút, nếu chắc chắn có số đó rồi thì chỉ cần đọc file 1 lần thôi là đủ, ko cần đọc lần 2 để đếm nữa

[truongngocdai]

haha, đang định post cách giải lên thì anh Rikku post lên mất rồi, để đợt sau vậy

[F12]

... Thôi đáp án luôn ^^
Đọc file 1 lần
Số m xuất hiện >=n/2 lần --> từng chữ số của nó cũng xuất hiện >=n/2 lần...
lập mảng a[x][y] là số lần xuất hiện của chữ số x tại vị trí y...
Thế thôi, lọc ra

Độ phức tạp là 10N.

Cách của em post chỉ là 1N.

Với N=1 triệu thì thấy rõ cách nào nhanh hơn ngay.

[truongngocdai]

Chẳng hiểu gì hết trơn, mấy anh "cao siêu" quá

[Rikku]

Chạy nhanh hơn thật

[truongngocdai]

đâu, cách của F12 là 2N chứ

[bete]

Thân gửi F12:

result:=0;count:=0;
For i := 1 to n do begin
   read(f,k);
   if (k=result) then inc(count) else dec(count);
   if (count<0) then begin result:=k; count:=1; end;
end;

Không biết tui có hiểu lộn cách giải của bạn hay không ?
Cho dãy số 2, 4, 3, 3, 4, 4 (6 con số, số 4 lặp 3 lần):

Khởi tạo:
result:=0; count:=0;

Đọc vô k=2:
k <> result => count := count-1 (count: -1);
count < 0 => result := k; count := 1 (result: 2; count: 1)

Đọc vô k=4:
k <> result => count := count-1 (count: 0);
count >= 0 => (result: 2; count: 0)

Đọc vô k=3:
k <> result => count := count-1 (count: -1);
count < 0 => result := k; count := 1 (result: 3; count: 1)

Đọc vô k=3:
k = result => count := count+1 (count: 2);
count >= 0 => (result: 3; count: 2)

Đọc vô k=4:
k <> result => count := count-1 (count: 1);
count >= 0 => (result: 3; count: 1)

Đọc vô k=4:
k <> result => count := count-1 (count: 0);
count >= 0 => (result: 3; count: 0)

=> như vậy nó sẽ in ra 3 (sai) thay vì 4 (đúng) !?


Tui thấy bạn có phần: đọc file lần 2 để check lại kết quả
=> tui đoán nó sẽ không in ra 3; nhưng cũng không in 4 ra được !?

-thân

[F12]

Đúng là còn thiếu sót. Có lẽ sửa một chút là được.

Code này mình làm ở bài số lặp lại ">" n/2 lần. Bài này là ">=" n/2 lần nên phải xử lý thêm.

( Nhưng nếu đề bài là ">=" n/2 lần thì có thể có nhiều nghiệm. VD : test 3,3,3,4,4,4. Xem ra đề bài nên là ">". )

[condecodon2003]

Có nhiều nghiệm thì chỉ cần chọn 1, nên sửa thuật toán của bạn chứ ko nên sửa đề