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


descriptionĐếm số phần tử x trong danh sách đơn EmptyĐếm số phần tử x trong danh sách đơn

more_horiz

Code:

CountList[A_, n_, x_] := If[n == 0,
                           Return[0];
                           ,
                           If[A[[n]] == x,
                                  Return[1 + CountList[A, n - 1, x]];
                                  ,
                                  Return[CountList[A, n - 1, x]];
                               ];
                        ];

descriptionĐếm số phần tử x trong danh sách đơn EmptyRe: Đếm số phần tử x trong danh sách đơn

more_horiz

Code:

CountList[A_, n_, x_] := If[n == 0,
                           Return[0];
                           ,
                           If[A[[n]] == x,
                                  Return[1 + CountList[A, n - 1, x]];
                                  ,
                                  Return[CountList[A, n - 1, x]];
                               ];
                        ];
Clear[A, n, x];
n = 10;
x = 2;
A = Table[2 Random[Integer, {1, 5}], {i, n}]
CountList[A, n, x]
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