Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
236 / 134 / 62
Регистрация: 29.07.2018
Сообщений: 1,044
1

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

09.07.2019, 08:27. Просмотров 1218. Ответов 9
Метки нет (Все метки)

Написать программу,которая будет выводить на экран все возможные варианты слов(любых,если даже такого слова нет)из данных букв 'abcdefghijklmnopqrstuvwxyz'
Заранее спасибо)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.07.2019, 08:27
Ответы с готовыми решениями:

Заменить все вопросительные знаки цифрами (от 1 до 9), перевести строку в число, вывести все возможные варианты
Дана строка состоящая из цифр и вопросительных знаков. Длина строки от 1 до 9 символов. Цель:...

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

Все возможные комбинации
Заданы два числа a, b (записаны в одной строке). Где 1<=a<=1032, 1<=b<=1050 Нужно получить все...

Все возможные варианты строки
Как из одной строки получить все возможные варианты? например так: Цитата: первая строка API...

9
1292 / 691 / 328
Регистрация: 07.04.2017
Сообщений: 2,867
09.07.2019, 09:40 2
А букв сколько?
0
163 / 94 / 70
Регистрация: 15.12.2016
Сообщений: 199
09.07.2019, 09:58 3
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.
1
236 / 134 / 62
Регистрация: 29.07.2018
Сообщений: 1,044
09.07.2019, 10:00  [ТС] 4
Sun Serega, 26

Добавлено через 1 минуту
AndrewLis, спасибо
0
1292 / 691 / 328
Регистрация: 07.04.2017
Сообщений: 2,867
09.07.2019, 15:32 5
Цитата Сообщение от Пс Посмотреть сообщение
Sun Serega, 26
Я имел в виду в длине слова... Ну, вам уже ответили.
0
236 / 134 / 62
Регистрация: 29.07.2018
Сообщений: 1,044
09.07.2019, 15:44  [ТС] 6
Sun Serega, длина слова не определена.
А можно как-то по другому сделать?
Например что бы было так:
a
a,b
b,a
a,c
c,a
И т.д.
Т.е. все варианты с буквой "а" -длина слова =2,когда варианты с буквой "а" закончились,то тоже самое проделывается со следующей буквой алфавита.когда все варианты со словами длинат которых=2закончатся,то длина слова =3 и будет примерно так:
abc
acb
И т.д.
0
3737 / 1779 / 1963
Регистрация: 10.12.2014
Сообщений: 6,907
09.07.2019, 17:57 7
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.
Алфавит сделаете сами!
0
236 / 134 / 62
Регистрация: 29.07.2018
Сообщений: 1,044
09.07.2019, 18:23  [ТС] 8
JuriiMW, спасибо.
Алфавит типа переменную "а" дополнить?
0
3737 / 1779 / 1963
Регистрация: 10.12.2014
Сообщений: 6,907
09.07.2019, 18:27 9
Что за глупые вопросы?
0
236 / 134 / 62
Регистрация: 29.07.2018
Сообщений: 1,044
09.07.2019, 18:29  [ТС] 10
JuriiMW, какой я,такие и вопросы)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.07.2019, 18:29

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

Соберите все возможные варианты ожерелья
Для принцесы Будур заказано волшебное ожерелье из бусин, котрое должно излечить её. Бусины помечены...

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

Подсчитать все возможные варианты судоку
Лома голову, как посчитать все возможные варианты судоку. Как при этом описать правило, которое...

Вывести все возможные варианты значений
Помогите решить следующую проблему: Имеется 14 столбцов; в ячейке каждого из столбцов может...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.