Примеры программ на языке QBASIC

Перевод числа в систему с основанием r


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