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

   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(' с ипользованием циклов');
   writeln('vvod X');
   write('X=');
   readln(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;
      32: I0:=77;
    end;
    if I0=73 then
      begin
       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');
       writeln(F0,'F4-шаг приращения фактора');
       writeln(F0,'X-количество значений фактора');
       writeln(F0,'Ввод принятых величин X F3 F4');




                                                145