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

[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]

Volvo,

Есть мной написанный конвертор числа в двоичный код

Где тут слово массив ?
А привиденную программу я смотрел и как раз подумал, что автору надо показать как это делается без массива.

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

[volvo]

Где тут слово массив ?

Здесь:

type t_kod=array[1..n] of 0..1;

Значит, так смотрел программу!