Gia sư Cần Thơ, Dạy Kèm Cần Thơ

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


Chia lấy phần dư

Share
avatar
admin
Admin
Admin

Tổng số bài gửi : 1207
Points : 3010
Join date : 11/11/2009
Age : 36
Đến từ : Cần Thơ

Chia lấy phần dư

Bài gửi  admin on Sun Apr 15, 2012 12:06 pm

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


Gia sư Alpha
------------------------------------------------------------------------------------
Điện thoai: 07106 255 599 - 0932 836 026 - 0987 700 288
Website: http://giasualpha.com
Email: giasualpha@gmail.com
------------------------------------------------------------------------------------
avatar
admin
Admin
Admin

Tổng số bài gửi : 1207
Points : 3010
Join date : 11/11/2009
Age : 36
Đến từ : Cần Thơ

Re: Chia lấy phần dư

Bài gửi  admin on Sun Apr 15, 2012 12:07 pm

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


Gia sư Alpha
------------------------------------------------------------------------------------
Điện thoai: 07106 255 599 - 0932 836 026 - 0987 700 288
Website: http://giasualpha.com
Email: giasualpha@gmail.com
------------------------------------------------------------------------------------

    Hôm nay: Sun Feb 25, 2018 7:01 am