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

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

Восстановить пароль Регистрация
Другие темы раздела
C++ Работа с массивом char http://www.cyberforum.ru/cpp-beginners/thread211976.html
Вот задание Вам дана непустая строка, состоящая из строчных латинских букв, цифр и пробелов. Длина строки не превышает 250 символов. Словом для данной строки называется наибольшая по включению подстрока, не содержащая пробелов. Ваша задача - удалить из строки все лишние пробелы так, чтобы два последовательных слова разделял ровно один пробельный символ. Лидирующих и концевых пробелов в строке...
C++ Чтение и запись из файла. У меня есть программа: логарифмический калькулятор. В ней мне надо сохранять результаты в файл и производить чтение из него. Мне надо сделать так, чтобы история выполнения операций сохранялась. В данный момент, у меня каждый раз происходит очистка файла перед записью. И еще не получается записать результат результат функции exponentiation(); Исходный код прилагаю. Заголовочный файл log.h ... http://www.cyberforum.ru/cpp-beginners/thread211949.html
C++ определить число соседств двух положительных чисел.
Нужно решить небольшую задачку на Си. Даны натуральное число n,действительные числа а1,...,an.В последовательности a1,...,an определить число соседств двух положительных чисел.
C++ Работа с массивами структур
Помогите пожалуйста разработать программу , позволяющую добавлять данные структур с указанными полями в массив, просматривать массивы, а также выполнять дополнительную операцию в соответствии с индивидуальным заданием. Вот само задание - Поля структуры: код животного, название, количество еды в день (кг). Операция: найти название животного, которое ест больше всего.
C++ Указатели и функции. Динамическое выделение памяти http://www.cyberforum.ru/cpp-beginners/thread211930.html
1) Напишите программу, которая позволяет вводить динамический одно-мерный целочисленный массив и посредством вызова функции опреде-лять минимальную сумму между двумя соседними элементами массива. При передаче массива в функцию используйте указатели, а размерность передавайте по ссылке. Применение глобальных переменных категориче-ски запрещено. 2) Напишите программу, позволяющую вводить...
C++ Написать программу на динамическую память. С клавиатуры вводится строка. Выберать из неё буквы от Q(q) до Z(z), строчные преобразовать в прописные и отсортировать их в алфавитном порядке. например: исх. текст: SHiFrOVKagT результат: RSTV последовательность решения задания: 1) создать динамический символьный массив данного размера (запрашивается у пользователя). 2)запросить у пользователя исходую строку и записать её в массив,... подробнее

Показать сообщение отдельно
Overmind024
99 / 99 / 6
Регистрация: 10.09.2010
Сообщений: 267
16.12.2010, 00:00     функции для перевода из разных систем счисления
У меня есть код на 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
 
Текущее время: 23:48. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru