Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.87/15: Рейтинг темы: голосов - 15, средняя оценка - 4.87
25 / 25 / 5
Регистрация: 21.11.2013
Сообщений: 208
1

Вывести все возможные перестановки N заданных цифр, формируя при этом последовательность из K цифр

19.12.2013, 23:34. Показов 3078. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дана задача:
Вывести все возможные перестановки N заданных цифр формируя при этом последовательность из K цифр. Начиная с заданной расстановки, расстановка цифр должна формироваться по принципу спидометра - левая цифра изменяется реже правой. Цифры перебираются по правому кругу в порядке их записи в исходном файле.
Входные данные:
Во входном потоке в первой строке дано натуральное число N (N <= 6) и K (K <= N), во второй - N различных цифр, перечисленные через пробел.

Выходные данные:
В выходной поток вывести в столбик по K цифр, разделяя их пробелом, все возможные перестановки из заданных цифр.

Пример входного файла (input.txt):
3 2
1 3 6
Пример выходного файла (output.txt):
1 3
1 6
3 1
3 6
6 1
6 3

Хотел бы узнать как решать эту задачу. Был бы признателен в высшей мере за готовый код, ибо сам не знаю с какой стороны подходить
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.12.2013, 23:34
Ответы с готовыми решениями:

Вывести все возможные трехзначные числа, полученные путем перестановки цифр трехзначного числа
Ребята, хелп!!! Выведите на экран все возможные трехзначные числа, полученные путем перестановки...

Найти все возможные перестановки цифр
дано 6-розрядное число...надо найти все возможные перестановки цыфр...как ето...

Составить все возможные 4-х значные числа из заданных цифр
Имеются цифры 0, 1, 2, 3. Сколько можно составить 4-х значных чисел и вывести их

Ввести число. Используя рекурсивную функцию, получить все возможные перестановки цифр этого числа
Помогите пожалоста..........Заранеє спасибо

2
1646 / 1075 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
20.12.2013, 17:25 2
Лучший ответ Сообщение было отмечено max_besheniy как решение

Решение

Как можно просчитать(получить) количество возможных вариантов с преставлением местами символов в строке без повторений?
Там только добавить функциональность чтения/записи в файл.
(Запись в файл делать в той строке, где происходит вывод значения на экран)

Добавлено через 4 минуты
Я наверное зря там запостил код - там вроде как теоретический раздел (не посмотрел).
Выложу сюда, а то еще там могут удалить:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Function Del(St : String;Index : Byte;Count :Byte) : String;
Var SS : String;
Begin
  SS:=St;
  Delete(SS,Index,Count);
  Del:=SS;
End;
 
Procedure Ck(Nm : Byte; Sm : String;sss : String);
Var
  i : Byte;
Begin
  If Nm=0 then Writeln(sss)
   else
    For i:=1 to Length(Sm) do
      If (Nm>0) then
        Ck(Nm-1, Del(Sm,i,1), sss+Sm[i]);
End;
 
Begin
  Ck(5,'12345','');
End.
1
25 / 25 / 5
Регистрация: 21.11.2013
Сообщений: 208
20.12.2013, 19:34  [ТС] 3
Спасибище!
0
20.12.2013, 19:34
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.12.2013, 19:34
Помогаю со студенческими работами здесь

Комбинаторика, из заданных цифр нужно составить все возможные четырехзначные комбинации
Всем доброго времени суток. Есть такая задача: из цифр 2 3 5 6 8 9 нужно составить все возможные...

Функция которая выводит на экран все возможные комбинации заданных цифр
***Напишите функцию, которая принимает массив цифр и количество цифр и выводит на экран все...

Выведите на экран все возможные трехзначные числа, полученные путем перестановки цифр трехзначного числа, вводимого с клавиатуры
Выведите на экран все возможные трехзначные числа, полученные путем перестановки цифр трехзначного...

Вывести все возможные числа из нескольких цифр
Необходимо вывести все возможные числа из цифр: 1,2,3,4,5 - начиная от цифры &quot;23 000&quot;. Спасибо за...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru