Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.06.2021, 23:24   #1
canadamoscow
Пользователь
 
Аватар для canadamoscow
 
Регистрация: 16.05.2020
Сообщений: 57
По умолчанию Перестановки букв в слове КОМАР

Вывести все перестановки букв слова 'КОМАР' (Комбинаторика. Перестановки)
Код:
Procedure Per(s0,s: string);
begin
  if length(s) = 1 then Writeln(s0+s)
  else  
    for var i:=1 to length(s) do 
      Per(s0+s[i], s.Remove(i-1,1))    // Per(s0+s[i],copy(s,1,i-1) + copy(s,i+1,length(s)))
end;
  
begin
  Per('','КОМАР')
end.

Последний раз редактировалось canadamoscow; 22.06.2021 в 09:59.
canadamoscow вне форума Ответить с цитированием
Старый 21.06.2021, 23:40   #2
canadamoscow
Пользователь
 
Аватар для canadamoscow
 
Регистрация: 16.05.2020
Сообщений: 57
По умолчанию

По старинке выглядит так
Код:
var a := 'КОМАР'.ToCharArray;     // var a: array[0..4] of char := ('К','О','М','А','Р');  
  
procedure Perebor(L, R:integer);
begin
  if L=R then 
    a.Println                     // begin for var i := 0 to 4 do Write(a[i]); Writeln end
  else 
    for var i := L to R do begin
       Swap(a[L], a[i]);
       Perebor(L+1, R);
       Swap(a[L], a[i]);
    end;
end;
 
begin
   Perebor(0,a.Count-1);      // Perebor(0,4);
end.

Последний раз редактировалось canadamoscow; 22.06.2021 в 09:57.
canadamoscow вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужно написать программу перестановки букв на Си Krambel Общие вопросы C/C++ 1 12.11.2020 20:39
C++, перестановка букв в слове Александр222 Помощь студентам 4 15.04.2020 17:14
Комбинации букв в слове Palto Помощь студентам 4 24.04.2014 18:24
статистика букв в одном слове Тамерлан Абилов Помощь студентам 6 03.03.2013 19:01