Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Пс
62 / 42 / 23
Регистрация: 29.07.2018
Сообщений: 501
1

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

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

Написать программу,которая будет выводить на экран все возможные варианты слов(любых,если даже такого слова нет)из данных букв 'abcdefghijklmnopqrstuvwxyz'
Заранее спасибо)
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.07.2019, 08:27
Ответы с готовыми решениями:

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

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

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

Вычислить все возможные комбинации символов
Нужно вычислить на паскале все возможные комбиации из пяти четырёхзначных символов без повторений....

Определить все возможные комбинации кода
Код содержит буквы a,b,d,e,z,i,o,c,t. Код состоит из 4 букв: 1 буква - гласная, 2 буква - b, 3...

9
StudAssistant
Эксперт
9811 / 7003 / 2319
Регистрация: 17.04.2006
Сообщений: 9,622
09.07.2019, 08:27
Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.
9
Sun Serega
513 / 388 / 207
Регистрация: 07.04.2017
Сообщений: 1,740
09.07.2019, 09:40 2
А букв сколько?
0
AndrewLis
128 / 69 / 59
Регистрация: 15.12.2016
Сообщений: 168
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
Пс
62 / 42 / 23
Регистрация: 29.07.2018
Сообщений: 501
09.07.2019, 10:00  [ТС] 4
Sun Serega, 26

Добавлено через 1 минуту
AndrewLis, спасибо
0
09.07.2019, 10:00
Sun Serega
513 / 388 / 207
Регистрация: 07.04.2017
Сообщений: 1,740
09.07.2019, 15:32 5
Цитата Сообщение от Пс Посмотреть сообщение
Sun Serega, 26
Я имел в виду в длине слова... Ну, вам уже ответили.
0
Пс
62 / 42 / 23
Регистрация: 29.07.2018
Сообщений: 501
09.07.2019, 15:44  [ТС] 6
Sun Serega, длина слова не определена.
А можно как-то по другому сделать?
Например что бы было так:
a
a,b
b,a
a,c
c,a
И т.д.
Т.е. все варианты с буквой "а" -длина слова =2,когда варианты с буквой "а" закончились,то тоже самое проделывается со следующей буквой алфавита.когда все варианты со словами длинат которых=2закончатся,то длина слова =3 и будет примерно так:
abc
acb
И т.д.
0
JuriiMW
2389 / 1328 / 1725
Регистрация: 10.12.2014
Сообщений: 5,240
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
Пс
62 / 42 / 23
Регистрация: 29.07.2018
Сообщений: 501
09.07.2019, 18:23  [ТС] 8
JuriiMW, спасибо.
Алфавит типа переменную "а" дополнить?
0
JuriiMW
2389 / 1328 / 1725
Регистрация: 10.12.2014
Сообщений: 5,240
09.07.2019, 18:27 9
Что за глупые вопросы?
0
Пс
62 / 42 / 23
Регистрация: 29.07.2018
Сообщений: 501
09.07.2019, 18:29  [ТС] 10
JuriiMW, какой я,такие и вопросы)
0
09.07.2019, 18:29
StackOverflow
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.07.2019, 18:29

Вычислить все возможные ходы ферзём
вычислить все возможные ходы ферзём

Сгенерировать все возможные комбинации цифр
Здравствуйте! Подскажите, как сгенерировать все возможные комбинации типа 0-4 - возможные числа...

Как вывести все возможные последовательности?
var M, N, i: byte; X: array of integer; Yes: boolean; procedure Next(var X: array of...


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

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

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