Теория и практика математического моделирования в современном литейном производстве. Дурина Т.А. - 58 стр.

     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;
  if (X=2)or(X=4)or(X=8)or(X=16)or(X=32) 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)or(X=32) then
    begin
     writeln(F0,'P(J)=H(J)^',J2,'+',V2);
     writeln(F0,'Обозначение:H(J)‐ 2‐ой фактор');
    end;
  if (X=8)or(X=16)or(X=32) then
    begin
     writeln(F0,'U(J)=L(J)^',J3,'+',V3);
     writeln(F0,'Обозначение:L(J)‐ 3‐ий фактор');
    end;
  if (X=16)or(X=32) then
    begin
     writeln(F0,'Q(J)=K(J)^',J4,'+',V4);
     writeln(F0,'Обозначение:K(J)‐ 4‐ый фактор');
    end;
  if (X=32) then
    begin
     writeln(F0,'V(J)=M(J)^',J5,'+',V5);
     writeln(F0,'Обозначение:M(J)‐ 5‐ый фактор');
    end;
 end;{GB2820}
procedure GB7000;
 label 1;
 begin
  repeat
    writeln('Вычисления показателей Z(K5)');
    writeln(' по математической модели');
    writeln(' с ипользованием циклов');
                                                                          58