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

     end;
  end;{GB4170}
 procedure GB4190;
  begin
   for J:=1 to X do
     begin
       U[J]:=ste(L[J],J3)+V3;
       V[J]:=ste(L[J],O3)+U3*ste(L[J],J3)+Q3;
      end;
   end;{GB4190}
 procedure GB4450;
  begin
   for J:=1 to X do
     begin
       N3:=B[1]+B[2]*I[J]+B[3]*K[J]+B[4]*P[J];
       N4:=B[5]*I[J]*P[J]+B[6]*Q[J]+B[7]*I[J]*Q[J];
       N5:=B[8]*P[J]*K[J]+B[9]*K[J]*Q[J];
       Z[J]:=N3+N4+N5;
     end;
  end;{GB4450}
 procedure GB4390;
  begin
   for J:=1 to X do
     Z[J]:=B[1]+B[2]*I[J]+B[3]*K[J];
  end;{GB4390}
 procedure GB4770;
  begin
   for J:=1 to X do
     begin
       N3:=B[1]+B[2]*I[J]+B[3]*K[J]+B[4]*P[J];
       N4:=B[5]*I[J]*P[J]+B[6]*Q[J]+B[7]*I[J]*Q[J]+B[8]*P[J]*K[J];
       N5:=B[9]*K[J]*Q[J]+B[10]*U[J]+B[11]*I[J]*U[J]+B[12]*P[J]*U[J];
       N6:=B[13]*I[J]*P[J]*U[J]+B[14]*V[J]+B[15]*I[J]*V[J];
       N7:=B[16]*P[J]*V[J]+B[17]*U[J]*K[J]+B[18]*U[J]*Q[J];
       R0:=B[19]*I[J]*P[J]*V[J]+B[20]*I[J]*U[J]*Q[J];
       R4:=B[21]*P[J]*U[J]*K[J]+B[22]*K[J]*V[J]+B[23]*Q[J]*V[J];
       R5:=B[24]*I[J]*Q[J]*V[J]+B[25]*P[J]*K[J]*V[J];
       R6:=B[26]*U[J]*K[J]*Q[J]+B[27]*K[J]*Q[J]*V[J];
       Z[J]:=N3+N4+N5+N6+N7+R0+R4+R5+R6;
     end;
  end;{GB4770}
end.

unit TPG3_3;
Interface
 uses tpg3_2;
 var
   grMode: Integer;
 procedure PR_MOD; procedure GB4880;
 procedure GB7000; procedure VVOD31;
 procedure VVOD32; procedure VVOD33;
 procedure tablF9; procedure OUT_F_H_L(PR:integer);
Implementation
 procedure VVOD31;
   begin
    writeln('Ввод A1 E1 B1 J1 O1');
    readln(A1,E1,B1,J1,O1);
    writeln(F0,'A1=',A1,' E1=',E1,' B1=',B1);
    writeln(F0,'J1=',J1,' O1=',O1);
   end;{VVOD31}



                                                      60