|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
26.04.2011, 18:29 | #11 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
однако... могу
Код:
тут две рабочие функции D2xz (десятичное число в Хто Знает какую систему) и обратно xz2D (из ХЗ какой системы в 10-ричную). и две функции для внутреннего использования: D2C (число в символ) и обратно C2D (символ в число) начнем из далека: в 10-ричной системе 10 цифр (0,1,2,3...9) 10 в 10-ричной системе это уже не цифра - это число состоящее из двух цифр 1 и 0 (т.е. 1 десяток и 0 единиц). аналогично в двоичной системе всего две цифры (0,1) а в 16-ричной - 16 цифр (0,1,2...9,А,В,С...F). Function D2C(i As Integer) As String возвращает изображение Н-го символа. 0-й символ выглядит как "0", 6-й - как "6", 10-й - как "А", 15-й - как "F", и 35-й - как "Z". Function C2D(c As String) As Long - это обратная функция получает символ от "0" до "Z", возвращает его номер. Function D2xz(D As Long, N As Long) As String получает два параметра: D - число, которое нужно перевести в какую-то систему, и N - собственно в какую систему переводить. R = Int(Log(D) / Log(N)) - определяем разрядность числа D в системе N Do - крутим цикл начиная с старшего разряда пока разряд не упадет ниже нуля s = s & D2C(Int(D / N ^ R)) D2C(Int(D / N ^ R)) - это определяет сколько единиц разряда R содержится в D. D = D - Int(D / N ^ R) * N ^ R - уменьшаем D на величину, которая учтена строкой выше R = R - 1 - уменьшаем разряд Loop Until R = -1 D2xz = s - присвоили значение функции. End Function функция Function xz2D(s As String, N As Long) As Long еще проще. начиная с конца строки берем по одному символу, умножаем на основу в степени соответствующего разряда, собираем это все в общую сумму. успехов!
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
26.04.2011, 18:39 | #12 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
приблизительно так:
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
26.04.2011, 19:40 | #13 |
Пользователь
Регистрация: 26.03.2011
Сообщений: 17
|
123
Огромнейшее Благодарю IgorGO!!!!!!
Вам бы преподавать информатику) Код:
тут думаю нужно какой то вид переменной задать другой? или лучше вообще объединить две функции в одну? Последний раз редактировалось cfvbh; 26.04.2011 в 20:04. |
26.04.2011, 20:17 | #14 |
Пользователь
Регистрация: 27.12.2010
Сообщений: 82
|
Почему преподаватель информатики не знает информатики?
|
26.04.2011, 20:34 | #15 |
Пользователь
Регистрация: 26.03.2011
Сообщений: 17
|
|
26.04.2011, 20:45 | #16 | ||
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Цитата:
я начинал свою трудовую деятельность в институте. я обучил "основа компьютерной грамотности" порядка 150-200 человек. думаете почему я тут? я ностальгирую... вообще я инженер-строитель... задавайте вопросы... не знаю настолько ли Вам приятно получить ответ, как мне его написать... я благодарен местным профессионалам, я многому научился, мне тут хорошо... вам того же!!! общайтесь и получайте от этого удовольствие. Цитата:
пишите что куда не получается... разберемся... ошибка либо у меня, либо у Вас)))
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
||
26.04.2011, 21:06 | #17 | |
Пользователь
Регистрация: 26.03.2011
Сообщений: 17
|
если кто то думает что я учитель информатики то это не так)))
я студент 1ого курса) (очной формы) Цитата:
так вот: перевожу например из 10ой в 16ую Код:
Теперь пробую обратно Код:
Код:
наверно не те свойства заданы? я пока еще не полностью с некоторыми операторами разобрался. |
|
26.04.2011, 22:08 | #18 |
Форумчанин
Регистрация: 07.03.2010
Сообщений: 796
|
одевайте стринги
Debug.Print Perevod("4D2", 16, 10)
Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234
|
26.04.2011, 22:29 | #19 |
Пользователь
Регистрация: 27.12.2010
Сообщений: 82
|
|
27.04.2011, 00:31 | #20 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
cfvbh,
внимательно смотрим за типом параметров... Function Perevod(ByVal N1 As String, ByVal Base1 As Long, ByVal Base2 As Long) As String собственно, Дима уже все обьяснил... а про учителя информатики - я оказывается вообще не вьехал в вопрос... я вспоминал своего учителя информатики. учитетелей математики и в школе, и в ПТУ, и в институте вспоминаю с огромной благодарностью, а об учителе информатики, увы, не могу такого сказать 3BEPOBOY, а учитель информатики - в первую очередь учитель, а не программист, он должен уметь научить программировать, а не уметь программировать...
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Создание программы | Алекс 9 | Помощь студентам | 3 | 13.01.2011 16:57 |
Создание программы | madcatt | Фриланс | 8 | 07.10.2010 06:34 |
С++/Создание программы с ИИ. | Беспредельщикъ | Помощь студентам | 4 | 08.09.2010 16:03 |
Создание программы | Kiler | Visual C++ | 2 | 18.08.2010 15:49 |
Создание программы в С++ | Panterka | Помощь студентам | 10 | 25.12.2007 13:12 |