Вычисления факториала числа, оформленная в виде функции- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
DECLARE FUNCTION fac#(n)
  CLS
  PRINT fac#(5)
  
FUNCTION fac#(n)
  s# = 1
  FOR i# = 1 TO n
   s# = s# * i#
  NEXT
fac# = s#
END FUNCTION

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment