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


Chia lấy phần dư

power_settings_newLogin to reply

descriptionChia lấy phần dư EmptyChia lấy phần dưSun Apr 15, 2012 12:06 pm

more_horiz

Code:

Mod1[a_, b_] := If[a < b,
                  Return[a];
               ,
                  Return[Mod1[a - b, b]];
            ];

Code:

Mod2[a_, b_] := Module[{},
               If[a < b,
                      Return[a];
                   ,
                      Return[Mod2[a - b, b]];
                ];
            ];

Code:

Mod3[a_, b_] := Block[{},
               If[a < b,
                      Return[a];
                   ,
                      Return[Mod3[a - b, b]];
                ];
            ];

descriptionChia lấy phần dư EmptyRe: Chia lấy phần dưSun Apr 15, 2012 12:07 pm

more_horiz

Code:

Mod1[a_, b_] := If[a < b,
                  Return[a];
               ,
                  Return[Mod1[a - b, b]];
            ];
Mod2[a_, b_] := Module[{},
               If[a < b,
                      Return[a];
                   ,
                      Return[Mod2[a - b, b]];
                ];
            ];
Mod3[a_, b_] := Block[{},
               If[a < b,
                      Return[a];
                   ,
                      Return[Mod3[a - b, b]];
                ];
            ];
Clear[a, b];
a = Random[Integer, {1, 10}];
b = Random[Integer, {1, 10}];
Print["a = ", a];
Print["b = ", b];
Print["PP 1: Mod[a,b] = ", Mod1[a, b]];
Print["PP 2: Mod[a,b] = ", Mod2[a, b]];
Print["PP 3: Mod[a,b] = ", Mod3[a, b]];
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