Diễn đàn hỏi đáp học thuật - Download Tài Liệu Miễn Phí
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

Diễn đàn hỏi đáp học thuật - Download Tài Liệu Miễn PhíĐăng Nhập

VỮNG TIN - TIẾP BƯỚC - THÀNH CÔNG


Danh sách đơn

power_settings_newLogin to reply
2 posters

descriptionDanh sách đơn EmptyDanh sách đơnMon Jun 07, 2010 5:18 pm

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

Code:


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 "]];
      ];
    ]

descriptionDanh sách đơn EmptyRe: Danh sách đơnSat Mar 05, 2011 5:50 pm

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

Code:

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]]]];

descriptionDanh sách đơn EmptyLiệt kê các phần tử xuất hiện ít lần nhất trong danh sáchSat Mar 05, 2011 5:53 pm

more_horiz
Liệt kê các phần tử xuất hiện ít lần nhất trong danh sách


Code:

Clear[temp, temp1, temp2, L, n, m];
n = Input["Nhap n"];
m = Input["Nhap m"];
L = Table[2 Random[Integer, {1, Ceiling[m/2]}] - 1, {i, n}];
Print["Danh sach cac so le vua tao: ", L];
Print["Danh sach L: ", Sort[L]];
temp = Union[L];
temp1 = Table[Count[L, temp[[i]]], {i, Length[temp]}];
temp2 = {};
m = Min[temp1];
For[i = 1, i ≤ Length[temp1], i++,
       If[temp1[[i]] == m, temp2 = Append[temp2, temp[[i]]]];
    ];
Print["Cac phan tu xuat hien it lan nhat: ", L1];

descriptionDanh sách đơn EmptyTính tổng các số nguyên tố trong trên danh sách LSun Mar 06, 2011 1:51 pm

more_horiz
BÀI TOÁN
Tính tổng các số nguyên tố trong trên danh sách L.

CODE MẪU 1:

Code:

Clear[t];
t =  Sum[If[PrimeQ[L[[i]]], L[[i]], 0], {i, Length[L]}];
Print["Tong cac so nguyen to trong danh sach L: ", t];

CODE MẪU 2:

Code:

Clear[L1, t, i];
L1 = Select[L, PrimeQ];
t = Sum[L1[[i]], {i, Length[L1]}];
Print["Tong cac so nguyen to: ", t];

CODE MẪU 3:

Code:

SumPrime[L_] := Module[{temp, i, n},
         n = Length[L];
         temp = 0;
         For[i = 1, i ≤ n, i++,
              If[PrimeQ[L[[i]]], temp += L[[i]]];
           ];
         Return[temp];
      ];
Print["Tong nguyen to: ", SumPrime[L]];

descriptionDanh sách đơn EmptyIn ra phần tử đầu, giữa và cuối của danh sách đơn LSun Mar 06, 2011 1:54 pm

more_horiz

Code:

Print["Phan tu dau: ", First[L]];
Print["Phan tu dau: ", L[[Ceiling[n/2]]]];
Print["Phan tu cuoi: ", Last[L]];

descriptionDanh sách đơn EmptyTạo ra danh sách L1 từ danh sách L với các phần tử không là số nguyên tốSun Mar 06, 2011 1:56 pm

more_horiz

Code:

Clear[K];
L1 = Select[L, ! PrimeQ[#] &];
Print["Danh sach khong co phan tu nguyen to: ", L1];

CÁCH 2:

Code:

ListPrime[L_] := Module[{i, temp},
         temp = {};
         For[i = 1, i <= Length[L], i++,
              If[! PrimeQ[L[[i]]], temp = Append[temp, L[[i]]]];
           ];
         Return[temp];
      ];
Print["Danh sach khong nguyen to: ", L1 = ListPrime[L]];

descriptionDanh sách đơn EmptyƯớc chung lớn nhất của các phần tử trong danh sách LSun Mar 06, 2011 1:58 pm

more_horiz

Code:

Print["Uoc chung lon nhat: ", GCD[Delete[L, 0]]];

descriptionDanh sách đơn EmptyChia danh sách L thành 2 danh sách mới L1 và L2Sun Mar 06, 2011 1:59 pm

more_horiz

Code:

Clear[L1, L2];
Print["Danh sach L1 ", L1 = Take[L, Ceiling[Length[L]/2]]];
Print["Danh sach L2 ", L2 = Take[L, - (Ceiling[Length[L]/2] - 1)]];

descriptionDanh sách đơn EmptyXoá phần tử có giá trị x trong danh sách LSun Mar 06, 2011 2:01 pm

more_horiz

Code:

Clear[x];
x = Input["Nhap phan tu can xoa"];
Print["Danh sach vua xoa: ", Delete[L, Position[L, x]]];

descriptionDanh sách đơn EmptyRe: Danh sách đơn

more_horiz
privacy_tip Permissions in this forum:
Bạn không có quyền trả lời bài viết
power_settings_newLogin to reply