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

Проверка числа на простоту

DECLARE FUNCTION prime!(N&)
REM Проверка числа на простоту
CLS
INPUT "Введите целое число: ", M&
IF prime(M&)=1 THEN 
  PRINT "Это число - простое "
ELSE 
  PRINT "Это число - составное"
END IF
END

FUNCTION prime(N&)
REM Если N - простое, то prime = 1
DIM j AS LONG
IF N&<4 THEN GOTO M1 : ' Числа 2,3 - простые
IF N& MOD 2=0 THEN GOTO M0 : ' Четные числа - составные
REM Проверка делимости на нечетные числа
FOR j=3 TO SQR(N&)+1 STEP 2 
  IF N& MOD j=0 THEN GOTO M0
NEXT j
M1: prime=1: EXIT FUNCTION
M0: prime=0
END FUNCTION