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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

26
begin
for J:=1 to X do
begin
N3:=B[1]+B[2]*I[J]+B[3]*P[J]+B[4]*I[J]*P[J];
N4:=B[5]*U[J]+B[6]*I[J]*U[J]+B[7]*P[J]*U[J];
Z[J]:=N3+N4+B[8]*I[J]*P[J]*U[J];
end;
end;{GB2570}
procedure GB2600;
begin
for J:=1 to X do
begin
N3:=B[1]+B[2]*I[J]+B[3]*P[J]+B[4]*I[J]*P[J];
N4:=B[5]*U[J]+B[6]*I[J]*U[J]+B[7]*P[J]*U[J];
N5:=B[8]*I[J]*P[J]*U[J]+B[9]*Q[J]+B[10]*I[J]*Q[J];
N6:=B[11]*P[J]*Q[J]+B[12]*I[J]*P[J]*Q[J]+B[13]*U[J]*Q[J];
N7:=B[14]*I[J]*U[J]*Q[J]+B[15]*P[J]*U[J]*Q[J];
Z[J]:=N3+N4+N5+N6+N7+B[16]*I[J]*P[J]*U[J]*Q[J];
end;
end;{GB2600}
begin
end. 
 begin
  for J:=1 to X do
   begin
     N3:=B[1]+B[2]*I[J]+B[3]*P[J]+B[4]*I[J]*P[J];
     N4:=B[5]*U[J]+B[6]*I[J]*U[J]+B[7]*P[J]*U[J];
     Z[J]:=N3+N4+B[8]*I[J]*P[J]*U[J];
   end;
 end;{GB2570}
procedure GB2600;
 begin
  for J:=1 to X do
   begin
     N3:=B[1]+B[2]*I[J]+B[3]*P[J]+B[4]*I[J]*P[J];
     N4:=B[5]*U[J]+B[6]*I[J]*U[J]+B[7]*P[J]*U[J];
     N5:=B[8]*I[J]*P[J]*U[J]+B[9]*Q[J]+B[10]*I[J]*Q[J];
     N6:=B[11]*P[J]*Q[J]+B[12]*I[J]*P[J]*Q[J]+B[13]*U[J]*Q[J];
     N7:=B[14]*I[J]*U[J]*Q[J]+B[15]*P[J]*U[J]*Q[J];
     Z[J]:=N3+N4+N5+N6+N7+B[16]*I[J]*P[J]*U[J]*Q[J];
   end;
 end;{GB2600}
begin
end.




                                                 26

Страницы