Двоичный код

[masterx13]

Добрый вечер!
Помогите, нужно сделать "программу" которая сможет переделывать число из 10-чной в 2-ичный код. Заранее благодарю за ответы и примеры.

[kommunist]

вот функция переводящая число из 2 систеиы в 10

function IntToBin(Value: LongInt;Size: Integer): String;
var

i: Integer;
begin

Result:='';
for i:=Size downto 0 do begin
if Value and (1 shl i)<>0 then begin
Result:=Result+'1';
end else begin
Result:=Result+'0';
end.

[Tayfun]

Вот пример работы с различными системами счисления (Пример на Паскале)
SISSCHIS2.rar

[masterx13]

ВСЕМ СПАСИБО, только программа kommunist'а что то не желает работать

[Tayfun]

ВСЕМ СПАСИБО, только программа kommunist'а что то не желает работать

Это не программа, это функция