|
#1
|
|||
|
|||
Расчёт функции
Нужно рассчитать функцию. Получается последний элемент массива.
Код:
function G:real; var i,k:integer; begin s:=0; p:=1; for i:=1 to n do for k:=1 to i do begin s:=s+x[k]; p:=p*x[i]/s; summa:=p; p:=p*x[i]/summa; G:=p; end; end; Последний раз редактировалось Admin, 24.04.2013 в 17:08. |