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

[anaschu]

Добрый. Есть процедура, где мне приходиться счетчик цикла использовать внутри формулы, в которой стоят числа по типу 2,3 * 10 в минус пятнадцатой.
Потому получается ошибка

[dcc32 Error] Unit1.pas(56): E2032 For loop control variable must have ordinal type

А получиться может число порядка минус двадцатой
Ну мне кажется, что такие числа должны быть в extended или int64 или другом вещественном типе? что то я не догоняю.

Как перевести счетчик цикла в вещественный тип, что бы его потом можно было использовать внутри формулы?

Что бы не было вот этой ошибки:
\
[dcc32 Error] Unit1.pas(59): E2010 Incompatible types: 'Integer' and 'Extended'

procedure TForm1.btn_startClick(Sender: TObject);
const

  L_step=1;  ////mm
   h=1;    //minuts
   betta =0.017   ; //minuts(-1)



var
  i:real; m_transp_summ, m_transp_step, R, S, Vmax, Km: Integer  ;
  i_convert: Integer;
begin
  R := strtoint(edt_R.Text);
  S:=  strtoint(edt_S.Text);

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

  for i:=2 to  (R+1) do    //если сделать от нуля, то для первой клетки не будет перенесенного ею азота и по формуле, и в жизни
    begin

     m_transp_step:= (3.14*(i-1)*i*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;

      end;

   Resalt.Caption:=FloatToStr(m_transp_summ)

end;

end.

[GetMax]

Используйте while или repeat

[Sciv]

Введите переменную типа extended или int64 и присваивайте ей в цикле значение текущего i - произойдёт неявное преобразование

Или в формуле вместо i напишите (i/1) - при выполнении операции деления также происходит преобразование.

[Аватар]

Просто объяви m_transp_step, S и bm_transp_summ как Extended

[anaschu]

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

Используйте while или repeat

вопрос по while.
Если у меня идет цикл не от нуля, а от двух. как это прописать?

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

Введите переменную типа extended или int64 и присваивайте ей в цикле значение текущего i - произойдёт неявное преобразование

Или в формуле вместо i напишите (i/1) - при выполнении операции деления также происходит преобразование.

Вот я первое уже пробовал сделать, че то не пошло, ща еще попробую

[Serge_Bliznykov]

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

вопрос по while.
Если у меня идет цикл не от нуля, а от двух. как это прописать?

это "сильный" вопрос!
Простите, а Вы вообще описание и примеры использования цикла WHILE смотрели?

в общем случае это выглядит так:

mx:=2;
while mx<(R+1) do begin
  .....
  mx := max + ШагЦикла;
end;

[anaschu]

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

Введите переменную типа extended или int64 и присваивайте ей в цикле значение текущего i - произойдёт неявное преобразование

Или в формуле вместо i напишите (i/1) - при выполнении операции деления также происходит преобразование.

вот что получилось, во всяком случае не ругается компилятор

procedure TForm1.btn_startClick(Sender: TObject);
const

  L_step=1;  ////mm
   h=1;    //minuts
   betta =0.017   ; //minuts(-1)



var
  i:shortint; m_transp_summ, m_transp_step, R_convert, S_convert, Vmax, Km: extended  ;
  {m_transp_summ, m_transp_step:extended;}
  R, S, i_convert: Integer;
  r_convert2:shortint;
begin
  R := strtoint(edt_R.Text);
  S:=  strtoint(edt_S.Text);
  R_convert:=R;
  S_convert:=S;


  Vmax:=  strtoint(edt_Vmax.Text);
  Km:=  strtoint(edt_Km.Text);
  m_transp_summ:=0;
  m_transp_step:=0;
  r_convert2:=round(r)+1;


  for i:=2 to  r_convert2 do    //если сделать от нуля, то для первой клетки не будет перенесенного ею азота и по формуле, и в жизни
    begin

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

     m_transp_summ:=m_transp_summ + m_transp_step;

      end;

   Resalt.Caption:=FloatToStr(m_transp_summ)

end;

end.

[Sciv]

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

Вот я первое уже пробовал сделать, че то не пошло, ща еще попробую

Извиняюсь, я не обратил внимание, что у Вас все переменные целыми объявлены и насоветовал глупость сделать.

Достаточно сделать, как сказал Аватар - объявить их extended. В этом случае независимо от типа переменной i выполнится приведение к результирующему типу - то есть к extended. Поэтому:

i_convert:=i;

лишнее.

[anaschu]

обьявить экстендет пойдет для того, что бы работа формула. но i тогда не заработает в цикле.
i все равно надо будет переобьявлять.
Потому что даже если убрать все для конвертации в другие типы, работать не будет

var
  i:shortint; m_transp_summ, m_transp_step, R,S,Vmax, Km: extended  ;

begin
  R := strtoint(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;


  for i:=2 to  R+2 do    //если сделать от нуля, то для первой клетки не будет перенесенного ею азота и по формуле, и в жизни
    begin


     m_transp_step:= (3.14*(i-1)*i*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;

      end;

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

Извиняюсь, я не обратил внимание, что у Вас все переменные целыми объявлены и насоветовал глупость сделать.

Достаточно сделать, как сказал Аватар - объявить их extended. В этом случае независимо от типа переменной i выполнится приведение к результирующему типу - то есть к extended. Поэтому:

i_convert:=i;

лишнее.

Ну да. Только может статься, что и ваше тоже сработает...Пока мне пришлось все strtoint заменить на strToFloat

[anaschu]

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

Поэтому:

i_convert:=i;

лишнее.

пока что работает вот так:

procedure TForm1.btn_startClick(Sender: TObject);
const

  L_step=1;  ////mm
   h=1;    //minuts
   betta =0.017   ; //minuts(-1)



var
  i:shortint; m_transp_summ, m_transp_step, R_convert, S_convert, Vmax, Km: extended  ;
  {m_transp_summ, m_transp_step:extended;}
  R, S, i_convert: extended;
  r_convert2:shortint;
begin
  R := strtoint(edt_R.Text);
  S:=  strtofloat(edt_S.Text);
  R_convert:=R;
  S_convert:=S;


  Vmax:=  strtofloat(edt_Vmax.Text);
  Km:=  strtofloat(edt_Km.Text);
  m_transp_summ:=0;
  m_transp_step:=0;
  r_convert2:=round(r)+1;


  for i:=2 to  r_convert2 do    //если сделать от нуля, то для первой клетки не будет перенесенного ею азота и по формуле, и в жизни
    begin

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

     m_transp_summ:=m_transp_summ + m_transp_step;

      end;

   Resalt.Caption:=FloatToStr(m_transp_summ)

end;

end.