как сделать из числа типа real число типа integer?

[gylayko]

нужна программа перевода из любой системы исчисления в любую

procedure TForm1.Button1Click(Sender: TObject);
var i,x,p,z,q,j:integer; s,k:Real; mas:array[1..40] of Integer;
begin
x:=StrToInt(Edit1.Text);{число и}
p:=StrToInt(Edit2.Text);{его основание}
i:=0;
 while (x<>0) do
 begin
   s:=s+(x mod 10)*exp(ln(p)*i);
   inc(i);
   x:=x div 10;
 end; {перевели в десятичную}
z:=StrToInt(Edit3.Text); {основание системы, в которую нужно перевести дальше из полученного десятичного числа}
while s<>0 do
  begin
   s:=s div z;{делим число на основание желаемой системы}
   k:=s mod z;{получаем остаток от числа и}
   mas[q]:=k;{записываем его в массив}
   inc(q);
  end;
for j:=1 to q do{из остатков получаем число и выводим все его составные цифры по порядку}
 begin
  Edit4.Text:=FloatToStr(mas[j]);
 end;
end;
end.

там в операциях s:=s div z; и k:=s mod z; выдает ошибку "operator not applicable to this operand type" и это неудивительно, ведь там получается нецелочисленное число, а операции div и mod для целочисленных. что можно сделать в такой ситуации?

[evg_m]

что можно сделать в такой ситуации?

отказаться от exp и ln

var
  s: integer;
  pp: integer;

 pp:=p;
 while (x<>0) do
 begin
   s:=s+(x mod 10)*p;
   pp:=pp*p;
   x:=x div 10;
 end; {перевели в десятичную}

и обратите внимание на предупрежения (когда дойдет до них дело)

[Warning] ...: Variable 's' might not have been initialized

[gylayko]

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

отказаться от exp и ln

var
  s: integer;
  pp: integer;

 pp:=p;
 while (x<>0) do
 begin
   s:=s+(x mod 10)*p;
   pp:=pp*p;
   x:=x div 10;
 end; {перевели в десятичную}

и обратите внимание на предупрежения (когда дойдет до них дело)

ухты! а теперь вылезла такая ошибка ш.jpg
ошибка вот в этом

Edit4.Text:=FloatToStr(mas[j]);

что же делать то?

[Sciv]

А у Вас массив mas какого типа? Может, ему этот Float поперек скобок встает?

[gylayko]

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

А у Вас массив mas какого типа? Может, ему этот Float поперек скобок встает?

может быть! попробовал поменять типы, а результат тот же!

[Serge_Bliznykov]

Вы делаете большую-пребольшую ошибку!
Любая переменная, перед тем, как будет прочитана, должна быть записана.
Поэтому нужно ОБЯЗАТЕЛЬНО ИНИЦИЛИЗИРОВАТЬ используемые переменные.

вот тут:

   mas[q]:=k;{записываем его в массив}
   inc(q);

перед началом цикло должно быть обязательно q:=1; :

q := 1;
while s<>0 do
  begin
   s:=s div z;{делим число на основание желаемой системы}
   k:=s mod z;{получаем остаток от числа и}
   mas[q]:=k;{записываем его в массив}
   inc(q);
  end;

p.s. остальной код я не смотрел.

[evg_m]

Вы делаете большую-пребольшую ошибку!
Любая переменная, перед тем, как будет прочитана, должна быть записана.

Я не зря вам сказал

и обратите внимание на предупрежения (когда дойдет до них дело)