Đổi số (1220120222) ở dạng tam phân sang dạng tam phân cân bằng ?

Hôm nọ có một số đồng chí hỏi tôi câu này? Về nghiên cứu thấy hay.

Kết quả là: (1-10-11-1-1100-1)

Ban QT: Đề thi các năm trước vẫn hỏi nhiều về tam phân cân bằng, không ai có ý kiến gì tức là đã biết hết cả rồi.

Nếu ai biết rồi post lên mình xem cái. Cám ơn!!!

Số tam phân (hoặc tam nguyên) cân bằng là số có dạng:
[You must be registered and logged in to see this image.]
Trong đó:
lj = -1, 0, 1 với j = 0, 1, 2, ..., k

Thủ tục:
Thủ tục giống như khai triển một số thập phân thành nhị phân, ở đây là tam phân. Nhìn công thức trên có thể viết ra ngay, quá dễ... thôi không phải viết vì tất cả đã biết. Cái này đã có trong thư mục [You must be registered and logged in to see this link.].

Viết cho đ/c TMC, không hiểu giờ này vẫn còn đi hỏi những cái phổ cập này, khổ thế:

PROC TAMPHAN(n: integer);
1)k := 0;
2) WHILE n > 0 DO
          a)du = n MOD 3
          b)k++
          c) IF du = 2 THEN
                    c1) du = -1
                    c2) S_k = du
                    c3) n = n DIV 3 + 1
          ELSE
                    c1) n = n DIV 3
                    c2) S_k = du
3) OUTPUT (S_k...S₁)

Xin lỗi, chỉ có Người được uỷ quyền được quyền đọc bài gửi trong diễn đàn này.
Thế là phải được ủy quyền mới được đọc bài chuẩn trong thư viện à admin, thế nào để được ủy quyền vậy ạ? Hay đây là quyền chỉ giới hạn cho một số thành viên nhất định?

Ban QT: Xin đọc chữ ký của Admin xem bạn có đáp ứng được hết chưa nhé, Hệ thống tự động bật đối với mục Bài chuẩn mà không cần can thiệp!
Ví dụ đây là một vài tiêu chuẩn mà người dùng thường nhập sai, nên tự mình đã khóa cho chính mình:
- Trong họ tên có độ dài, nhất thiết phải có dấu cách
- Các chữ Việt gõ đúng chính tả, không bị gạch đít đỏ.
- Dòng họ có trong [You must be registered and logged in to see this link.]
- Các trường không bị Null, không để ngầm định.
...

- Phổ cập mà viết vẫn sai à?

ELSE
c1) n = n DIV 3 + 1 ????
c2) Sk = du

Admin: uh, chắc copy trên xuống không để ý vì nó có kèm định dạng sub nên rất khó nhìn.

Bài này quá dễ mà. Đến em không học CNTT còn làm được cần gì phải xem bài chuẩn. Em đọc bài chuẩn cũng bình thường, nhưng em nghĩ bài dạng này ra thì khối người được điểm tối đa.

Có lẽ mọi người hiểu sai rồi? Ý mình là: Cho một số dạng tam phân hãy chuyển sang dạng tam phân cân bằng.

Ban QT: Thế thì còn dễ hơn bài mẫu, vì tất cả mọi người đã biết, nên không ai làm, vì không có thời gian.

Cám ơn anh Admin nhé. A viết chuẩn từ hệ thập phân sang hệ tam phân cân bằng chuẩn đấy. Nhưng cái em cần là từ dạng tam phân sang dạng tam phân cân bằng.

Admin: Tương tự thôi, nếu lười không muốn viết thì dùng luôn code trên viết thêm 1 dòng biến tam phân → thập phân ở dòng đầu tiên, đỡ phải nghĩ...
FOR i := /XâuTamPhân/ DOWNTO 1 DO ThậpPhân = ThậpPhân + XâuTamPhân[i] * 3^{/XâuTamPhân + 1/-i}

tam phân c[1..k]
tam phân cân bằng s[1..k+1];

"nhớ" chỉ nhận hai giá trị 0 hoặc 1 thôi

t := 0; nhớ := 0;
WHILE t ≤ k DO
          t := t + 1;
          a := (c[t] + nhớ) MOD 3;
          nhớ := (c[t] + nhớ) DIV 3;
          CASE a OF
                    0: s[t] := 0;
                    1: s[t] := 1;
                    2: s[t] := -1; nhớ := nhớ + 1;

IF nhớ = 0 THEN Output s[k],... s[1];
IF nhớ = 1 THEN s[t + 1] := 1; Output s[k + 1],... s[1];

Anh Phương viết chuẩn rồi đấy.

@ Phương: sao anh lại xét từ c[1] vì ngay trong vòng lặp k=k+1 =1, vì dãy tính từ chỉ số 0 mà. Nếu c[0]=2 thì sao. Bài này em không hiểu lắm. anh chạy thử giùm em với dãy 2012 (=59) nhé. Thanks in advance! :)

Thực ra là có nhầm, lúc đầu anh định để t=-1, nhưng thấy bài của anh Admin viết từ c[1] nên anh cũng tính từ c[1]và sửa lại là t=0.