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

      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(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=2)or(X=4)or(X=8)or(X=16) then
     begin
      writeln(F0,'ГДЕ');
      writeln(F0,'I(J)=F(J)^',J1,'+',V1);
      writeln(F0,'Обозначение:F(J)- 1-ый фактор ');
     end;
   if (X=4)or(X=8)or(X=16) then
     begin
      writeln(F0,'P(J)=H(J)^',J2,'+',V2);
      writeln(F0,'Обозначение:H(J)- 2-ой фактор');
     end;
   if (X=8)or(X=16) then
     begin
      writeln(F0,'U(J)=L(J)^',J3,'+',V3);
      writeln(F0,'Обозначение:L(J)- 3-ий фактор');
     end;
   if (X=16) then
     begin
      writeln(F0,'Q(J)=K(J)^',J4,'+',V4);
      writeln(F0,'Обозначение:K(J)- 4-ый фактор');
     end;
 end;{GB2820}
procedure GB7000;
 label 1;
 begin
  repeat
     writeln('Вычисления показателей Z(K5)');
     writeln(' по математической модели');
     writeln(' с ипользованием циклов');
     writeln('vvod X');
     readln(X);
     writeln('X=',X);
     writeln(F0,'Вычисления показателей Z(K5)');
     writeln(F0,' по математической модели');
     writeln(F0,' с ипользованием циклов');
     writeln(F0,'X=',X);
      case X of
       2: I0:=73;
       4: I0:=74;
       8: I0:=75;
       16: I0:=76;
      end;




                                                        9