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Ước chung lớn nhất của danh sách đơn EmptyƯớc chung lớn nhất của danh sách đơn

more_horiz

Code:

UCLN[a_, b_] := If[a == b,
                     Return[a]
                  ,
                     If[a > b,
                            Return[UCLN[a - b, b]];
                         ,
                            Return[UCLN[a, b - a]];
                         ];
                  ];
UC[A_, n_] := If[n == 1,
                     Return[A[[1]]];
                  ,
                     Return[UCLN[A[[n]], UC[A, n - 1]]];
               ];

descriptionƯớc chung lớn nhất của danh sách đơn EmptyRe: Ước chung lớn nhất của danh sách đơn

more_horiz

Code:

UCLN[a_, b_] := If[a == b,
                     Return[a]
                  ,
                     If[a > b,
                            Return[UCLN[a - b, b]];
                         ,
                            Return[UCLN[a, b - a]];
                         ];
                  ];
UC[A_, n_] := If[n == 1,
                     Return[A[[1]]];
                  ,
                     Return[UCLN[A[[n]], UC[A, n - 1]]];
               ];

Clear[A, n];
n = Input["Nhap so phan tu"];
A = Table[Random[Integer, {2, 10}], {i, n}];
Print["A = ", A];
Print["UC(A,n) = ", UC[A, n]];
Print["GCD(A) = ", GCD[Delete[A, 0]]];
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