[Ksully]

Да так все работает..

А в моем коде, нет

Код:

 begin
       Reky:=(w*dtr)/v;
       //расчет для КУ
       //пароперегреватель
       if (sigma1<=sigma2) and (fi>=0.06) and (fi<=1) then
        ksi:=(2*(Exp((-0.5)*Ln(sigma1-1)))*(Exp((-0.2)*Ln(Reky))))*Zparo
     else
       if (sigma1>sigma2) and (fi>1) and (fi<=8) then
        ksi:=(0.38*(Exp((-0.5)*Ln(sigma1-1)))* Exp((-0.59)*Ln(fi-0.94))* Exp((-0.2/(sqr(fi))*Ln(Reky))))*Zparo
     else
       if (sigma1>sigma2) and (fi>8) and (fi<=15) then
         ksi:=(0.118*(Exp((-0.5)*Ln(sigma1-1))))*Zparo;
      end;
     Form3.StringGrid2.Cells[0,0]:='Re';
     Form3.StringGrid2.Cells[0,i]:=FloatToStr(Reky);
     Form3.StringGrid2.Cells[1,0]:='Коэф сопр паропер';
     Form3.StringGrid2.Cells[1,i]:=FloatToStr(ksi);