Перевод чисел из 10-й в 6-ую систему

@Yro · Регистрация: 23.09.2011

Author24 — интернет-сервис помощи студентам

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

@Alex77755 · 08.10.2011, 23:15

готов помочь!! Начинай!!

@gaw · 09.10.2011, 00:23

Сообщение от Yro

Составить программу

"Время пошло"

Добавлено через 10 минут
a=Hex(b) не катит ?

@Yro · 09.10.2011, 00:28 **[ТС]**

нет. совсем

@Казанский · 09.10.2011, 01:06

Visual Basic

Sub Yro()
Dim x, y
x = InputBox("Введите число")
Do While x
    y = x Mod 6 & y
    x = x \ 6
Loop
MsgBox y
End Sub

Чтобы понять, как работает, включите окно Locals и пройдите программу по шагам - F8.

@gaw · 09.10.2011, 01:15

Yro, извини, не вкурил 6 и 16,
сори

@all_angarsk · 09.10.2011, 05:26

Сообщение от Казанский

Visual Basic

Sub Yro()
Dim x, y
x = InputBox("Введите число")
Do While x
    y = x Mod 6 & y
    x = x \ 6
Loop
MsgBox y
End Sub

Чтобы понять, как работает, включите окно Locals и пройдите программу по шагам - F8.

Она работает и для двоичной системы!!!!!!!

Visual Basic

Private Sub CommandButton1_Click()
Dim x, y
x = InputBox("Введите число")
Do While x
    y = x Mod 2 & y
    x = x \ 2
Loop
MsgBox y
 
End Sub

а я вечно мучался
Работает для всех, что меньше 10

@gaw · 09.10.2011, 10:30

Visual Basic

Dim m(), x, y
Dim k
k = 16 ' 1-16
'if k>1 and k<17
ReDim m(k)
For i = 0 To k - 1
m(i) = Hex(i)
Next i
 
x = InputBox("Введите число")
Do While x
    y = m(x Mod k) & y
    x = x \ k
Loop
MsgBox y
'end if

@pincet · 09.10.2011, 13:09

Сообщение от all_angarsk

Она работает и для двоичной системы!!!!!!!

а я вечно мучался
Работает для всех, что меньше 10

Да ладно

Учим плотно теорию систем (и)счисления и удивляемся еще больше

http://ru.wikipedia.org/wiki/Системы_счисления

@all_angarsk · 11.10.2011, 00:48

Сообщение от pincet

Да ладно

Учим плотно теорию систем (и)счисления и удивляемся еще больше

http://ru.wikipedia.org/wiki/Системы_счисления

Это не вызывает затруднений. Меня поразил код. Его компактность и простота решения, использование функций, которыми пользовался сотни раз.
Перевод я использовал много раз, но у меня код проги длинее.

@Yro 29 / 4 / 0 Регистрация: 23.09.2011 Сообщений: 41
		1
	Перевод чисел из 10-й в 6-ую систему 08.10.2011, 23:07. Показов 3661. Ответов 9 Метки нет (Все метки) Составить программу для перевода чисел из десятичной системы счисления в шестеричную. желательно с коментариями. 0

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	08.10.2011, 23:15	2
	готов помочь!! Начинай!! 1

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	09.10.2011, 00:23	3
	Сообщение от Yro Составить программу "Время пошло" Добавлено через 10 минут a=Hex(b) не катит ? 0

@Yro 29 / 4 / 0 Регистрация: 23.09.2011 Сообщений: 41
	09.10.2011, 00:28 [ТС]	4
	нет. совсем 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	09.10.2011, 01:15	6
	Yro, извини, не вкурил 6 и 16, сори 0

@pincet 1643 / 1144 / 171 Регистрация: 23.07.2010 Сообщений: 6,794
	09.10.2011, 13:09	9
	Сообщение от all_angarsk Она работает и для двоичной системы!!!!!!! а я вечно мучался Работает для всех, что меньше 10 Да ладно Учим плотно теорию систем (и)счисления и удивляемся еще больше http://ru.wikipedia.org/wiki/Системы_счисления 0

@all_angarsk 761 / 268 / 57 Регистрация: 13.12.2009 Сообщений: 1,101
	11.10.2011, 00:48	10
	Сообщение от pincet Да ладно Учим плотно теорию систем (и)счисления и удивляемся еще больше http://ru.wikipedia.org/wiki/Системы_счисления Это не вызывает затруднений. Меня поразил код. Его компактность и простота решения, использование функций, которыми пользовался сотни раз. Перевод я использовал много раз, но у меня код проги длинее. 0