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

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


Tổng các phần tử trong danh sách đơn

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ơ

Tổng các phần tử trong danh sách đơn

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

Code:
S[A_, n_] := If[n == 1,
                     Return[A[[1]]];
                  ,
                     Return[A[[n]] + S[A, n - 1]];
               ];


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: Tổng các phần tử trong danh sách đơn

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

Code:
S[A_, n_] := If[n == 1,
                     Return[A[[1]]];
                  ,
                     Return[A[[n]] + S[A, n - 1]];
               ];
Clear[A, n];
n = Input["Nhap n"];
A = Table[Random[Integer, {1, 10}], {i, n}];
Print["A = ", A];
Print["S(A,n) = ", S[A, n]];
Print["Tong A = ", Sum[A[[i]], {i, n}]];


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:00 am