Математическое моделирование. Черный А.А. - 226 стр.

   writeln('Если I0=27, то переход к меню 2');
   write('Ввод I0=');
   readln(I0);
   if I0=8 then goto 1;
   if I0=9 then goto 2;
   if I0=25 then goto 3;
   if I0=27 then goto 4;
   if I0=17 then begin GB4880; goto 2; end;
   if I0=22 then begin GB7000; goto 2; end;
 writeln('Проверка точности и расчеты по модели');
 writeln('F(S), H(S), L(S) - 1,2,3 факторы');
 writeln('где S=X=',X,'-количество опытов по плану');
 writeln('расчеты по модели');
 writeln(F0,'Проверка точности и расчеты по модели');
 writeln(F0,'F(S), H(S), L(S) - 1,2,3 факторы');
 writeln(F0,'где S=X=',X,'-количество опытов по плану');
 writeln(F0,'расчеты по модели');
 if (X=5) then
   begin
     for S:=1 to X do
      begin
        F[S]:=0; Z[S]:=0;
        writeln('Ввод F(',S,')');
        readln(F[S]);
        case X of
        5: begin
           GB4290; GB4420;
          end;
          else goto 2;
        end;{case}
        writeln('Z(',S,')=',Z[S]);
      end;{for}
     OUT_F_H_L(73);
   end;{if}
 if (X=16) then
   begin
     for S:=1 to X do
      begin
        F[S]:=0; Z[S]:=0; H[S]:=0;
        writeln('Ввод F(',S,')',' H(',S,')');
        readln(F[S],H[S]);
        case X of
        25:begin
           GB4290; GB4340; GB4690;
          end;
          else goto 2;
        end;{case}
        writeln('Z(',S,')=',Z[S]);
      end;{for}
     OUT_F_H_L(74);
   end;{if}
2:writeln('----------------<Меню 4------------------');
 writeln('Если I0=10, то проверка точности');
 writeln('и расчеты по модели');
 writeln('Если I0=14, то вычисления ');
 writeln('показателей Z(K5) с использованием');
 writeln('циклов');
 writeln('Если I0=35, то переход к меню 1');
 writeln('Если I0=18, то переход к меню 2');
 writeln('Если I0=19, то переход к меню 3');



                                              226