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

Перестановка старших и младших разрядов в числе

REM Перестановка старших и младших разрядов в числе
DECLARE FUNCTION invert! (N&)
CLS
INPUT "Введите целое число : ", M&
PRINT "Справа налево оно выглядит так "; invert(M&)
END

FUNCTION invert (N&)
Res& = 0: sign = SGN(N&): ' Учет знака числа
IF N& < 0 THEN N& = -N&
DO
  k% = (N& MOD 10): ' очередная цифра справа
  Res& = Res& * 10 + k%: ' формирование перевернутого результата
  N& = (N& - k%) / 10: ' удаление обработанной цифры
LOOP UNTIL N& = 0
invert = Res& * sign: ' приклеили знак
END FUNCTION