حاصل ضرب اعضای یک آرایه Integer ... [بایگانی]

Mahmood_M

جمعه 25 خرداد 1386, 04:10 صبح

سلام

چطور میشه ، حاصل ضرب اعضای یک آرایه رو بدست آورد ؟
فرض میکنیم ، آرایه ای به صورت زیر داریم :

Ints : array[0..10] of Integer;
و فرض میکنیم که بعد از مقدار دهی به اعضا ( یا ... ) آرایه ، مقدارهای زیر داده شده :

[1, 2, 3, 4, 5, 6, 7, 8, 9, 10]
من میخوام حاصل ضرب ( مثلا در مقدارهای بالا ) ، 1*2*3*4*5*6*7*8*9*10 رو بدست بیارم ...
توجه کنید که تعداد اعضایی که باید ضرب بشن مشخص نیست ، یعنی مثلا من یک آرایه دارم که [1..10] هست و مثلا میخوام 5 تای اول اون در هم ضرب بشن و حاصل رو بدست بیارم ، تعداد اعضایی که باید در هم ضرب بشن ، در یک متغیر Integer هست ...

منتظر راهنمایی دوستان هستم ...
با تشکر ...

Arman_1367

جمعه 25 خرداد 1386, 04:31 صبح

می توانی از این تابع استفاده کنی:

Function MultiplyArray(AStart,AEnd:Integer;FArray:Array of integer):integer;
var i:integer;
Begin
If AStart<Low(FArray)then Astart:=Low(fArray)
If AEnd>High(FArray) then AEnd:=High(Array)
Result:=1;
For I:=AStart to AEnd Do
Result:=Result*Array[i];
End;