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

Является ли введенное число палиндромом?

REM Является ли введенное число палиндромом?
DECLARE FUNCTION palindrom! (N&)
CLS
DIM noyes$(2)
noyes$(0) = "не"
INPUT "Введите целое число: ", M&
PRINT "Это - "; noyes$(palindrom(M&)); " палиндром"
END

FUNCTION palindrom (N&)
REM Если N - палиндром, то palindrom = 1
palindrom = 1
IF N& < 10 THEN EXIT FUNCTION: ' Одноразрядное - всегда палиндром
s$ = STR$(N&): ' Перевод числа в строку
k% = LEN(s$)
FOR j = 2 TO 1 + k% / 2: ' Цикл проверки симметрии цифр
 IF MID$(s$, j, 1) <> MID$(s$, k% + 2 - j, 1) THEN palindrom = 0
NEXT j
END FUNCTION