Предмет: Информатика,
автор: Аноним
Составить программу перевода натурального числа из десятичной системы счисления в двоичную.
VBA ,без массивов.
Аноним:
В общем, как видите, решение Вашего задания никаких проблем не вызвало. Независимо от языка программирования))
Я не информатик, я по диплому чистый технарь. У меня была тема диплома "Автоматизированная система централизованного электропитания сварочного цеха" )))
Прекрасная тема,случаем не на "красный" окончили?)
Кстати спасибо за ответ
Нет. У меня была одна тройка и я принципиально отказался ее пересдавать. По экономике социализма. Я сказал, что такой науки нет и это абсурд.
Т.е. экономика капитализма была сдана на отлично. Но там в основе был "Капитал" К.Маркса и подобные вещи, т.е. классика. А классиков в экономике социализма мне кто с кафедры экономики так и не назвал)) Я и сказал, что не буду время тратить на то, чего не существует))
Вот ,только жаль ,Что красные корочки нашего времени ,все менее нужны
Они и в мое время ничего нее решали
Еще раз благодарю, я отлучаюсь на сон,всего вам наилучшего
Взаимно. Удачи.
Ответы
Автор ответа:
1
Function Dec2Bin(ByVal x As Integer) As String
Dim t As Integer, r As String
r = "": t = x
While t >= 2
r = Trim(Str(t Mod 2)) + r
t = t \ 2
Wend
Dec2Bin = Trim(Str(t)) + r
End Function
Sub test()
MsgBox Dec2Bin(35)
End Sub
Похожие вопросы
Предмет: Физика,
автор: prettyzyy
Предмет: Биология,
автор: putskinov
Предмет: Окружающий мир,
автор: elweniskenderov87544
Предмет: История,
автор: vanyakozeev91
Предмет: Алгебра,
автор: Virineya2003