Вычислительная техника в инженерных расчетах и моделировании. Черный А.А. - 247 стр.

       begin
  writeln(F0,'P(J)=H(J)^',J2:10,'+',V2:10,',');
  writeln(F0,'Q(J)=H(J)^',O2:10,'+',U2:10,'*H(J)^',J2:10,'+',Q2:10,',');
  writeln(F0,'U(J)=H(J)^',P2:10,'+',I2:10,'*H(J)^',O2:10,'+');
  writeln(F0,'+',M2:10,'*H(J)^',J2:10,'+',F2:10);
       end;
     if (X=12) or (X=15) or (X=20) or (X=25) then
       begin
  writeln(F0,'V(J)=H(J)^',T2:10,'+',G2:10,'*H(J)^',P2:10,'+');
  writeln(F0,'+',H2:10,'*H(J)^',O2:10,'+',K2:10,'*H(J)^',J2:10,'+');
  writeln(F0,'+',L2:10);
       end;
    end;{GB4880}
procedure GB7000;
  label 1;
  begin
   repeat
    if (X=3)or(X=4)or(X=5) then I0:=61;
    if (X=9)or(X=12)or(X=15)or(X=16)or(X=20)or(X=25) then I0:=62;
    if X=27 then I0:=63;
    if I0=61 then
      begin
        case X of
          3: I0:=73;
          4: I0:=74;
          5: I0:=75;
        end;
    F3:=0; F4:=0; K5:=0;
    writeln('Фактор F(1)=F3+F4');
    for J:=1 to X do
      begin
        F[J]:=0; Z[J]:=0;
      end;
    writeln('F4-шаг приращения фактора');
    writeln('X-количество значений фактора');
    writeln('Ввод принятых величин X F3 F4');
    readln(X,F3,F4);
    writeln(F0,'F4-шаг приращения фактора');
    writeln(F0,'X-количество значений фактора');
    writeln(F0,'X=',X,' F3=',F3,' F4=',F4);
    for K5:=1 to X do
      begin
        F[K5]:=F3+K5*F4;
        writeln('F(',K5,')=',F[K5]);
      end;{for}
    case I0 of
      73:begin
           GB4150; GB4390;
         end;
      74:begin
           GB4210; GB4400;
         end;
      75:begin
           GB4290; GB4420;
         end;
      end;{case}
    for K5:=1 to X do
        writeln('Z(',K5,')=',Z[K5]);




                                     247