[Delphi] Перевод из целого типа в вещественный

[Serge_Bliznykov]

а так не проще?

var
  m_transp_summ, m_transp_step, Vmax, Km: extended;
  R, S, i_convert: extended;
begin
  R := strtofloat(edt_R.Text);
  S:=  strtofloat(edt_S.Text);


  Vmax:=  strtofloat(edt_Vmax.Text);
  Km:=  strtofloat(edt_Km.Text);
  m_transp_summ:=0;
  m_transp_step:=0;

  i_convert=2;
  while i_convert<(round(R)+1.1) do    //если сделать от нуля, то для первой клетки не будет перенесенного ею азота и по формуле, и в жизни
    begin

       m_transp_step:= (3.14*(i_convert-1)*i_convert*betta*Vmax*S*L_step)/(S+Km);
       S:=S-0.000001;// вычитаются траты на рост из английской статьи statya_s_razdeleniem_translateds_final.docx

       m_transp_summ:=m_transp_summ + m_transp_step;
       i_convert := i_convert + 1
    end;

   Resalt.Caption:=FloatToStr(m_transp_summ)

end;

[anaschu]

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

а так не проще?

var
  m_transp_summ, m_transp_step, Vmax, Km: extended;
  R, S, i_convert: extended;
begin
  R := strtofloat(edt_R.Text);
  S:=  strtofloat(edt_S.Text);


  Vmax:=  strtofloat(edt_Vmax.Text);
  Km:=  strtofloat(edt_Km.Text);
  m_transp_summ:=0;
  m_transp_step:=0;

  i_convert=2;
  while i_convert<(round(R)+1.1) do    //если сделать от нуля, то для первой клетки не будет перенесенного ею азота и по формуле, и в жизни
    begin

       m_transp_step:= (3.14*(i_convert-1)*i_convert*betta*Vmax*S*L_step)/(S+Km);
       S:=S-0.000001;// вычитаются траты на рост из английской статьи statya_s_razdeleniem_translateds_final.docx

       m_transp_summ:=m_transp_summ + m_transp_step;
       i_convert := i_convert + 1
    end;

   Resalt.Caption:=FloatToStr(m_transp_summ)

end;

Сейчас посмотрю

[anaschu]

вечером посмотрю, сорян

[anaschu]

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

а так не проще?

var
  m_transp_summ, m_transp_step, Vmax, Km: extended;
  R, S, i_convert: extended;
begin
  R := strtofloat(edt_R.Text);
  S:=  strtofloat(edt_S.Text);


  Vmax:=  strtofloat(edt_Vmax.Text);
  Km:=  strtofloat(edt_Km.Text);
  m_transp_summ:=0;
  m_transp_step:=0;

  i_convert=2;
  while i_convert<(round(R)+1.1) do    //если сделать от нуля, то для первой клетки не будет перенесенного ею азота и по формуле, и в жизни
    begin

       m_transp_step:= (3.14*(i_convert-1)*i_convert*betta*Vmax*S*L_step)/(S+Km);
       S:=S-0.000001;// вычитаются траты на рост из английской статьи statya_s_razdeleniem_translateds_final.docx

       m_transp_summ:=m_transp_summ + m_transp_step;
       i_convert := i_convert + 1
    end;

   Resalt.Caption:=FloatToStr(m_transp_summ)

end;

да, так проще. все работает, уже сделал выводы, пишу статью