Форум программистов, компьютерный форум CyberForum.ru

функции для перевода из разных систем счисления - C++

Восстановить пароль Регистрация
 
Рейтинг: Рейтинг темы: голосов - 9, средняя оценка - 4.67
hepr
 Аватар для hepr
60 / 32 / 5
Регистрация: 21.10.2010
Сообщений: 538
15.12.2010, 21:49     функции для перевода из разных систем счисления #1
подскажите функции для перевода из разных систем счисления

Добавлено через 1 час 19 минут
А такая вообще есть, и если нед то как можно её сделать
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.12.2010, 21:49     функции для перевода из разных систем счисления
Посмотрите здесь:

C++ Программа перевода систем счисления
C++ Программа для перевода из одной системы счисления в другую.
Составить программу для перевода чисел из шестнадцатеричной системы счисления в двоичную(с++) C++
Функции для перевода числа в различные системы счисления C++
Функция для конвертирования систем счисления. Не выходит :( C++
Написать программу для перевода чисел из двоичной в шестнадцатеричную систему счисления C++
Программа для перевода заданного числа в троичную систему счисления C++
Программа для перевода из десятичной системы счисления в двоичную C++

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Overmind024
99 / 99 / 6
Регистрация: 10.09.2010
Сообщений: 267
16.12.2010, 00:00     функции для перевода из разных систем счисления #2
У меня есть код на vb 6.0 перевести в с++ будет не сложно
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Private Sub Form_Load()
    SymbylTable() = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
End Sub
Private Function AnytoTen(Numeric As String, AnyS As Double) As Double
    On Error Resume Next
    Dim i1 As Integer, mRank As Integer
    mRank = Len(Numeric)
    For i1 = 1 To Len(Numeric)
        If (Mid(Numeric, i1, 1) = ",") Then
            mRank = i1 - 1
            Numeric = Mid(Numeric, 1, i1 - 1) & Mid(Numeric, i1 + 1, Len(Numeric) - i1)
            Exit For
        End If
    Next i1
    For i1 = 1 To Len(Numeric)
        AnytoTen = AnytoTen + FindNumNumeric(Mid(Numeric, i1, 1)) * (AnyS ^ (mRank - i1))
    Next i1
End Function
 
Private Function TenToAny(Numeric As Double, AnyS As Double) As String
    Dim intg As Long, doubl As Double
    intg = Int(Numeric)
    doubl = Numeric - intg
    While intg > 0
        TenToAny = SymbylTable(intg Mod AnyS) & TenToAny
        intg = Int(intg / AnyS)
    Wend
    If doubl <> 0 Then TenToAny = TenToAny & ","
    Dim i1 As Integer
    While doubl > 0 And i1 < 26
        i1 = i1 + 1
        TenToAny = TenToAny & SymbylTable(Int(doubl * AnyS ^ i1))
        doubl = doubl - (Int(doubl * AnyS ^ i1) / AnyS ^ i1)
    Wend
End Function
Private Function FindNumNumeric(ByVal Numeric As String) As Integer
    Dim i1 As Integer
    For i1 = LBound(SymbylTable()) To UBound(SymbylTable())
        If Numeric = SymbylTable(i1) Then
            FindNumNumeric = i1
            Exit Function
        End If
    Next i1
End Function
Yandex
Объявления
16.12.2010, 00:00     функции для перевода из разных систем счисления
Ответ Создать тему
Опции темы

Текущее время: 23:48. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru