Перевод Dec-->Bin и обратно

← →
Pazitron_Brain © (2006-10-29 11:07) [0]

Помогите написать.

← →
Pazitron_Brain © (2006-10-29 11:09) [1]

Я пишу:

← →
Pazitron_Brain © (2006-10-29 11:10) [2]

Function Dec2Bin (num: word): String;
var result: string;
remainder: word;
c: char;
begin
result := "";
while num <> 0 do
begin
remainder := num mod 2;
num := num div 2; { eee num := num shr 1 }
c := chr (remainder + ord ("0"));
result := c + result;

end;
Dec2Bin := result
writeln (dec2bin (2004));
end;

end.
Дак чего-то не получается.

← →
Anatoly Podgoretsky © (2006-10-29 11:32) [3]

> Ответ на сообщение [2]

This is a multi-part message in MIME format.

------=_NextPart_000_01A2_01C6FB45.8ED3FAD0
Content-Type: text/plain;
charset="windows-1251"
Content-Transfer-Encoding: 8bit

Это же BinaryToBin

А вот это то, что просишь

Dec2Bin(num: string): string;

Прошу прощения, мой пример работает. Я просто неправильно вывод сделал :).

Перевод Dec-->Bin и обратно Найти похожие ветки