Системы счисления.

[Mleha]

Как перевести число из десятичной системы счисления в любую другую на VB? Алгоритм я
знаю, но ничего не получается. Помогите пожалуйста?!

[alibek]

А какой алгоритм ты знаешь?
Я делал конвертилку из любой в любую (с базой от 1 до 255), ничего сложного не было.

[Mleha]

Берешь число, делишь его на основание нужной системы, смотришь результат. От того, что было отнимаешь полученное целое число, а остаток опять делишь. И так пока результат не будет меньше делителя. В конце все результаты вычитания(вместе с последним результатом деления) записываешь справа на лево. Ответ готов!

[ta_gena]

Берешь число, делишь его на основание нужной системы, смотришь результат. От того, что было отнимаешь полученное целое число, а остаток опять делишь. И так пока результат не будет меньше делителя. В конце все результаты вычитания(вместе с последним результатом деления) записываешь справа на лево. Ответ готов!

- берешь число делишь его на основание нужной системы
- от остатка деления берешь целую часть и умножаешь на основание
- и только теперь, полученный результат отнимаешь от числа
И так пока результат не будет меньше делителя

Надо только создать символику для чисел больших 9.
Например A, B, ....

[Mleha]

Alibek, можешь пример скинуть на LKS@YANDEX.RU

[alibek]

Тебе же уже написали, как надо правильно?

[Debugger]

Мне сложно понять...
Можно примером?

[Денис]

А из системы с произвольным основанием как перевести обратно в десятичную?

[August]

Число 12 в двоичную

берем число 12 делим на 2 получаем 6 отстатка нет пишем 0
берем число 6 делим на 2 получаем 3 отстатка нет пишем 0
берем число 3 делим на 2 получаем 1 отстаток 1 пишем 1
берем число 1 делим на 2 получаем 0 отстаток 1 пишем 1

имеем 0011 переворачиваем 1100

так же и с любой другой системой

[Хакер]

ПрямойТрёхмерный-ВизуальныйОсновной-Денис
Точно также

PS. Почему VB это не PHP. Там есть встроенная функция для таких дел.

[Amed]

111100102 = 0*2^0 + 1*2^1 + 0*2^2 + 0*2^3 + 1*2^4 + 1*2^5 + 1*2^6 + 1*2^7
2 = "0, 1"

12610 = 6*10^0 + 2*10^1 + 1*10^2
10 = "0, 1, 2, ..., 9"

[August]

А из системы с произвольным основанием как перевести обратно в десятичную?

ребята, ды вы чего совсем задача 7 класс по информатике...все в поиск или в учебник...не стыдно?

[Денис]

Уважаемый Денис
Точно также

PS. Почему VB это не PHP. Там есть встроенная функция для таких дел.

Я тоже так думаю!
Однако, просьба уточнить, из 128-чной системы в 19-чную?

[Amed]

VB_D3D_Денис, ты над нами издеваешься?

[Денис]

August
Стыдно. Очень стыдно. Но прет!!!
Ситуация такая, что учебника нету. И доставать влом. И негде. И в нете второй день смотрю - сплошная теория и ниодного примера.

[Денис]

Amed
А вы?

[Хакер]

Во первых менять что то в тексте чужих постингов при их цитировнаии по крайней мере неприлично.

Во вторых я бы вам замечание выписал за последовательные постинги.

[Amed]

Таки я не издеваюсь. Разве сложно залезть в любой поисковик и немного поработать головой?

http://ru.wikipedia.org/wiki/%D0%A1%D0% ... 0%B8%D1%8F

Пойми, что готового примера на блюдечке нигде не будет.

[Денис]

Таки спасибо!

[Хакер]

VB_D3D_Денис
Мне кажется у тебя смайлофилия. Поработай над собой.

[Денис]

А напишу ка я примерчик и выложу здесь.
Чтоб другие копировали и радовались...

[GSerg]

Код для перевода из любой системы в любую выложен на этом форуме (как и в сотнях других мест). Ищущий да обрящет.
И я сильно сомневаюсь, что ты напишешь лучше.

[Денис]

Конечно, лучше я не напишу.
Вот код для перевода из любой системы счисления в любую:

=В связи с тем, что в коде обнаружились ошибки, он был переработан и теперь доступен для скачивания=

Пускай процент обрящущих и за мной будет.

[Денис]

И шоб без инсиннуаций.
Я использовал алгоритм ta gena

[GSerg]

VB_D3D_Денис, ты правда считаешь, что это код?

[Денис]

GSerg
Он довольно сильно похож на пример, показанный по ссылке Ameda. Не спорю. Но ссылку я смотрел только после того, как запостил готовый вариант...

[Денис]

Так, продолжим :

Код: Выделить всё

Function DecToBin(Value As Long) As String

    Dim i, Ret
   
    If Value = 0 Then Value = 1
   
    Do While Value <> 1
   
        If Value / 2 = Value \ 2 Then
            Ret = "0" + Ret
            Value = Value / 2
        Else
            Ret = "1" + Ret
            Value = Value \ 2
        End If
       
    Loop
    If Value = 1 Then Ret = "1" + Ret
   
    Bin = Ret
   
End Function


... и еще :

Код: Выделить всё

Function BinToDec(Number As String) As Long
   
    Dim i, j, S
   
    For i = Len(BinNumber) To 1 Step -1
       
        S = S + (Val(Mid(BinNumber, i, 1)) * (2 ^ j))
        j = j + 1
       
    Next
   
    Dec = S
   
End Function


Код?

[Хакер]

VB_D3D_Денис
Человек, который выкладывает код с Variant-переменными, не достоин уважения.

А когда он писользует Mid без $ - тем более. (Интересно, почему на него GSerg по этому поводу не наезжает? )

[Денис]

Хакер
Это не я пользую Варианты, это те, кто будут пользовать этот мой код, получат медленный и неоптимизированный код. Если не подумают над ним... Мне кажется для примера и так сойдет.

[Денис]

Писать Mid с долларом???
Зачем. Ну я понимаю, вы тут профи старой школы, кто на Суре сидел, кто на Спектруме... Но функция Mid (заметь, не Mid$) работает со строками. И возвращает строки. Так что печатать признак строки после нее - бес-по-лез-но.