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

  for S:=1 to X do
    begin
     F[S]:=0; H[S]:=0; Z[S]:=0;
     writeln('Ввод F(',S,') H(',S,')');
     readln(F[S],H[S]);
     GB2490; GB2500; GB2550;
     writeln('Z(',S,')=',Z[S]);
    end;
  OUT_F_H_L(74);
 end;
 if X=8 then
 begin
  for S:=1 to X do
    begin
     F[S]:=0; H[S]:=0;
     Z[S]:=0; L[S]:=0;
     writeln('Ввод F(',S,') H(',S,') L(',S,')');
     readln(F[S],H[S],L[S]);
     GB2490; GB2500; GB2510; GB2570;
     writeln('Z(',S,')=',Z[S]);
    end;
  OUT_F_H_L(75);
 end;
 if X=16 then
 begin
  for S:=1 to X do
    begin
     F[S]:=0; H[S]:=0; K[S]:=0;
     L[S]:=0; Z[S]:=0;
     writeln('Ввод F(',S,') H(',S,') L(',S,') K(',S,')');
     readln(F[S],H[S],L[S]);
     GB2490; GB2500; GB2510;
     GB2520; GB2600;
     writeln('Z(',S,')=',Z[S]);
    end;
  OUT_F_H_L(76);
 end;
 if X=32 then
 begin
  for S:=1 to X do
    begin
     F[S]:=0; H[S]:=0; L[S]:=0;
     K[S]:=0; M[S]:=0; Z[S]:=0;
     writeln('Ввод F(',S,') H(',S,') L(',S,')');
     readln(F[S],H[S],L[S]);
     writeln('Ввод K(',S,') M(',S,')');
     readln(K[S],M[S]);
     GB2490; GB2500; GB2510;
     GB2520; GB2530; GB2670;
     writeln('Z(',S,')=',Z[S]);
    end;
  OUT_F_H_L(77);
 end;
2:writeln('----------------<Меню 4------------------');
 writeln('Если I0=10, то проверка точности');
 writeln('и расчеты по модели');
 writeln('Если I0=14, то вычисления ');




                                                            158