Математическое моделирование при трех уровнях факторов по программам на языках Бейсик и Турбо Паскаль. Черный А.А. - 93 стр.

 if X=12 then
   begin
writeln(F0,'Z(J)=',B[1]:10,'+',B[2]:10,'*I(J)+',B[3]:10,'*K(J)+');
writeln(F0,'+',B[4]:10,'*P(J)+',B[5]:10,'*I(J)*P(J)+');
writeln(F0,'+',B[6]:10,'*Q(J)+',B[7]:10,'*I(J)*Q(J)+');
writeln(F0,'+',B[8]:10,'*P(J)*K(J)+',B[9]:10,'*K(J)*Q(J)+');
writeln(F0,'+',B[10]:10,'*U(J)+',B[11]:10,'*I(J)*U(J)+');
writeln(F0,'+',B[12]:10,'*K(J)*U(J),');
   end;
 if X=15 then
   begin
writeln(F0,'Z(J)=',B[1]:10,'+',B[2]:10,'*I(J)+',B[3]:10,'*K(J)+');
writeln(F0,'+',B[4]:10,'*P(J)+',B[5]:10,'*I(J)*P(J)+');
writeln(F0,'+',B[6]:10,'*Q(J)+',B[7]:10,'*I(J)*Q(J)+');
writeln(F0,'+',B[8]:10,'*P(J)*K(J)',B[9]:10,'*K(J)*Q(J)+');
writeln(F0,'+',B[10]:10,'*U(J)+',B[11]:10,'*I(J)*U(J)+');
writeln(F0,'+',B[12]:10,'*K(J)*U(J)+',B[13]:10,'*V(J)+');
writeln(F0,'+',B[14]:10,'*I(J)*V(J)+',B[15]:10,'*K(J)*V(J),');
   end;
 if X=16 then
   begin
writeln(F0,'Z(J)=',B[1]:10,'+',B[2]:10,'*I(J)+',B[3]:10,'*K(J)+');
writeln(F0,'+',B[4]:10,'*P(J)+',B[5]:10,'I(J)*P(J)+');
writeln(F0,'+',B[6]:10,'*Q(J)+',B[7]:10,'*I(J)*Q(J)+');
writeln(F0,'+',B[8]:10,'*P(J)*K(J)+',B[9]:10,'*K(J)*Q(J)+');
writeln(F0,'+',B[10]:10,'*U(J)+',B[11]:10,'*I(J)*U(J)+');
writeln(F0,'+',B[12]:10,'*K(J)*U(J)+',B[13]:10,'*L(J)+');
writeln(F0,'+',B[14]:10,'*P(J)*L(J)+',B[15]:10,'*Q(J)*L(J)+');
writeln(F0,'+',B[16]:10,'*L(J)*U(J),');
   end;
 if X=20 then
   begin
writeln(F0,'Z(J)=',B[1]:10,'+',B[2]:10,'*I(J)+',B[3]:10,'*K(J)+');
writeln(F0,'+',B[4]:10,'*P(J)+',B[5]:10,'*I(J)*P(J)+');
writeln(F0,'+',B[6]:10,'*Q(J)+',B[7]:10,'*I(J)+Q(J)+');
writeln(F0,'+',B[8]:10,'*P(J)*K(J)+',B[9]:10,'*K(J)*Q(J)+');
writeln(F0,'+',B[10]:10,'*U(J)+',B[11]:10,'*I(J)*U(J)+');
writeln(F0,'+',B[12]:10,'*K(J)*U(J)+',B[13]:10,'*V(J)+');
writeln(F0,'+',B[14]:10,'*I(J)*V(J)+',B[15]:10,'*I(J)*V(J)+');
writeln(F0,'+',B[16]:10,'*L(J)+',B[17]:10,'*P(J)*L(J)+');
writeln(F0,'+',B[18]:10,'*Q(J)*L(J)+',B[19]:10,'*L(J)*U(J)+');
writeln(F0,'+',B[20]:10,'*L(J)*V(J),');
   end;
 if X=25 then
   begin
writeln(F0,'Z(J)=',B[1]:10,'+',B[2]:10,'*I(J)+',B[3]:10,'*K(J)+');
writeln(F0,'+',B[4]:10,'*P(J)+',B[5]:10,'*I(J)*P(J)+');
writeln(F0,'+',B[6]:10,'*Q(J)+',B[7]:10,'*I(J)*Q(J)+');
writeln(F0,'+',B[8]:10,'*P(J)*Q(J)+',B[9]:10,'*K(J)*Q(J)+');
writeln(F0,'+',B[10]:10,'*U(J)+',B[11]:10,'*I(J)*U(J)+');
writeln(F0,'+',B[12]:10,'*K(J)*U(J)+',B[13]:10,'*V(J)+');
writeln(F0,'+',B[14]:10,'*I(J)*V(J)+',B[15]:10,'*I(J)*V(J)+');
writeln(F0,'+',B[16]:10,'*L(J)+',B[17]:10,'*P(J)*L(J)+');
writeln(F0,'+',B[18]:10,'*Q(J)*L(J)+',B[19]:10,'*L(J)*U(J)+');
writeln(F0,'+',B[20]:10,'*L(J)*V(J)+',B[21]:10,'*M(J)+');
writeln(F0,'+',B[22]:10,'*P(J)*M(J)+',B[23]:10,'*Q(J)*M(J)+');
writeln(F0,'+',B[24]:10,'*U(J)*M(J)+',B[25]:10,'*M(J)*V(J),');
   end;
 if (X=4)or(X=5)or(X=12)or(X=15)or(X=16)or
 (X=20)or(X=20)or(X=25) then



                                                        93