Hỗ trợ bài toán chỉnh hợp và tổ hợp

[minhdoan1990]

Rất mong anh chị giúp đỡ ạ!Em có 1 bài toán là: với 2 ký tự T và X có bao nhiêu cách xếp chúng thành 10 ký tự không trùng lặp nhau (kể cả 1 mình T hay 1 mình X cũng được miễn là đủ 10 ký tự) hãy xuất ra kết quả (có người đã tính ra là 1024 kết quả nhưng chi tiết thì em không biết, chỉ biết là họ dùng Excel thôi ạ! Email của em là kidyeu007@gmail.com em xin chân thành cảm ơn các bác!

 

[VetMini]

Ở đây có nhiều bài này lắm. Chịu khó tìm.

 

[Ba Tê]

Ở đây có nhiều bài này lắm. Chịu khó tìm.

Vì em không phải là dân văn phòng ạ!
Có lẽ "dân văn phòng" không biết hệ nhị phân, ..., thập phân để xử lý trường hợp này.

 

[CHAOQUAY]

Rất mong anh chị giúp đỡ ạ!Em có 1 bài toán là: với 2 ký tự T và X có bao nhiêu cách xếp chúng thành 10 ký tự không trùng lặp nhau (kể cả 1 mình T hay 1 mình X cũng được miễn là đủ 10 ký tự) hãy xuất ra kết quả (có người đã tính ra là 1024 kết quả nhưng chi tiết thì em không biết, chỉ biết là họ dùng Excel thôi ạ! Email của em là kidyeu007@gmail.com em xin chân thành cảm ơn các bác!

Dùng vào việc gì thế bạn?

 

[VetMini]

Vì em không phải là dân văn phòng ạ!
Có lẽ "dân văn phòng" không biết hệ nhị phân, ..., thập phân để xử lý trường hợp này.

Ai biết người ta định nghĩa "dân văn phòng" ra sao.
Riêng tôi thì tôi định nghĩa chính mình là dân văn phòng.

Dùng vào việc gì thế bạn?

Có lẽ đây là học sinh giải bài tập.

 

[nguyentinhhn]

Làm 10 vòng lặp để liệt kê ra hoặc dùng thuật toán đệ qui. Gửi bạn file dùng 10 vòng lặp.

 

[nguyentinhhn]

File liệt kê bằng cả 2 thuật toán.

 

[hoangtuaotrang_hp_vn]

Rất mong anh chị giúp đỡ ạ!Em có 1 bài toán là: với 2 ký tự T và X có bao nhiêu cách xếp chúng thành 10 ký tự không trùng lặp nhau (kể cả 1 mình T hay 1 mình X cũng được miễn là đủ 10 ký tự) hãy xuất ra kết quả (có người đã tính ra là 1024 kết quả nhưng chi tiết thì em không biết, chỉ biết là họ dùng Excel thôi ạ! Email của em là kidyeu007@gmail.com em xin chân thành cảm ơn các bác!

Nếu chỉ cần kết quả thì em tìm trên diễn đàn có công thức này:

Hoán vị lặp của n phần tử với tần suất k: =PERMUTATIONA(n,k)
=> PERMUTATIONA(2,10) = 1024

Ngoài ra:
Số các tổ hợp chập k của n phần tử: =COMBINA(n,k)
Số các chỉnh hợp chập k của n phần tử: =PERMUT(n,k)
Số các hoán vị của n phần tử: =PERMUT(n,n)

Trích từ bài #14 của link này: https://www.giaiphapexcel.com/diendan/threads/toán-tổ-hợp-trong-excel.79840/

 

[CHAOQUAY]

@hoangtuaotrang_hp_vn

Rất mong anh chị giúp đỡ ạ!Em có 1 bài toán là: với 2 ký tự T và X có bao nhiêu cách xếp chúng thành 10 ký tự không trùng lặp nhau (kể cả 1 mình T hay 1 mình X cũng được miễn là đủ 10 ký tự) hãy xuất ra kết quả (có người đã tính ra là 1024 kết quả nhưng chi tiết thì em không biết, chỉ biết là họ dùng Excel thôi ạ! Email của em là kidyeu007@gmail.com em xin chân thành cảm ơn các bác!

Thớt họ cần phần bôi đậm đó bạn.

 

[CHAOQUAY]

Góp đoạn code tham khảo

Sub Ghep_()
Dim Mang0
Dim Nguon(1 To 2)
Dim Sl
Nguon(1) = "T"
Nguon(2) = "X"
Sl = 10
ReDim Mang0(1 To Sl)
Sheet1.UsedRange.Clear
LapMang ByVal Mang0, ByVal Nguon, ByVal Sl, Sl
Sheet1.UsedRange.Columns.AutoFit
End Sub

Sub LapMang(ByVal Mang1, ByVal Mang01, ByVal Sl0, Sl1)
Dim i
If Sl0 = 0 Then
    Sheet1.Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(1, Sl1) = Mang1
Else
    For i = 1 To 2
        Mang1(Sl0) = Mang01(i)
        LapMang ByVal Mang1, ByVal Mang01, ByVal Sl0 - 1, Sl1
    Next i
End If
End Sub