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

    writeln(F0,'7.2.','B1=',B1,'A3=',A3,'B2=',B2,'Z(4)=',Z[4]);
    writeln(F0,'8.1.','B1=',B1,'B3=',B3,'A2=',A2,'Z(6)=',Z[6]);
    writeln(F0,'8.2.','B1=',B1,'B3=',B3,'B2=',B2,'Z(8)=',Z[8]);
    writeln(F0,'9.1.','A1=',A1,'A2=',A2,'A3=',A3,'Z(1)=',Z[1]);
    writeln(F0,'9.2.','A1=',A1,'A2=',A2,'B3=',B3,'Z(5)=',Z[5]);
    writeln(F0,'10.1.','A1=',A1,'B2=',B2,'A3=',A3,'Z(3)=',Z[3]);
    writeln(F0,'10.2.','A1=',A1,'B2=',B2,'B3=',B3,'Z(7)=',Z[7]);
    writeln(F0,'11.1.','B1=',B1,'A2=',A2,'A3=',A3,'Z(2)=',Z[2]);
    writeln(F0,'11.2.','B1=',B1,'A2=',A2,'B3=',B3,'Z(6)=',Z[6]);
    writeln(F0,'12.1.','B1=',B1,'B2=',B2,'A3=',A3,'Z(4)=',Z[4]);
    writeln(F0,'12.2.','B1=',B1,'B2=',B2,'B3=',B3,'Z(8)=',Z[8]);
    writeln('X=8. Model');
    writeln('Z(J)=',B[1],'+',B[2],'*I(J)+',B[3],'*P(J)+');
    writeln(F0,'X=8. Model');
    writeln(F0,'Z(J)=',B[1],'+',B[2],'*I(J)+',B[3],'*P(J)+');
    writeln(F0,'+',B[4],'*I(J)*P(J)+',B[5],'*U(J)+');
    writeln(F0,'+',B[6],'*I(J)*U(J)+',B[7],'*P(J)*U(J)+');
    writeln(F0,'+',B[8],'*I(J)*P(J)*U(J),');
   end;
if X=16 then
  begin
    writeln('X=16. Model');
    writeln('Z(J)=',B[1],'+',B[2],'*I(J)+',B[3],'*P(J)+');
    writeln(F0,'X=16.Model');
    writeln(F0,'Z(J)=',B[1],'+',B[2],'*I(J)+',B[3],'*P(J)+');
    writeln(F0,'+',B[4],'*I(J)*P(J)+',B[5],'*U(J)+');
    writeln(F0,'+',B[6],'*I(J)*U(J)+',B[7],'*P(J)*U(J)+');
    writeln(F0,'+',B[8],'*I(J)*P(J)*U(J)+',B[9],'*Q(J)+');
    writeln(F0,'+',B[10],'*I(J)*Q(J)+',B[11],'*P(J)*Q(J)+');
    writeln(F0,'+',B[12],'*I(J)*P(J)*Q(J)+',B[13],'*U(J)*Q(J)+');
    writeln(F0,'+',B[14],'I(J)*U(J)*Q(J)+',B[15],'*P(J)*U(J)*Q(J)+');
    writeln(F0,'+',B[16],'I(J)*P(J)*U(J)*Q(J),');
   end;
if X=32 then
  begin
    writeln('X=32. Model');
    writeln('Z(J)=',B[1],'+',B[2],'*I(J)+',B[3],'*P(J)+');
    writeln(F0,'X=32. Model');
    writeln(F0,'Z(J)=',B[1],'+',B[2],'*I(J)+',B[3],'*P(J)+');
    writeln(F0,'+',B[4],'*I(J)*P(J)+',B[5],'*U(J)+');
    writeln(F0,'+',B[6],'*I(J)*U(J)+',B[7],'*P(J)*U(J)+');
    writeln(F0,'+',B[8],'*I(J)*P(J)*U(J)+',B[9],'*Q(J)+');
    writeln(F0,'+',B[10],'*I(J)*Q(J)+',B[11],'*P(J)*Q(J)+');
    writeln(F0,'+',B[12],'*I(J)*P(J)*Q(J)+',B[13],'*U(J)*Q(J)+');
    writeln(F0,'+',B[14],'I(J)*U(J)*Q(J)+',B[15],'*P(J)*U(J)*Q(J)+');
    writeln(F0,'+',B[16],'I(J)*P(J)*U(J)*Q(J)+',B[17],'*V(J)+');
    writeln(F0,'+',B[18],'*I(J)*V(J)+',B[19],'P(J)*V(J)+');
    writeln(F0,'+',B[20],'*I(J)*P(J)*V(J)+',B[21],'*U(J)*V(J)+');
    writeln(F0,'+',B[22],'*I(J)*U(J)*V(J)+',B[23],'*P(J)*U(J)*V(J)+');
    writeln(F0,'+',B[24],'*I(J)*P(J)*U(J)*V(J)+',B[25],'*Q(J)*V(J)+');
    writeln(F0,'+',B[26],'*I(J)*Q(J)*V(J)+',B[27],'*P(J)*Q(J)*V(J)+');
    writeln(F0,'+',B[28],'*I(J)*P(J)*Q(J)*V(J)+');
    writeln(F0,'+',B[29],'*U(J)*Q(J)*V(J)+');
    writeln(F0,'+',B[30],'*I(J)*U(J)*Q(J)*V(J)+');
    writeln(F0,'+',B[31],'*P(J)*U(J)*Q(J)*V(J)+');
    writeln(F0,'+',B[32],'*I(J)*P(J)*U(J)*Q(J)*V(J),');
   end;




                                                     30