Перевод числа в десятичную систему счисления - VB
Формулировка задачи:
Помогите с програмкой!
Дана символьная строка, представляющая собой запись натурального числа в р-ичной системе счисления (2 < р < 9). Написать процедуру перевода этого числа в десятичную систему счисления.
Решение задачи: «Перевод числа в десятичную систему счисления»
textual
Листинг программы
Function pTo10(S as string,p as integer) As integer pTo10=0 for i%=1 to len(S) pTo10=pTo10*p+Asc(mid$(S,i%,1))-Asc("0") Next i% End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д