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

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

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

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

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

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

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
 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
1
2
3
4
5
6
7
8
9
10
 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
Помощь по изучению гарантирую.

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

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

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