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

Анализ "счастливого" билета


REM Анализ "счастливого" билета
DECLARE FUNCTION LUCK (M AS LONG)
INPUT "Введите номер билета "; N&
IF LUCK(N&) = 1 THEN
  PRINT "Радуйтесь - счастливый"
ELSE
  PRINT "Нет счастья в жизни"
END IF
END

FUNCTION LUCK (M AS LONG)
REM Подсчет и сравнение сумм старших и младших цифр M
REM Если суммы совпадают, то LUCK=1
DIM A(6)
LUCK = 0
IF M < 0 OR M > 999999 THEN
   PRINT "luck : недопустимый аргумент":   EXIT FUNCTION
END IF
FOR I = 0 TO 5
  A(I) = M MOD 10:  ' Выделение очередной цифры
  M = (M - A(I)) / 10:  ' Удаление обработанной цифры
NEXT I
IF (A(0) + A(1) + A(2) = A(3) + A(4) + A(5)) THEN LUCK = 1
END FUNCTION