Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/30: Рейтинг темы: голосов - 30, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 09.11.2011
Сообщений: 15
1

нахождение все возможных комбинации чисел которые можно получить из одного числа.

19.11.2011, 21:52. Показов 5545. Ответов 2
Метки нет (Все метки)

Помогите плиз написать программу которая находит все возможные комбинации чисел которые можно получить из одного числа.
Например: Вводим число 1234
Программа должна выдавать 24 числа : 1243, 1324, 1342, 1423, 1432 ...
Жду ответа
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.11.2011, 21:52
Ответы с готовыми решениями:

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

Найти всевозможные комбинации чисел, которые можно получить из одного числа
Здравствуйте , собственно суть задачи: Надо написать программу которая находит все возможные...

Найдите все числа от 1 до n, которые можно получить суммой различных степеней тройки
Помогите пожалуйста) Найдите все числа от 1 до n, которые можно получить суммой различных ...

Найти количество различных чисел, которые можно получить из числа ровно за C команд
#include <iostream> using namespace std; int c(int x, int y) { if (x == y || y == 0) return 1;...

2
110 / 110 / 72
Регистрация: 13.10.2011
Сообщений: 227
19.11.2011, 22:05 2
Лучший ответ Сообщение было отмечено wikikino как решение

Решение

Цитата Сообщение от wikikino Посмотреть сообщение
Помогите плиз написать программу которая находит все возможные комбинации чисел которые можно получить из одного числа.
Например: Вводим число 1234
Программа должна выдавать 24 числа : 1243, 1324, 1342, 1423, 1432 ...
Жду ответа
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
var
  S: String;N: Integer; 
 
procedure SwapChar(a, b: byte);
var
  c: Char; 
begin
  c := S[a]; S[a] := S[b]; S[b] := c; 
end;
 
procedure Generate(k: Integer);
var
  i: Integer; 
begin
  if k = N then WriteLn(S) 
  else begin
    for i := k + 1 to N do 
    begin
      SwapChar(k + 1, i); 
      Generate(k + 1); 
      SwapChar(k + 1, i); 
    end; 
  end; 
end;
 
begin
  ReadLn(S); 
  N := Length(S); 
  Generate(0); 
end.
0
0 / 0 / 0
Регистрация: 09.11.2011
Сообщений: 15
19.11.2011, 22:12  [ТС] 3
Спасибо большое за помощь
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.11.2011, 22:12

Получить все возможные варианты трехзначных чисел, которые можно составить из двух заданных
Заданы две цифры от 0 до 9. Получить все возможные варианты трехзначных чисел, которые можно...

Получить все возможные варианты трёхзначных чисел, которые можно составить из двух заданных
Помогите. Заданы две цифры от 0 до 9. Получите все возможные варианты трёхзначных чисел,которые...

Даны натуральные числа n и m. Среди чисел n, n+1, ... , m найти все те, которые можно представить в виде суммы квадратов двух натуральных чисел
Здравствуйте. Помогите пожалуйста написать код к следующей задаче: Даны натуральные числа n и m....

Получить все возможные комбинации чисел
есть числа подскажите, пожалуйста, как при помощи средств delphi можно получить все их возможные...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru