Авторские права на произведения науки, программы для ЭВМ. Черный А.А. - 31 стр.

       writeln(F0,'└────┴──────────┴──────────┘');
      end;
    if PR=74 then
      begin
        for J:=1 to X do
         begin
          write(F0,'├────┼──────────┼');
          writeln(F0,'──────────┼──────────┤');
          write(F0,'│ ',J:2,' │',F[J]:10,'│');
          writeln(F0,H[J]:10,'│',Z[J]:10,'│');
         end;
    writeln(F0,'└────┴──────────┴──────────┴──────────┘');
    end;
    if PR=75 then
      begin
       for J:=1 to X do
         begin
          write(F0,'├────┼──────────┼──────────┼');
          writeln(F0,'──────────┼──────────┤');
          write(F0,'│ ',J:2,' │',F[J]:10,'│');
          writeln(F0,H[J]:10,'│',L[J]:10,'│',Z[J]:10,'│');
         end;
       write(F0,'└────┴──────────┴──────────┴');
       writeln(F0,'──────────┴──────────┘');
    end;
  if PR=76 then
    begin
      for J:=1 to X do
        begin
         write(F0,'├────┼──────────┼──────────┼');
         writeln(F0,'──────────┼──────────┼──────────┤');
         write(F0,'│ ',J:2,' │',F[J]:10,'│',H[J]:10,'│');
         writeln(F0,L[J]:10,'│',K[J]:10,'│',Z[J]:10,'│');
        end;
      write(F0,'└────┴──────────┴──────────┴');
      writeln(F0,'──────────┴──────────┴──────────┘');
    end;
  end;{OUT_F_H_L}
procedure GB2820;
 begin
   writeln(F0,'Математическая модель');
   if X=2 then
     begin
       writeln(F0,'X=2.Model');
       writeln(F0,'Z(J)=',B[1],'+',B[2],'*I(J),');
     end;
   if X=4 then
     begin
       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(F0,'X=8.Model');
       writeln(F0,'Z(J)=',B[1],'+',B[2],'*I(J)+',B[3],'*P(J)+');
       writeln(F0,'+',B[4],'*I(J)*P(J)+',B[5],'*U(J)+');




                                         31