Перевод в десятичное число
Код:
Возможно медленно :''(((т.к. переводит прямо в лоб), но как сделать по другому не знаю... |
Re: Перевод в десятичное число
Собственно - алгоритм: http://alglib.sources.ru/numbers/trans.php
|
Re: Перевод в десятичное число
Перевод из любой СС в любую. Правда, на сишнике.
http://www.boolean.name/showthread.php?t=121 |
Re: Перевод в десятичное число
[highlight=blitzbasic]
num$ = Input("Enter a binary number: ") Print ToInt(num, 2) num$ = Input("Enter a hexa-decimal number: ") Print ToInt(num, 16) WaitKey() End Function ToInt(Number$, base%) Select base Case 2 For i = 0 To Len(Number) - 1 token$ = Mid(Number, Len(Number) - i, 1) If token Then result = result + 2^i Next Return result Case 10 Return Int(Number) Case 16 For i = 0 To Len(Number) - 1 token$ = Mid(Number, Len(Number) - i, 1) Select Lower(token) Case "a" token = 10 Case "b" token = 11 Case "c" toden = 12 Case "d" token = 13 Case "e" token = 14 Case "f" token = 15 End Select If token Then result = result + 16^i * Int(token) Next Return result End Select End Function[/highlight] |
Re: Перевод в десятичное число
Вот добыл нечто крутое:
Код:
|
Ответ: Перевод в десятичное число
Код:
Local c%=124 |
Часовой пояс GMT +4, время: 03:15. |
vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot