следующая тема »

[07 Ноябрь 2025, 04:13:05]

Новости, реклама:

[07 Ноябрь 2025, 04:13:05]

Новости, реклама:

[luybeznov]

как сделать программу перестановка слов в предложении для Pascal используя не рекурсивный алгоритм чтобы не повторялись одинаковые перестановки?
я в этом совсем не разбираюсь.
очень очень нужно!
помогите написать код

[Sven4uk]

Засунь все слова из предложения в массив. Потом генерируй пермутации в лексикографической последовательности и для каждой пермутации печатай соответственные слова из массива.

Алгоритм для генерирования пермутаций:

The following algorithm generates the next permutation lexicographically after a given permutation. It changes the given permutation in-place.

1. Find the largest index k such that a[k] < a[k + 1]. If no such index exists, the permutation is the last permutation.
2. Find the largest index l such that a[k] < a[l]. Since k + 1 is such an index, l is well defined and satisfies k < l.
3. Swap a[k] with a[l].
4. Reverse the sequence from a[k + 1] up to and including the final element a[n].

Это если нету одинаковых слов в предложении или можно, чтобы 2 предложения одинаковых получились.