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

  if (X=2)or(X=4)or(X=8)or(X=16)or(X=32) then
    begin
     writeln(F0,'ГДЕ');
     writeln('I(J)=F(J)^',J1,'+',U1);
     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(' с ипользованием циклов');
    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;
       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;




                                                     31