Форум: "Начинающим";
Текущий архив: 2006.11.12;
Скачать: [xml.tar.bz2];

Вниз

Перевод 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;

---

← →
Pazitron_Brain ©   (2006-10-29 12:15) [4]

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.11.12;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.041 c