[deniks]

Код:

 Procedure DiagnozDef (var tr2: masL; var Fd:masL; var trl1,Votn: masL);

 var fd1 : array [1..4] of real;
jd,md : integer; tcr1:single;
            Begin
            Writeln('');
  Writeln('               Harakteristika defektov ');
  Writeln('                       mashinu');
 Writeln  ;
  writeln('    na ',data[1]:2,'.',data[2]:2,'.',data[3]:4,'Ј.');
                           Writeln;

  Writeln(fr,'')  ;
  Writeln(fr,'         Harakteristika defektov mashinu');
  writeln(fr,'        na ',data[1]:2,'.',data[2]:2,'.',data[3]:4,'Ј.');
 Writeln(FR,'');

 for i:= 1 to 4 do
 Fd1[i]:=0.5*Au[i]+0.5*Au[i];
for j:=1 to L+1 do
    begin
          Writeln('           ',sgarm[j],':');

        Writeln(fr,'           ',sgarm[j],':');

     if (Fd[j] >= 0) and  (Fd[j] < Fd1[1]) then

 Writeln('-defekt otsutstvuet, ')

 else
      begin
 Write('-stepen razvitiya defekta* - ');

        if (Fd[j] >= Fd1[1]) and  (Fd[j] < Fd1[2]) then

     Writeln('nige srednei,  ');

     if (Fd[j] >= Fd1[2]) and  (Fd[j] < Fd1[3]) then
    Writeln('srednyaa, ');
      if (Fd[j] >= Fd1[3]) and  (Fd[j] < Fd1[4]) then
     Writeln('vuwe srednei, ');
     if (Fd[j] >= Fd1[4]) {or (tttr[j]=tx[m]/1.1)} then
     Writeln('nedopust, ');
 if (fd[j] < Fd1[4]) and (m > 2) then
  begin
  writeln('-stepen povregdennosti -', (1-exp(-tx[m]/tr2[j]))*100:5:2,' %');

   Write('-skorost razvitiya defekta -');

        if (Votn[j] > 0) and  (Votn[j]  < Fd1[2]{*1.56}) then

     Writeln(' medlennaya,  ');

     if (Votn[j] >= Fd1[2]{*1.56}) and  (Votn[j] < Fd1[3]{*1.56}) then
    Writeln(' umerennaya, ');
      if (Votn[j] >= Fd1[3]{*1.56}) and  (Votn[j] < Fd1[4]{*1.56}) then
     Writeln(' bustraya, ');
     if (Votn[j]  >= Fd1[4]{*1.56})  then
     Writeln(' predelnaya, ');

              end;   end;
  if m > 2 then
  begin
IF tR2[j]>2*tppr then
Tr2[j]:=2*Tppr
 else
 Tr2[j]:=Tr2[j];
 Trl1[j]:=tx[m]*(1-exp(-tx[m]/tr2[j]))+Tr2[j]*exp(-tx[m]/tr2[j]);
  if trl1[j]>=tr2[j] then
  trl1[j]:=0.95*tr2[j]
  else
  trl1[j]:=trl1[j];
if  Fd[j] >= Fd1[4] then
            begin
 writeln('-stepen povregdennosti -100 %');
 writeln('-narabotka uzla mawunu do ostanovki na remont iz-za');
  writeln(' razvitiya defekta sostavlyaet: 0, sut.' );
  writeln('');
 end;
if  Fd[j] < Fd1[4] then
    begin

 writeln('-narabotka uzla mawunu do ostanovki na remont iz-z');
  writeln(' razvitiya defekta sostavlyaet: ',(trl1[j]-tx[m]):5:1,' - ',(Tr2[j]-tx[m]):5:1,' cгв.,' );
         end; end;
{ else}
 writeln('');
                  Readkey;


     if (Fd[j] >= 0) and  (Fd[j] < Fd1[1]) then

 Writeln(fr,'-defekt otsutstvuet, ')

 else
      begin
 Write(fr,'-stepen razvitiya defekta -');

        if (Fd[j] >= Fd1[1]) and  (Fd[j] < Fd1[2]) then

     Writeln(fr,' nige srednei,  ');

     if (Fd[j] >= Fd1[2]) and  (Fd[j] < Fd1[3]) then
    Writeln(fr,' srednyaa, ');
      if (Fd[j] >= Fd1[3]) and  (Fd[j] < Fd1[4]) then
     Writeln(fr,' vuwe srednei, ');

     if (Fd[j] >= Fd1[4])  or (tr2[j]=tx[m]/1.05) then
     Writeln(fr,' predelnaya, ');
 if (fd[j] < Fd1[4]) and (m > 2) then begin
 writeln(fr,'-stepen povregdennosti - ', (1- exp(-tx[m]/tr2[j]))*100:5:2,' %');

  Write(fr,'-skorost razvitiya defekta  - ');

        if (Votn[j] > 0) and  (Votn[j]  < Fd1[2]) then

     Writeln(fr,' medlennaya,  ');

     if (Votn[j] >= Fd1[2]) and  (Votn[j] < Fd1[3]) then
    Writeln(fr,'umerennaya, ');
      if (Votn[j] >= Fd1[3]) and  (Votn[j] < Fd1[4]) then
     Writeln(fr,'bustr, ');
     if (Votn[j]  >= Fd1[4])  then
     Writeln(fr,'predelnaya, ');
                                   end;   end;


 if m > 2 then

    begin
     writeln(fr,'Fd=',Fd[j]:5:5);
if  Fd[j] >= Fd1[4] then
            begin
  writeln(fr,'-stepen povregdennosti -100 %');
 writeln(fr,'-narabotka mawunudo ostanovki na remont iz-za');
  writeln(fr,' razvitiya defekta sostavlyaet: 0, sut.' );
 end;
 if  Fd[j] < Fd1[4] then
    begin
 writeln(fr,'-narabotka mawunu do ostanovki na remont');
 writeln(fr,' iz-za razvitiya defekta: ',(trl1[j]-tx[m]):5:1,' - ',(Tr2[j]-tx[m]):5:1,' cгв.,' );
         end;
  writeln(fr,'');
                    end;
  writeln(fr,'');
                          end;

                      END;