Не могу локализовать зависание

[chertovich]

Надо использовать принцип разбиения кода на части, тогда будет проще написать и отладить код.

[googl]

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

Надо использовать принцип разбиения кода на части, тогда будет проще написать и отладить код.

там метод сложный

[evg_m]

Наверное здесь

  ls:=0.5*(Abt/Arm)*ds;
  if 10*ds>10 then
    lsmin:=10
  else
    ls:=10*ds;
  if 40*ds>40 then
    lsmax:=40
  else
    lsmax:=40*ds;
  if ls<lsmin then ls:=lsmin;
  if ls>lsmax then ls:=lsmax;

Найдено форматированием кода

    ls:=0.5*(Abt/Arm)*ds;
    if 10*ds>10 then
    lsmin:=10
    else ls:=10*ds;
    if 40*ds>40 then
    lsmax:=40
    else lsmax:=40*ds;
    if ls<lsmin then
    ls:=lsmin;
    if ls>lsmax then
    ls:=lsmax;

исправленный код

ls:=0.5*(Abt/Arm)*ds;
lsmin:=min(10, 10*ds);
lsmax:=max(40, 40*ds);
if ls<lsmin then ls:=lsmin;
if ls>lsmax then ls:=lsmax;

к коду надо будет добавить

uses   math;

[Пепел Феникса]

там метод сложный

в течении 6-ти лет мне это удавалось.

[3D Hunter]

застрелиться))) смотрю на этот код и понимаю что я еще потенциально хороший программист)))

по теме: метки лучше не использовать, очень много операий, скорее всего, это подвергается оптимизации.

[googl]

ну блин я не знаю как этот метод организовать проще. точнее нет времени. просто попросили помочь.

[Slym]

type
  TBeton=record
    RbSer,RbtSer,Rb,Rbt,Ebt:real;
  end;
  TArm=record
    RsSer,Rs,Rsc,Rsw:integer;
  end;
const
  BetonClass:array[0..6] of TBeton=(
    (RbSer:7.5; RbtSer:0.85;  Rb:6;   Rbt:0.56; Ebt:19000),
    (RbSer:11;  RbtSer:1.1;   Rb:8.5; Rbt:0.75; Ebt:24000),
    (RbSer:15;  RbtSer:1.35;  Rb:11.5;Rbt:0.9;  Ebt:27500),
    (RbSer:18.5;RbtSer:1.55;  Rb:14.5;Rbt:1.05; Ebt:30000),
    (RbSer:22;  RbtSer:1.75;  Rb:17;  Rbt:1.15; Ebt:32500),
    (RbSer:25.5;RbtSer:1.95;  Rb:19.5;Rbt:1.3;  Ebt:34500),
    (RbSer:29;  RbtSer:2.1;   Rb:22;  Rbt:1.4;  Ebt:36000));
  ArmClass:array[0..2] of TArm=(
    (RsSer:240; Rs:215; Rsc:215; Rsw:170),
    (RsSer:300; Rs:270; Rsc:270; Rsw:215),
    (RsSer:400; Rs:355; Rsc:355; Rsw:285));


procedure TForm1.classbetcmbChange(Sender: TObject);
var i:integer;
begin
  i:=classbetcmb.ItemIndex;
  rbsert.Text:=FloatToStr(BetonClass[i].RbSer);
  rbtsert.Text:=FloatToStr(BetonClass[i].RbtSer);
  rbt.Text:=FloatToStr(BetonClass[i].Rb);
  rbtt.Text:=FloatToStr(BetonClass[i].Rbt);
  ebt.Text:=FloatToStr(BetonClass[i].Ebt);
end;

procedure TForm1.classarmcmbChange(Sender: TObject);
var i:integer;
begin
  i:=classarmcmb.ItemIndex;
  rssert.Text:=IntToStr(ArmClass[i].RsSer);
  rst.Text:=IntToStr(ArmClass[i].Rs);
  rsct.Text:=IntToStr(ArmClass[i].Rsc);
  rswt.Text:=IntToStr(ArmClass[i].Rsw);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  pagecontrol1.ActivePageIndex:=0;
  classbetcmb.OnChange(classbetcmb);
  classarmcmb.OnChange(classarmcmb);
end;

procedure TForm1.raschetClick(Sender: TObject);
var kofprob:integer;
begin
  bmin:=strtofloat(bmint.Text);
  bmax:=strtofloat(bmaxt.Text);
  hmin:=strtofloat(hmint.Text);
  hmax:=strtofloat(hmaxt.Text);
  asmin:=strtofloat(asmint.Text);
  asmax:=strtofloat(asmaxt.Text);

  kofprob:=0;
  while kofprob<10 do
  begin
    r:=((trunc(random*10000))/10000);
    bbaz:=bmin+r*(bmax-bmin);
    r:=((trunc(random*10000))/10000);
    hbaz:=hmin+ r*(hmax-hmin);
    r:=((trunc(random*10000))/10000);
    asbaz:=asmin+r*(asmax-asmin);
    if ogran(bbaz,hbaz,asbaz) then break;
    inc(kofprob);
  end;
  if kofprob<10 then
  begin
    cf:=celfunc(bbaz,hbaz,asbaz);
    metod1(bbaz,hbaz,asbaz,cf);
  end else
    showmessage('Не могу найти пробную точку! Пожалуйста, измените параметры или попробуйте выполнить расчет еще раз!');
end;

[Slym]

я уложил metod1 в 150 строк

[googl]

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

я уложил metod1 в 150 строк

Это блок ограничений. ты организуй метод, который в юниет metod находится) Мы про него говорили.

[evg_m]

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

Это блок ограничений. ты организуй метод, который в юниет metod находится) Мы про него говорили.

unit metod;

interface
 procedure metod1(bbaz,hbaz,asbaz,cfbaz: real);

я уложил metod1 в 150 строк

только цитаты.