Constant N=8;
Constant K(1:N)=[1,2,3,4,5,6,7,8];
Constant P_Nf=10^(-6);
ParameterS x(1:N)[0,1];
//Function ;
StartProgram;
var i: integer;
k: integer;
Begin
for k:=1 to N do
Sum(i=K[k]:N)((x[k]^i)*(1-x[k])^(N-i)):=P_Nf;
FunctionResult := x;
end;
EndProgram;
您看我这个程序有哪些不对的地方呢?