| Вопрос: Перевод из десячичной и двоичную систему | Добавлено: 16.05.08 19:00 |
Автор вопроса:  Игорь | ICQ: 457394129 |
| Как можно перевести число из десятичной системы в двоичную. Например из 56 в 111000. |
| Ответы | Всего ответов: 9 |
|
Номер ответа: 1 Автор ответа:  el-paso Вопросов: 3 Ответов: 164 |
Профиль | | #1 | Добавлено: 16.05.08 20:28 |
|
Function dec_to_bin$(x& 
' Dim result$ ' Do While x > 0 result = CStr(x Mod 2) & result x = x \ 2 Loop ' dec_to_bin = result ' End Function |
||
|
Номер ответа: 2 Автор ответа: el-pasoВопросов: 3 Ответов: 164 |
Профиль | | #2 | Добавлено: 16.05.08 20:32 |
|
Это навскидку...
Сразу после ответа, увидел, что при нуле вернется пустая строка. Чтобы вернулся нуль, нужно условие While поставить после Loop. |
||
|
Номер ответа: 3 Автор ответа:   Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #3 | Добавлено: 17.05.08 01:42 |
Вроде на 2.1 делят? Чтоб дробное получалось обязательно надо, насколько я помню  Хотя я в двоичку в уме не могу переводить только в гексы и обратно.
|
||
|
Номер ответа: 4 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #4 | Добавлено: 17.05.08 10:50 |
|
Ох как нас этим гоняли на 1м семестре в мифи :D
Аж по 4 предметам (профильным), уже наизусть помнил как это делать. ща забыл есесно
Кстати, какая там функция в .нЕТе это умеет делать, мм?) |
||
|
Номер ответа: 5 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #5 | Добавлено: 18.05.08 14:02 |
| НА 2.1???? | ||
|
Номер ответа: 6 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #6 | Добавлено: 18.05.08 17:57 |
|
Docal, спокойно! я тоже был шокирован
|
||
|
Номер ответа: 7 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #7 | Добавлено: 20.05.08 16:58 |
| Как на 2.1? | ||
|
Номер ответа: 8 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #8 | Добавлено: 21.05.08 01:13 |
| AgentFire спокойно,дели на 2 и все будет ок.) | ||
|
Номер ответа: 9 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #9 | Добавлено: 21.05.08 01:18 |
| Executioner , а зачем что бы получалось дробное?Если мы должны проверять делитса чиско на 2 илИ нет.Если да тогда пишем 1 если нет пишем 0 и так до конца.И насколько я поМню потом бы нада результат переворачивать.Типа вышло:110111 после деления а потом мы делаем 111011 вот ето и будет наш результат | ||
Страница: 1 |