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

procedure VVOD32;
  begin
   writeln('Ввод A2 E2 B2 J2 O2');
   readln(A2,E2,B2,J2,O2);
   writeln(F0,'A2=',A2,' E2=',E2,' B2=',B2);
   writeln(F0,'J2=',J2,' O2=',O2);
  end;{VVOD32}
procedure VVOD33;
  begin
   writeln('Ввод A3 E3 B3 J3 O3');
   readln(A3,E3,B3,J3,O3);
   writeln(F0,'A3=',A3,' E3=',E3,' B3=',B3);
   writeln(F0,'J3=',J3,' O3=',O3);
  end;{VVOD33}
procedure PR_MOD;
  begin
   case X of
  3: begin
     F[1]:=A1; F[2]:=B1; F[3]:=E1;
    end;
  9: 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;
    end;
 27:begin
     F[1]:=A1; H[1]:=A2; L[1]:=A3; F[2]:=B1; H[2]:=A2;
     L[2]:=A3; F[3]:=A1; H[3]:=B2; L[3]:=A3; F[4]:=B1;
     H[4]:=B2; L[4]:=A3; F[5]:=A1; H[5]:=A2; L[5]:=B3;
     F[6]:=B1; H[6]:=A2; L[6]:=B3; F[7]:=A1; H[7]:=B2;
     L[7]:=B3; F[8]:=B1; H[8]:=B2; L[8]:=B3; F[9]:=A1;
     H[9]:=E2; L[9]:=E3; F[10]:=B1; H[10]:=E2; L[10]:=E3;
     F[11]:=E1; H[11]:=A2; L[11]:=E3; F[12]:=E1; H[12]:=B2;
     L[12]:=E3; F[13]:=E1; H[13]:=E2; L[13]:=A3; F[14]:=E1;
     H[14]:=E2; L[14]:=B3; F[15]:=A1; H[15]:=A2; L[15]:=E3;
     F[16]:=B1; H[16]:=A2; L[16]:=E3; F[17]:=A1; H[17]:=B2;
     L[17]:=E3; F[18]:=B1; H[18]:=B2; L[18]:=E3; F[19]:=A1;
     H[19]:=E2; L[19]:=A3; F[20]:=B1; H[20]:=E2; L[20]:=A3;
     F[21]:=A1; H[21]:=E2; L[21]:=B3; F[22]:=B1; H[22]:=E2;
     L[22]:=B3; F[23]:=E1; H[23]:=A2; L[23]:=A3; F[24]:=E1;
     H[24]:=B2; L[24]:=A3; F[25]:=E1; H[25]:=A2; L[25]:=B3;
     F[26]:=E1; H[26]:=B2; L[26]:=B3; F[27]:=E1; H[27]:=E2;
     L[27]:=E3;
   end;
  end;
end;

procedure GB4880;
 begin
  writeln(F0,'Математическая модель');

  if X=3 then
    begin
    writeln(F0,'Z(J)=',B[1]:10,'+',B[2]:10,'*I(J)+',B[3]:10,'*K(J),');
    end;
  if X=9 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)+');



                                                          61