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

DECLARE FUNCTION torome$ (M%)
REM Перевод арабских чисел в римскую систему счисления
DEFINT A-Z
COMMON SHARED ND()
COMMON SHARED SD$()
DATA 1,4,5,9,10,40,50,90,100,400,500,900,1000
DIM ND(13)
FOR J = 0 TO 12: READ ND(J): NEXT J
DATA I,IV,V,IX,X,XL,L,XC,C,CD,D,CM,M
DIM SD$(13)
FOR J = 0 TO 12: READ SD$(J): NEXT J
INPUT "Введите целое число от 1 до 3999 : ", N
IF N < 1 OR N > 3999 THEN PRINT "Число вне диапазона": END
PRINT "В римской системе счисления "; N; " = "; torome$(N)
END

FUNCTION torome$ (M)
SHARED ND(), SD$()
S$ = ""
FOR K = 12 TO 0 STEP -1
  WHILE ND(K) <= M
    M = M - ND(K): S$ = S$ + SD$(K)
    IF M = 0 THEN EXIT FOR
  WEND
NEXT K
torome$ = S$
END FUNCTION