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

[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

[klem4]

/ offtop
Не буду естественно с тобой спорить,я видел этот массив , но подумал что автор сделал конвертор каким-то не изученным наукой методом, поэтому и дал ссылку на FAQ, чисто теоретически его массив 1 и 0 можно перевести в string и и использовать процедуру из нашего FAQ, но так как это не требуется, прошу прощения.

ps
И всетаки в самом задании не сказано, что для представления числа в двоичной сс надо использовать массив ;)

Дополнительный код Все понял, виноват, исправлюсь ;)

Сообщение отредактировано: klem4 - 3.03.2006 10:37