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

    F[S]:=0; Z[S]:=0;
    writeln('Ввод F(',S,')');
    readln(F[S]);
    GB2490; GB2540;
    writeln('Z(',S,')=',Z[S]);
   end;
 OUT_F_H_L(73);
end;
if X=4 then
begin
 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]);




                                                           133