Функция для факториала в Turbo Basic

@Летучий Галанде · Регистрация: 06.06.2011

Author24 — интернет-сервис помощи студентам

Здравствуйте! Хочу сразу сказать я не программист и вообще в компах ничего не шарю, я врач, в этом году заканчиваю медицинский, но вот последнее время подсел на изучения программирования, сам не знаю как это получилось ) Почитал разные форумы, я решил начать с Turbo Basic.

И вот уже несколько недель пытаюсь написать, а уже и найти функцию для факториала в Turbo Basic.

Есть вот такой вариант из самоучебника:

QBasic/QuickBASIC

 DEF FNFactorial#(x%)
      LOCAL i%, total#
      IF x% < OR x% > 170 THEN FNFactorial# = -1 : EXIT DEF
          total# = 1
      FOR i% = x% TO 2 STEP -1
          total# = total# * i%
      NEXT i%
      FNFactorial# = total#
 END DEF

В конце пишу 10 строку, что бы проверить работает или нет

QBasic/QuickBASIC

10	PRINT FNFactorial#(52)

Выдает при компиляции ошибку в 3 строке, логически подумав приходим к выводу, что надо написать

IF x% < 0 OR x% > 170 THEN FNFactorial# = -1 : EXIT DEF

После этого получаем в RUN нуль (0) почему-то (?)

Опять же немного поразкинув мозгами получаем

QBasic/QuickBASIC

 DEF FNFactorial#(x%)
      LOCAL i%, total#
      IF x% < 0 OR x% > 170 THEN FNFactorial# = -1 : EXIT DEF
          total# = 1
      FOR i% = 1 TO x%
          total# = total# * i%
      NEXT i%
      FNFactorial# = total#
 END DEF
 PRINT FNFactorial#(52)

Ничего опять не получилось (в RUN опять 0) (

Помогите пожалуйста написать функцию для факториала в Turbo Basic

@Летучий Галанде · 08.06.2011, 14:17 **[ТС]**

кто-нибудь !!!!! Помогите )

@Летучий Галанде · 10.06.2011, 14:55 **[ТС]**

Я так понимаю, это просто непосильная задача )

@Pro_grammer · 11.06.2011, 10:53

Сообщение от Летучий Галанде

Я так понимаю, это просто непосильная задача )

Просто не тот язык выбрал для изучения - он уже скорее мертв, чем жив.
Попробуй этот - один из самых современных и продвинутых Бейсиков -PureBasic
Помощь по изучению гарантирую.

@Летучий Галанде 0 / 0 / 0 Регистрация: 06.06.2011 Сообщений: 4
	08.06.2011, 14:17 [ТС]	2
	кто-нибудь !!!!! Помогите ) 0

@Летучий Галанде 0 / 0 / 0 Регистрация: 06.06.2011 Сообщений: 4
	10.06.2011, 14:55 [ТС]	3
	Я так понимаю, это просто непосильная задача ) 0

@Pro_grammer 6804 / 2831 / 527 Регистрация: 24.04.2011 Сообщений: 5,308 Записей в блоге: 10
	11.06.2011, 10:53	4
	Сообщение от Летучий Галанде Я так понимаю, это просто непосильная задача ) Просто не тот язык выбрал для изучения - он уже скорее мертв, чем жив. Попробуй этот - один из самых современных и продвинутых Бейсиков -PureBasic Помощь по изучению гарантирую. 0