Все возможные варианты

@Пс · Регистрация: 29.07.2018

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

Написать программу,которая будет выводить на экран все возможные варианты слов(любых,если даже такого слова нет)из данных букв 'abcdefghijklmnopqrstuvwxyz'
Заранее спасибо)

@Sun Serega · 09.07.2019, 09:40

А букв сколько?

@AndrewLis · 09.07.2019, 09:58

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
// Программа выводит все слова, длинa которых не превышает n.
 
const
  abc = 'abcdefghijklmnopqrstuvwxyz';
 
procedure words(s: string; n: integer);
 
begin
  for var i := 1 to 26 do
  begin
    writeln(s + abc[i]);
    if n > 1 then words(s + abc[i], n - 1);
  end;
end;
 
begin
  words('', 3);
end.

Если нужна фиксированная длина слов, то вот:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
const
  abc = 'abcdefghijklmnopqrstuvwxyz';
 
procedure words(s: string; n: integer);
 
begin
  for var i := 1 to 26 do
    if n > 1 then
      words(s + abc[i], n - 1)
    else
      writeln(s + abc[i]);
end;
 
begin
  words('', 3);
end.

@Пс · 09.07.2019, 10:00 **[ТС]**

Sun Serega, 26

Добавлено через 1 минуту
AndrewLis, спасибо

@Sun Serega · 09.07.2019, 15:32

Сообщение от Пс

Sun Serega, 26

Я имел в виду в длине слова... Ну, вам уже ответили.

@Пс · 09.07.2019, 15:44 **[ТС]**

Sun Serega, длина слова не определена.
А можно как-то по другому сделать?
Например что бы было так:
a
a,b
b,a
a,c
c,a
И т.д.
Т.е. все варианты с буквой "а" -длина слова =2,когда варианты с буквой "а" закончились,то тоже самое проделывается со следующей буквой алфавита.когда все варианты со словами длинат которых=2закончатся,то длина слова =3 и будет примерно так:
abc
acb
И т.д.

@JuriiMW · 09.07.2019, 17:57

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
begin
  var a:='abcdef';
  var s:String:=a.First;
  repeat
    s.Println;var n:=s.Length;var p:=a.IndexOf(s[n])+1;
    while (p=a.Length)and(n>0) do
      begin
        s[n]:=a.First;n-=1;if n>0 then p:=a.IndexOf(s[n])+1;
      end;
    if n=0 then s+=a.First else s[n]:=a[p+1];
  until false;
end.

Алфавит сделаете сами!

@Пс · 09.07.2019, 18:23 **[ТС]**

JuriiMW, спасибо.
Алфавит типа переменную "а" дополнить?

@JuriiMW · 09.07.2019, 18:27

Что за глупые вопросы?

@Пс · 09.07.2019, 18:29 **[ТС]**

JuriiMW, какой я,такие и вопросы)

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .

@Пс 257 / 149 / 70 Регистрация: 29.07.2018 Сообщений: 1,249

	Все возможные варианты 09.07.2019, 08:27. Показов 2053. Ответов 9 Метки нет (Все метки) Написать программу,которая будет выводить на экран все возможные варианты слов(любых,если даже такого слова нет)из данных букв 'abcdefghijklmnopqrstuvwxyz' Заранее спасибо) 0

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	09.07.2019, 09:40
	А букв сколько? 0

@Пс 257 / 149 / 70 Регистрация: 29.07.2018 Сообщений: 1,249
	09.07.2019, 10:00 [ТС]
	Sun Serega, 26 Добавлено через 1 минуту AndrewLis, спасибо 0

@Пс 257 / 149 / 70 Регистрация: 29.07.2018 Сообщений: 1,249
	09.07.2019, 15:44 [ТС]
	Sun Serega, длина слова не определена. А можно как-то по другому сделать? Например что бы было так: a a,b b,a a,c c,a И т.д. Т.е. все варианты с буквой "а" -длина слова =2,когда варианты с буквой "а" закончились,то тоже самое проделывается со следующей буквой алфавита.когда все варианты со словами длинат которых=2закончатся,то длина слова =3 и будет примерно так: abc acb И т.д. 0

@Пс 257 / 149 / 70 Регистрация: 29.07.2018 Сообщений: 1,249
	09.07.2019, 18:23 [ТС]
	JuriiMW, спасибо. Алфавит типа переменную "а" дополнить? 0

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,060
	09.07.2019, 18:27
	Что за глупые вопросы? 0

@Пс 257 / 149 / 70 Регистрация: 29.07.2018 Сообщений: 1,249
	09.07.2019, 18:29 [ТС]
	JuriiMW, какой я,такие и вопросы) 0

Опции темы