Требуется комментарий!

@QBasic nado · Регистрация: 26.05.2013

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

У меня есть программка. От меня требуется на доступном языке объяснить как она работает и что для чего в ней... Помогите!

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Код QBasic/QuickBASIC
 
INPUT "enter text: ", a$
CALL generate(a$, 1, LEN(a$))
 
SUB generate (a$, l, r)
IF l = r THEN
    PRINT a$
ELSE
    FOR i = l TO r
        CALL mswap(a$, l, i)
        CALL generate(a$, l + 1, r)
        CALL mswap(a$, l, i)
    NEXT
END IF
END SUB
 
SUB mswap (a$, i, j)
q$ = MID$(a$, i, 1)
MID$(a$, i, 1) = MID$(a$, j, 1)
MID$(a$, j, 1) = q$
END SUB

Спасибо!

@vodav · 04.07.2013, 20:27

Судя по содержимому строк 21 и 22 эта программа вообще не должна работать.

@Alex77755 · 06.07.2013, 13:34

vodav,
Мотивируй!

Dragokas · 07.07.2013, 21:52

Смею предположить, что данный код предназначен для вывода всех комбинаций букв в заданном слове, не зависимо от повторений данных букв.

Код построен на рекурсивном вызове функции generate.
Глубина рекурсии составляет ~ N-1 (длина слова - 1).

Начало перестановок и вывод на экран первого слова начинается, как только программа добирается макс. глубины рекурсии:
Вводим слово.
Входим в рекурсивную функцию.
Добираемся до макс. глубины рекурсии.
Выводится оригинальное слово.
Выход из посл. рекурс. вызова.
Перестановка последнего и предпоследнего символа (строка 12 - функция mswap отвечает за перестановку символов слова a$ между позициями i и j).
После печати слова расположения символов восстанавливаются (строка 14).
Затем снова циклически вызывается рекурсия.

И да, доступнее объяснить, это вряд ли так просто.

Если не ошибаюсь, получается нечто вроде:

ТЕКСТ
ТЕКТС
ТЕСКТ
ТЕСТК
...

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

@vodav 572 / 141 / 37 Регистрация: 12.03.2012 Сообщений: 403
	04.07.2013, 20:27
	Судя по содержимому строк 21 и 22 эта программа вообще не должна работать. 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	06.07.2013, 13:34
	vodav, Мотивируй! 0