Логика задачи!

[justgo]

ПОМОГИТЕ!!! Нужно срочно написать логику к этой задаче!

По заданному слову a$ сформировать и вывести слова, буквы в которых являются всевозможными перестановками букв исходного слова (данные – исходное слово – вводятся с клавиатуры).

Сама программа

CLS
PRINT “Vvedite slovo (1-5 bukv)”: INPUT slovo$
DIM SHARED n
n = LEN(slovo$)
DIM SHARED a(n) AS STRING * 1
FOR i=1 TO n
a(i) = MID$(slovo$, i, 1)
NEXT i
CLS
PRINT “Vsevozmojnie kombinacii simvolov slova: “; slovo$
PRINT STRING$(75, “-“): PRINT
per (0)
END

Процедура per
SUB per(t)
IF t = n THEN
FOR i = 1 TO n
PRINT a(i);
NEXT i: PRINT STRING$(4, “ “);
ELSE
FOR i = t + 1 TO N
SWAP a(t + 1), a(i)
CALL per(t + 1)
SWAP a(t + 1), a(i)
NEXT i
END IF
END SUB

Заранее буду очень признателен!

[Alex11223]

Что такое "логика задачи"?)

[justgo]

Ну тоесть как своими словами описать что происходит в задаче, логика

[justgo]

Ну вот как ПРИМЕР

Задача 3.
Даны координаты двух полей шахматной доски (в виде двух пар чисел от 1 до 8). Определить, может ли шахматный король одним ходом перейти с одного заданного поля на другое.

Описание алгоритма: Проверяем, находятся ли вторая из клеток по соседству с первой. Первое условие оператора IF проверяет, находятся ли клетка, на которую необходимо идти на одной из 4 диагональных клеток, условие 2 на соседних горизонтальных клетках, условие 3 на соседних вертикальных.

[Alex11223]

Вы не знаете что делает ваша программа?)

[justgo]

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

[justgo]

Всё ясно, либо тут никто не понимает, либо помощи не жди...