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


DECLARE FUNCTION FIB% (N%)
INPUT "Задайте порядковый номер числа Фибоначчи - ", N%
PRINT "Число Фибоначчи с номером "; N%; " равно "; FIB%(N%)
END

FUNCTION FIB% (N%)
  IF N% < 2 THEN
     FIB% = N%
  ELSE
     FIB% = FIB%(N% - 2) + FIB%(N% - 1)
  END IF
END FUNCTION