Конвертор Опции

[nik.bstu]

Есть мной написанный конвертор числа в двоичный код... Как его можно ускорить... Нужно для ускорения полнопереборных лгоритмов...

const n=15;
type t_kod=array[1..n] of 0..1;
procedure convertor(var a:t_kod; y:longint );
var t:longint;
    x,q: longint;

begin
  t:=n;
  x:=y;
  if x<0 then a[1]:= 1;
  x:=abs(x);
  repeat
  q:=x mod 2;
  a[t]:=q;
  x:= x div 2;
  t:=t-1;
  until (x=0) or (t = 1);
end;

Тегами пользуйся...

Сообщение отредактировано: volvo - 2.03.2006 20:58

[volvo]

klem4, а ты приведенную программу ВНИМАТЕЛЬНО смотрел? Уверен, что в FAQ-е есть аналог?

nik.bstu, заменять div 2 на shr 1 (будет быстрее), t := t-1 на dec(t) (тоже быстрее), избавляемся от лишней переменной...
Вот результат:

procedure convertor(var a:t_kod; y:longint );
var
  t: longint;
  x: longint;
begin
  t := n; x := y;
  if x<0 then a[1]:= 1;
  x := abs(x);
  repeat
    a[t] := x and $1;
    x := x shr 1;
    dec(t);
  until (x = 0) or (t = 1);

end;

Ну, и естественно, НЕ переусердствуй заранее, решай проблемы по мере появления, ибо "Premature optimization is the root of all evil..." ©