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


Tính n giai thừa

power_settings_newLogin to reply

descriptionTính n giai thừa EmptyTính n giai thừaSun Apr 15, 2012 12:11 pm

more_horiz

Code:

GiaiThua1[n_] := If[n == 0 || n == 1,
                  Return[1];
               ,
                  Return[n*GiaiThua1[n - 1]];
            ];

Code:

GiaiThua2[n_] := Module[{},
               If[n == 0 || n == 1,
                      Return[1];
                   ,
                      Return[n GiaiThua2[n - 1]];
                   ];
            ];

Code:

GiaiThua3[n_] := Block[{},
               If[n == 0 || n == 1,
                      Return[1];
                   ,
                      Return[n GiaiThua3[n - 1]];
                   ];
            ];

descriptionTính n giai thừa EmptyRe: Tính n giai thừaSun Apr 15, 2012 12:12 pm

more_horiz

Code:

GiaiThua1[n_] := If[n == 0 || n == 1,
                  Return[1];
               ,
                  Return[n*GiaiThua1[n - 1]];
            ];
GiaiThua2[n_] := Module[{},
               If[n == 0 || n == 1,
                      Return[1];
                   ,
                      Return[n GiaiThua2[n - 1]];
                   ];
            ];
GiaiThua3[n_] := Block[{},
               If[n == 0 || n == 1,
                      Return[1];
                   ,
                      Return[n GiaiThua3[n - 1]];
                   ];
            ];
Clear[n];
n = Input["Nhap n"];
Print["PP 1: n! = ", GiaiThua1[n]];
Print["PP 2: n! = ", GiaiThua2[n]];
Print["PP 3: n! = ", GiaiThua3[n]];
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