Основы изобретательства и научных исследований. Черный А.А. - 170 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

170
writeln(F0,'Коэффициенты ортогонализации');
writeln('V1=',V1,' U1=',U1,' Q1=',Q1);
writeln('I1=',I1,' M1=',M1,' F1=',F1);
writeln('G1=',G1,' H1=',H1,' K1=',K1);
writeln('L1=',L1);
writeln(F0,'V1=',V1,' U1=',U1,' Q1=',Q1);
writeln(F0,'I1=',I1,' M1=',M1,' F1=',F1);
writeln(F0,'G1=',G1,' H1=',H1,' K1=',K1);
writeln(F0,'L1=',L1);
end;
25:begin
VVOD51;
GB3860(A1,B1,C1,D1,E1,J1,O1,P1,T1,V1,U1,
Q1,I1,M1,F1,G1,H1,K1,L1);
writeln('Коэффициенты ортогонализации');
writeln(F0,'Коэффициенты ортогонализации');
writeln('V1=',V1,' U1=',U1,' Q1=',Q1);
writeln('I1=',I1,' M1=',M1,' F1=',F1);
writeln('G1=',G1,' H1=',H1,' K1=',K1);
writeln('L1=',L1);
writeln(F0,'V1=',V1,' U1=',U1,' Q1=',Q1);
writeln(F0,'I1=',I1,' M1=',M1,' F1=',F1);
writeln(F0,'G1=',G1,' H1=',H1,' K1=',K1);
writeln(F0,'L1=',L1);
VVOD52;
GB3860(A2,C2,E2,D2,B2,J2,O2,P2,T2,V2,U2,
Q2,I2,M2,F2,G2,H2,K2,L2);
writeln('Коэффициенты ортогонализации');
writeln(F0,'Коэффициенты ортогонализации');
writeln('V2=',V2,' U2=',U2,' Q2=',Q2);
writeln('I2=',I2,' M2=',M2,' F2=',F2);
writeln('G2=',G2,' H2=',H2,' K2=',K2);
writeln('L2=',L2);
writeln(F0,'V2=',V2,' U2=',U2,' Q2=',Q2);
writeln(F0,'I2=',I2,' M2=',M2,' F2=',F2);
writeln(F0,'G2=',G2,' H2=',H2,' K2=',K2);
writeln(F0,'L2=',L2);
end;
end;{case}
end;{VV_DAN}
procedure OUT_Z_B;
begin
writeln('Расчетные показатели Z(J) до анализа B(J)');
writeln(F0,'Расчетные показатели Z(J) до анализа B(J)');
writeln(F0,'┌────┬────────────────────────────────┐');
writeln(F0,'│ │ Значение │');
writeln(F0,'│ J ├──────────┬──────────┬──────────┤');
writeln(F0,'│ │ Y(J) │ Z(J) │ Y(J)-Z(J)│');
for J:=1 to X do
begin
writeln(F0,'├────┼──────────┼──────────┼──────────┤');
write(F0,'│ ',J:2,' │',Y[J]:10,'│',Z[J]:10,'│'); 
      writeln(F0,'Коэффициенты ортогонализации');
      writeln('V1=',V1,' U1=',U1,' Q1=',Q1);
      writeln('I1=',I1,' M1=',M1,' F1=',F1);
      writeln('G1=',G1,' H1=',H1,' K1=',K1);
      writeln('L1=',L1);
      writeln(F0,'V1=',V1,' U1=',U1,' Q1=',Q1);
      writeln(F0,'I1=',I1,' M1=',M1,' F1=',F1);
      writeln(F0,'G1=',G1,' H1=',H1,' K1=',K1);
      writeln(F0,'L1=',L1);
     end;
   25:begin
      VVOD51;
      GB3860(A1,B1,C1,D1,E1,J1,O1,P1,T1,V1,U1,
      Q1,I1,M1,F1,G1,H1,K1,L1);
      writeln('Коэффициенты ортогонализации');
      writeln(F0,'Коэффициенты ортогонализации');
      writeln('V1=',V1,' U1=',U1,' Q1=',Q1);
      writeln('I1=',I1,' M1=',M1,' F1=',F1);
      writeln('G1=',G1,' H1=',H1,' K1=',K1);
      writeln('L1=',L1);
      writeln(F0,'V1=',V1,' U1=',U1,' Q1=',Q1);
      writeln(F0,'I1=',I1,' M1=',M1,' F1=',F1);
      writeln(F0,'G1=',G1,' H1=',H1,' K1=',K1);
      writeln(F0,'L1=',L1);
      VVOD52;
      GB3860(A2,C2,E2,D2,B2,J2,O2,P2,T2,V2,U2,
      Q2,I2,M2,F2,G2,H2,K2,L2);
      writeln('Коэффициенты ортогонализации');
      writeln(F0,'Коэффициенты ортогонализации');
      writeln('V2=',V2,' U2=',U2,' Q2=',Q2);
      writeln('I2=',I2,' M2=',M2,' F2=',F2);
      writeln('G2=',G2,' H2=',H2,' K2=',K2);
      writeln('L2=',L2);
      writeln(F0,'V2=',V2,' U2=',U2,' Q2=',Q2);
      writeln(F0,'I2=',I2,' M2=',M2,' F2=',F2);
      writeln(F0,'G2=',G2,' H2=',H2,' K2=',K2);
      writeln(F0,'L2=',L2);
     end;
   end;{case}
 end;{VV_DAN}
procedure OUT_Z_B;
  begin
  writeln('Расчетные показатели Z(J) до анализа B(J)');
  writeln(F0,'Расчетные показатели Z(J) до анализа B(J)');
  writeln(F0,'┌────┬────────────────────────────────┐');
  writeln(F0,'│ │             Значение          │');
  writeln(F0,'│ J ├──────────┬──────────┬──────────┤');
  writeln(F0,'│ │ Y(J) │ Z(J) │ Y(J)-Z(J)│');
  for J:=1 to X do
      begin
        writeln(F0,'├────┼──────────┼──────────┼──────────┤');
        write(F0,'│ ',J:2,' │',Y[J]:10,'│',Z[J]:10,'│');

                                170

Страницы