pascal(перевод чисел)

[ioda1986]

Необходимо написать программу на перевод чисел из десятичной в двоичную системы счисления.Как осуществлять перевод положительных чисел ясно. Однако вопрос в том как перевести в двоичный вид отрицательное число.
Преобразование осуществляетсяиз прямого путем инверсии бит и прибавления единицы.Если кто-то имел дело с подобными программами напишите пожалуйста каким образом можно решить задачу.Заранее благодарю.

[p51x]

Вы же сами фактически алгоритм написали. В чем проблема?

[sorokin88]

Если не запрещено использование побитовых операций, можно написать так:

var
a,i: integer;
b: string;

begin
  readln(a);
  b:='';
  for i:=0 to 31 do begin
    b:=IntToStr(abs((a and (1 shl i)) shr i))+b;
  end;
  writeln(b);
end.