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

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

87
begin
I[J]:=ste(F[J],J1)+V1;
K[J]:=ste(F[J],O1)+U1*ste(F[J],J1)+Q1;
L[J]:=ste(F[J],P1)+I1*ste(F[J],O1)+M1*ste(F[J],J1)+F1;
end;
end;{Gb4210}
procedure GB4290;
begin
for J:=1 to X do
begin
I[J]:=ste(F[J],J1)+V1;
K[J]:=ste(F[J],O1)+U1*ste(F[J],J1)+Q1;
L[J]:=ste(F[J],P1)+I1*ste(F[J],O1)+M1*ste(F[J],J1)+F1;
M[J]:=ste(F[J],T1)+G1*ste(F[J],P1)+H1*ste(F[J],O1)
+K1*ste(F[J],J1)+L1;
end;
end;{GB4290}
procedure GB4170;
begin
for J:=1 to X do
begin
P[J]:=ste(H[J],J2)+V2;
Q[J]:=ste(H[J],O2)+U2*ste(H[J],J2)+Q2;
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 GB4250;
begin
for J:=1 to X do
begin
P[J]:=ste(H[J],J2)+V2;
Q[J]:=ste(H[J],O2)+U2*ste(H[J],J2)+Q2;
U[J]:=ste(H[J],P2)+I2*ste(H[J],O2)+M2*ste(H[J],J2)+F2;
end;
end;{GB4250}
procedure GB4340;
begin
for J:=1 to X do
begin
P[J]:=ste(H[J],J2)+V2;
Q[J]:=ste(H[J],O2)+U2*ste(H[J],J2)+Q2;
U[J]:=ste(H[J],P2)+I2*ste(H[J],O2)+M2*ste(H[J],J2)+F2;
V[J]:=ste(H[J],T2)+G2*ste(H[J],P2)+H2*ste(H[J],O2)
+K2*ste(H[J],J2)+L2;
end;
end;{GB4340}
procedure GB4400;
begin
for J:=1 to X do
Z[J]:=B[1]+B[2]*I[J]+B[3]*K[J]+B[4]*L[J];
end;{GB4400}
procedure GB4420;
begin 
   begin
    I[J]:=ste(F[J],J1)+V1;
    K[J]:=ste(F[J],O1)+U1*ste(F[J],J1)+Q1;
    L[J]:=ste(F[J],P1)+I1*ste(F[J],O1)+M1*ste(F[J],J1)+F1;
   end;
 end;{Gb4210}
procedure GB4290;
 begin
  for J:=1 to X do
   begin
    I[J]:=ste(F[J],J1)+V1;
    K[J]:=ste(F[J],O1)+U1*ste(F[J],J1)+Q1;
    L[J]:=ste(F[J],P1)+I1*ste(F[J],O1)+M1*ste(F[J],J1)+F1;
     M[J]:=ste(F[J],T1)+G1*ste(F[J],P1)+H1*ste(F[J],O1)
     +K1*ste(F[J],J1)+L1;
   end;
 end;{GB4290}
procedure GB4170;
 begin
  for J:=1 to X do
   begin
    P[J]:=ste(H[J],J2)+V2;
    Q[J]:=ste(H[J],O2)+U2*ste(H[J],J2)+Q2;
   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 GB4250;
 begin
  for J:=1 to X do
   begin
    P[J]:=ste(H[J],J2)+V2;
    Q[J]:=ste(H[J],O2)+U2*ste(H[J],J2)+Q2;
    U[J]:=ste(H[J],P2)+I2*ste(H[J],O2)+M2*ste(H[J],J2)+F2;
   end;
 end;{GB4250}
procedure GB4340;
 begin
  for J:=1 to X do
   begin
    P[J]:=ste(H[J],J2)+V2;
    Q[J]:=ste(H[J],O2)+U2*ste(H[J],J2)+Q2;
    U[J]:=ste(H[J],P2)+I2*ste(H[J],O2)+M2*ste(H[J],J2)+F2;
    V[J]:=ste(H[J],T2)+G2*ste(H[J],P2)+H2*ste(H[J],O2)
     +K2*ste(H[J],J2)+L2;
   end;
 end;{GB4340}
procedure GB4400;
 begin
  for J:=1 to X do
   Z[J]:=B[1]+B[2]*I[J]+B[3]*K[J]+B[4]*L[J];
 end;{GB4400}
procedure GB4420;
 begin



                                                  87

Страницы