Математическое моделирование. Черный А.А. - 233 стр.

 procedure VVOD51; procedure VVOD52;
 procedure tablF9; procedure OUT_F_H_L(PR:integer);
Implementation
 procedure VVOD51;
   begin
    writeln('Ввод A1 C1 E1 D1 B1 J1 O1 P1 T1');
    readln(A1,C1,E1,D1,B1,J1,O1,P1,T1);
    writeln(F0,'A1=',A1,' C1=',C1,' E1=',E1);
    writeln(F0,'D1=',D1,' B1=',B1,' J1=',J1);
    writeln(F0,'O1=',O1,' P1=',P1,' T1=',T1);
   end;{VVOD51}
 procedure VVOD52;
   begin
    writeln('Ввод A2 C2 E2 D2 B2 J2 O2 P2 T2');
    readln(A2,C2,E2,D2,B2,J2,O2,P2,T2);
    writeln(F0,'A2=',A2,' C2=',C2,' E2=',E2);
    writeln(F0,'D2=',D2,' B2=',B2,' J2=',J2);
    writeln(F0,'O2=',O2,' P2=',P2,' T2=',T2);
   end;{VVOD52}
 procedure PR_MOD;
   begin
    case X of
   5: begin
       F[1]:=A1; F[2]:=B1; F[3]:=C1; F[4]:=D1; F[5]:=E1;
     end
  25:begin
      F[1]:=A1; H[1]:=A2; F[2]:=B1; H[2]:=A2; F[3]:=A1;
      H[3]:=B2; F[4]:=B1; H[4]:=B2; F[5]:=A1; H[5]:=E2;
      F[6]:=B1; H[6]:=E2; F[7]:=E1; H[7]:=A2; F[8]:=E1;
      H[8]:=B2; F[9]:=E1; H[9]:=E2; F[10]:=A1; H[10]:=C2;
      F[11]:=B1; H[11]:=D2; F[12]:=A1; H[12]:=D2; F[13]:=B1;
      H[13]:=C2; F[14]:=E1; H[14]:=C2; F[15]:=E1; H[15]:=D2;
      F[16]:=C1; H[16]:=A2; F[17]:=C1; H[17]:=C2; F[18]:=C1;
      H[18]:=E2; F[19]:=C1; H[19]:=D2; F[20]:=C1; H[20]:=B2;
      F[21]:=D1; H[21]:=A2; F[22]:=D1; H[22]:=C2; F[23]:=D1;
      H[23]:=E2; F[24]:=D1; H[24]:=D2; F[25]:=D1; H[25]:=B2;
    end;
   end;
 end;
 procedure GB4880;
   begin
    writeln(F0,'Математическая модель');
     if X=5 then
       begin
   writeln(F0,'Z(J)=',B[1]:10,'+',B[2]:10,'*I(J)+',B[3]:10,'*K(J)+');
   writeln(F0,'+',B[4]:10,'*L(J)+',B[5]:10,'*M(J),');
       end;
     if X=25 then
       begin
   writeln(F0,'Z(J)=',B[1]:10,'+',B[2]:10,'*I(J)+',B[3]:10,'*K(J)+');
   writeln(F0,'+',B[4]:10,'*P(J)+',B[5]:10,'*I(J)*P(J)+');
   writeln(F0,'+',B[6]:10,'*Q(J)+',B[7]:10,'*I(J)*Q(J)+');
   writeln(F0,'+',B[8]:10,'*P(J)*Q(J)+',B[9]:10,'*K(J)*Q(J)+');
   writeln(F0,'+',B[10]:10,'*U(J)+',B[11]:10,'*I(J)*U(J)+');
   writeln(F0,'+',B[12]:10,'*K(J)*U(J)+',B[13]:10,'*V(J)+');
   writeln(F0,'+',B[14]:10,'*I(J)*V(J)+',B[15]:10,'*I(J)*V(J)+');
   writeln(F0,'+',B[16]:10,'*L(J)+',B[17]:10,'*P(J)*L(J)+');
   writeln(F0,'+',B[18]:10,'*Q(J)*L(J)+',B[19]:10,'*L(J)*U(J)+');
   writeln(F0,'+',B[20]:10,'*L(J)*V(J)+',B[21]:10,'*M(J)+');
   writeln(F0,'+',B[22]:10,'*P(J)*M(J)+',B[23]:10,'*Q(J)*M(J)+');



                                                      233