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

 VV_DAN;
 if X=0 then goto 2;
 PR_MOD;
3:writeln('----------<Меню 1>------------');
 writeln('Если I0=6, то переход в начало');
 writeln('Если I0=7, то продолжение и');
 writeln('ввод величин показателей Y(J)');
 write('I0='); readln(I0);
 if I0=6 then goto 1;
 writeln('Ввод величин показателей Y(J)');
 writeln(F0,'Показатели Y(J)');
 for J:=1 to X do
   begin
    write('Y(',J,')=');
    readln(Y[J]);
    writeln(F0,'Y(',J,')=',Y[J]);
   end;
 case X of
   3: GB4150;
   4: GB4210;
   5: GB4290;
   9: begin
      GB4150; GB4170;
     end;
   12:begin
      GB4150; GB4250;
     end;
   15:begin
      GB4150; GB4340;
     end;
   16:begin
      GB4210; GB4250;
     end;
   20:begin
      GB4210; GB4340;
     end;
   25:begin
      GB4290; GB4340;
     end;
   27:begin
      GB4150; GB4170; GB4190;
     end;
   end;{case}
 GB1410;
 case X of
   4: GB2000;
   5: begin GB2000; GB2020; end;
   9: begin GB1480; end;
   12:begin GB1480; GB1600; end;
   15:begin GB1480; GB1600; GB1670; end;
   16:begin GB1480; GB1600; GB1930; end;
   20:begin GB1480; GB1600; GB1670; GB1730; end;
   25:begin GB1480; GB1600; GB1670; GB1730; GB1830; end;
   27:begin GB1480; GB2040; end;
 end;
 writeln('B(J) до анализа');
 writeln(F0,'B(J) до анализа');
 for J:=1 to X do
   begin
    writeln('B(',J,')=',B[J]);



                                                72