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

Анализ цифр в каждой позиции заданного цисла

REM Анализ цифр в каждой позиции заданного цисла
DECLARE FUNCTION DIGINPOS (N AS LONG, J AS INTEGER)
INPUT "Введите целое число: "; M&
FOR K% = 0 TO 9
  DIGIT = DIGINPOS(M&, K%)
  PRINT "В позиции"; K%; " находится ", DIGIT
NEXT K%
END

FUNCTION DIGINPOS (N AS LONG, J AS INTEGER)
REM Определение десятичной цифры числа N в позиции j
N1& = N
FOR K% = 0 TO J
  RESULT = N1& MOD 10
  N1& = (N1& - RESULT) / 10
NEXT K%
DIGINPOS = RESULT
END FUNCTION