Составить процедуру замены в паскаль

[katyawapka]

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

[VIK_aka_TOR]

procedure round_mas( var a : array of real; n : integer);
var i : integer;
 begin
  for i:= 0 to n -1 do // если передается безразмерный то начинается массив с нуля,если не ошибаюсь
    while ( real(round( a[ i ] )) <>  a[i] )  do // явное преобразование типов, на всякий случай, 
//если компилятору не понравится сравнение вещественного с целочисленным
      a[i] := a[i] * 10;
 end;

[Serge_Bliznykov]

А может быть, так удобнее будет?

function RealToInt(d : extended):LongInt;
var r : extended;
begin
   r := d;
   while frac(r)>0.000001 do r := r * 10;
   RealToInt := Trunc(r);
 end;

[VIK_aka_TOR]

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

А может быть, так удобнее будет?

function RealToInt(d : extended):LongInt;
var r : extended;
begin
   r := d;
   while frac(r)>0.000001 do r := r * 10;
   RealToInt := Trunc(r);
 end;

тогда еще frac(r) взять по модулю, на случай если числа будут отрицательными в массиве...

[Serge_Bliznykov]

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

тогда еще frac(r) взять по модулю, на случай если числа будут отрицательными в массиве...

ага. точно. согласен!
спасибо за уточнение:

while abs(frac(r))>0.000001 do r := r * 10;