REM Перевод числа в систему с основанием r
DECLARE FUNCTION NToStr$ (NUM&, R%)
CLS
INPUT "Введите натуральное число : ", N&
PRINT "Его представление в разных системах счисления таково : "
FOR J% = 2 TO 16
PRINT "по основанию "; J%, N&; "= "; NToStr$(N&, J%)
NEXT J%
END
FUNCTION NToStr$ (NUM&, R%)
A$ = "": M& = NUM&
DO
CIF = M& MOD R%: 'Выделение очередной цифры
IF CIF < 10 THEN
A$ = CHR$(ASC("0") + CIF) + A$
ELSE
A$ = CHR$(ASC("A") + CIF - 10) + A$: 'Замена цифры кодом ASCII
END IF
M& = (M& - CIF) / R%: 'Исключение обработанной цифры
LOOP UNTIL M& = 0
NToStr$ = A$
END FUNCTION