+ Trả lời chủ đề
Hiện kết quả từ 1 tới 1 của 1

Chủ đề: Liệt kê phần tử xuất hiện nhiều lần nhất trong danh sách

  1. #1
    Status : ThanhTuan_Alpha đang ẩn
    Tham gia ngày : Aug 2011
    Bài gửi : 203

    Liệt kê phần tử xuất hiện nhiều lần nhất trong danh sách

    Liệt kê phần tử xuất hiện nhiều lần nhất trong danh sách

    Mã:
    Lietke[L_] := Module[{i, n, k, p, m, L2, d, z, b},
        p = Sort[L];
        k = Union[p];
        n = Length[p];
        m = Length[k];
        L2 = {};
        For[i = 1, i ≤ m, i++,
          dem = 0;
          For[j = 1, j ≤ n, j++,
            If[k[[i]] == p[[j]], dem++];
            ];
          L2 = Insert[L2, dem, i];
          ];
        d = Length[L2];
        lon = Max[L2];
        Print["cac phan tu xuat hien nhieu lan nhat:"];
        For[z = 1, z ≤ d, z++,
          If[lon == L2[[z]], Print[k[[z]], " xuat hien ", lon, " lan "]];
          ];
        ]

    Cách 2:
    Mã:
    Clear[n, L,temp,temp1,temp2];
    n = Input["Nhap n"];
    L = Table[Random[Integer, {-10, 10}], {i, n}];
    Print["Danh sach vua tao la: ", L];
    temp = Union[L];
    temp1 = Table[Count[L, temp[[i]]], {i, Length[temp]}];
    Print["Cac phan tu xuat hien nhieu lan: ", Extract[temp, Position[temp1,Max[temp1]]]];
    Lần sửa cuối bởi ThanhTuan_Alpha; 06-08-2011 lúc 05:15 PM

+ Trả lời chủ đề

Quyền viết bài

  • Bạn không thể gửi chủ đề mới
  • Bạn không thể gửi trả lời
  • Bạn không thể gửi file đính kèm
  • Bạn không thể sửa bài viết của mình
Trang Chủ Việc Làm Gia Sư Gia sư