Сделать программу не использую функцию hex$(n) - QBasic

Формулировка задачи:

CLS
n as single
z as string
input n
z=hex$(n)
print z

это сама программа... не могу сделать ее без использования встроенной функции... Заранее спасибо)

Решение задачи: «Сделать программу не использую функцию hex$(n)»

Листинг программы

CLS
DIM n AS LONG, h AS INTEGER
DIM z AS STRING
 
INPUT n
DO
  h = n MOD 16
  z = CHR$(48 + h - (h > 9) * 7) + z
  n = n \ 16
LOOP WHILE n > 0
PRINT z

Объяснение кода листинга программы

CLS

DIM n AS LONG, h AS INTEGER
DIM z AS STRING
INPUT n
h = n MOD 16
z = CHR$(48 + h - (h > 9) * 7) + z
n = n \ 16
LOOP WHILE n > 0
PRINT z Объяснение: Эта программа принимает десятичное число от пользователя и преобразует его в шестнадцатеричное число, используя цикл DO-LOOP. В начале программы объявляются три переменные: n (тип данных LONG), h (тип данных INTEGER) и z (тип данных STRING). Затем пользователю предлагается ввести десятичное число, которое сохраняется в переменной n. Далее начинается цикл DO-LOOP, который выполняется до тех пор, пока n больше нуля. Внутри цикла переменная h вычисляется как остаток от деления n на 16. Затем в переменной z добавляется символ, соответствующий числу h (от 0 до 9 или от A до F), а затем цикл продолжается до тех пор, пока n больше нуля. В конце программы результат выводится на экран с помощью команды PRINT.