| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Pazitron_Brain ©   (2006-10-29 11:07:00) 

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

---

Pazitron_Brain   (2006-10-29 12:15:00) [1]

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

---

Anatoly Podgoretsky   (2006-10-29 11:32:00) [2]

> Ответ на сообщение [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 11:10:00) [3]

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.
Дак чего-то не получается.

---

Pazitron_Brain   (2006-10-29 11:09:00) [4]

Я пишу:

---

Наверх