[Ksully]

Обращаюсь к функции Power, когда в запущенной программе нажимаю расчет, компьютер долго думает, а потом выдает "Out of memory"
С чем это может быть связано???
Компютер не совсем старый

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

begin       w:=l/(3600*a*b);       Reky:=(w*dtr)/v;       aa:=1/Reky;       tt:=0.2/(sqr(fi));       yy:=fi-0.94;       bb:=Power(aa,0.2);       if fi<1 then       begin       cc:=0;       dd:=0 ;       end       else      begin       cc:=Power(yy,(-0.59));       dd:=Power(aa,tt);      end;

Admin: Где теги?

[Nyctos Kasignete]

Это весь код? o_O
Тут повиснуть не на чем...

[Ksully]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64

//расчет потерь в КУ procedure TForm3.Button2Click(Sender: TObject);   var  w,L,sher,v,t,tst,dl,p,rr,yy,Ptr,a,b,d,lamda,Re,Reky,tt,ksi:real;  k,i,j,z:integer;  aa,bb,cc,dd:real; begin     v:=strtofloat(Form1.StringGrid2.Cells[1,1]);   p:= strtofloat(Form1.StringGrid2.Cells[1,2]);    a:=strtofloat(Form1.StringGrid1.Cells[1,5]);   b:=strtofloat(Form1.StringGrid1.Cells[1,6]);  for z := 0 to StringGrid2.RowCount - 1 do     StringGrid2.Rows[z].Clear();       Ln:=StrToFloat(Form1.Edit1.Text);       Lk:=StrToFloat(Form1.Edit3.Text);       Step:=StrToFloat(Form1.Edit5.Text);       L:=Ln;       i:=1;       k:=0;    While l<=Lk do    begin          w:=l/(3600*a*b);        Reky:=(w*dtr)/v;        aa:=1/Reky;        tt:=0.2/(sqr(fi));        yy:=fi-0.94;        bb:=Power(aa,2/10);        if fi<1 then        begin        cc:=0;        dd:=0 ;        end        else       begin        cc:=Power(yy,(-59/100));        dd:=Power(aa,tt);       end;          begin        //расчет для КУ        //пароперегреватель        if (sigma1<=sigma2) and (fi>=0.06) and (fi<=1) then         ksi:=2*(1/(sqrt(sigma1-1)))*bb*Zparo      else        if (sigma1>sigma2) and (fi>1) and (fi<=8) then         ksi:=0.38*(1/(sqrt(sigma1-1)))*cc*dd*Zparo      else        if (sigma1>sigma2) and (fi>8) and (fi<=15) then          ksi:=0.118*(1/(sqrt(sigma1-1)))*Zparo;      // end;      Form3.StringGrid2.Cells[0,0]:='Re';      Form3.StringGrid2.Cells[1,0]:='Коэф сопр паропер';      Form3.StringGrid2.Cells[0,i]:=FloatToStr(Reky);      Form3.StringGrid2.Cells[1,i]:=FloatToStr(ksi);   i:=i+1;   W:=W+step;   k:=k+1;   end;  end;   Form3.StringGrid2.RowCount:=k+1; end;

Вот вся процедура, при нажатии на баттон зависает

[Nyctos Kasignete]

У вас условие завершение цикла может никогда не выполниться, если изначально L < Lk. В теле цикла эти переменные вообще не изменяются!.. Или покажите мне, где??

[Ksully]

Почему L > Lk. ?????
У меня написано While l<=Lk do
Я задаю в Эдитах Lk и Ln, в пределах этих значениях L и меняется

[Nyctos Kasignete]

Ksully, у вас бесконечный цикл! Чтобы цикл когда-нибудь все-таки завершился, необходимо, чтобы выполнилось условие L > Lk...

Сообщение от Ksully

Код:

Но ни та, ни другая переменная в цикле никак не модифицируются. Соответственно, однажды войдя в цикл, вы не выйдете из него. Отсюда ошибка.