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

      writeln(F0,'──────────┴──────────┴──────────┘');
    end;
  end;{OUT_F_H_L}
procedure GB2820;
 begin
   writeln(F0,'System graphic Z(J) for Excel.X=2,X=4,X=8');
   writeln(F0,'Математическая модель');
   if X=2 then
     begin
       writeln('X=2. System');
       writeln('1.1.','A1=',A1,'Z(1)=',Z[1]);
       writeln(F0,'X=2. System');
       writeln(F0,'1.1.','A1=',A1,'Z(1)=',Z[1]);
       writeln(F0,'1.2.','B1=',B1,'Z(2)=',Z[2]);
       writeln('X=2. Model');
       writeln('Z(J)=',B[1],'+',B[2],'*I(J),');
       writeln(F0,'X=2. Model');
       writeln(F0,'Z(J)=',B[1],'+',B[2],'*I(J),');
      end;
   if X=4 then
     begin
       writeln('X=4. System');
       writeln('1.1.','A2=',A2,'A1=',A1,'Z(1)=',Z[1]);
       writeln(F0,'X=4. System');
       writeln(F0,'1.1.','A2=',A2,'A1=',A1,'Z(1)=',Z[1]);
       writeln(F0,'1.2.','A2=',A2,'B1=',B1,'Z(2)=',Z[2]);
       writeln(F0,'2.1.','B2=',B2,'A1=',A1,'Z(3)=',Z[3]);
       writeln(F0,'2.2.','B2=',B2,'B1=',B1,'Z(4)=',Z[4]);
       writeln(F0,'3.1.','A1=',A1,'A2=',A2,'Z(1)=',Z[1]);
       writeln(F0,'3.2.','A1=',A1,'B2=',B2,'Z(3)=',Z[3]);
       writeln(F0,'4.1.','B1=',B1,'A2=',A2,'Z(2)=',Z[2]);
       writeln(F0,'4.2.','B1=',B1,'B2=',B2,'Z(4)=',Z[4]);
       writeln('X=4. Model');
       writeln('Z(J)=',B[1],'+',B[2],'*I(J)+',B[3],'*P(J)+');
       writeln('+',B[4],'*I(J)*P(J),');
       writeln(F0,'X=4. Model');
       writeln(F0,'Z(J)=',B[1],'+',B[2],'*I(J)+',B[3],'*P(J)+');
       writeln(F0,'+',B[4],'*I(J)*P(J),');
       end;
   if X=8 then
     begin
       writeln('X=8. System');
       writeln('1.1.','A2=',A2,'A3=',A3,'A1=',A1,'Z(1)=',Z[1]);
       writeln(F0,'X=8. System');
       writeln(F0,'1.1.','A2=',A2,'A3=',A3,'A1=',A1,'Z(1)=',Z[1]);
       writeln(F0,'1.2.','A2=',A2,'A3=',A3,'B1=',B1,'Z(2)=',Z[2]);
       writeln(F0,'2.1.','A2=',A2,'B3=',B3,'A1=',A1,'Z(5)=',Z[5]);
       writeln(F0,'2.2.','A2=',A2,'B3=',B3,'B1=',B1,'Z(6)=',Z[6]);
       writeln(F0,'3.1.','B2=',B2,'A3=',A3,'A1=',A1,'Z(3)=',Z[3]);
       writeln(F0,'3.2.','B2=',B2,'A3=',A3,'B1=',B1,'Z(4)=',Z[4]);
       writeln(F0,'4.1.','B2=',B2,'B3=',B3,'A1=',A1,'Z(7)=',Z[7]);
       writeln(F0,'4.2.','B2=',B2,'B3=',B3,'B1=',B1,'Z(8)=',Z[8]);
       writeln(F0,'5.1.','A1=',A1,'A3=',A3,'A2=',A2,'Z(1)=',Z[1]);
       writeln(F0,'5.2.','A1=',A1,'A3=',A3,'B2=',B2,'Z(3)=',Z[3]);
       writeln(F0,'6.1.','A1=',A1,'B3=',B3,'A2=',A2,'Z(5)=',Z[5]);
       writeln(F0,'6.2.','A1=',A1,'B3=',B3,'B2=',B2,'Z(7)=',Z[7]);
       writeln(F0,'7.1.','B1=',B1,'A3=',A3,'A2=',A2,'Z(2)=',Z[2]);




                                               29