Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
fidesxfx
9 / 9 / 2
Регистрация: 21.05.2012
Сообщений: 53
1

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

21.05.2012, 15:40. Просмотров 1476. Ответов 4
Метки нет (Все метки)

Здравствуйте , собственно суть задачи:
Надо написать программу которая находит все возможные комбинации чисел которые можно получить из одного числа.
Например: Вводим число 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.
ответ был дан в виде программного кода на Паскале, теперь же мне надо сделать это в VBA. Все мои усилия уходят в некуда, если кому не сложно помогите переписать даный код на код VBA/

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

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.05.2012, 15:40
Ответы с готовыми решениями:

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

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

Получить все возможные комбинации чисел
Доброго дня! Подскажите, как реализовать макрос? есть такие числа: "1" - 46 раз "2" - 64 раза...

В Excel дан столбец чисел, найти среднее этих чисел и выделить красным цветом те числа, которые больше среднего
Дан столбец чисел. Найти среднее этих чисел и выделить красным цветов те числа, которые больше...

Найти среди чисел те, которые являются квадратами некоторого числа m
Даны целые положительные числа a1, a2, ..., аn. Найти среди них те, которые являются квадратами...

4
Казанский
14338 / 5950 / 1576
Регистрация: 24.09.2011
Сообщений: 9,368
21.05.2012, 15:54 2
Тупо перевел - как ни странно, работает Запускать main, результат в окне Immediate
Visual Basic
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
Dim S$, N&
 
Sub SwapChar(a&, b&)
Dim c$
  c = Mid$(S, a, 1): Mid$(S, a) = Mid$(S, b, 1): Mid$(S, b, 1) = c
End Sub
 
Sub Generate(k&)
Dim i&
  If k = N Then
    Debug.Print S
  Else
    For i = k + 1 To N
      SwapChar k + 1, i
      Generate k + 1
      SwapChar k + 1, i
    Next
  End If
End Sub
 
Sub main()
  S = InputBox("S=")
  N = Len(S)
  Generate 0
End Sub
2
fidesxfx
9 / 9 / 2
Регистрация: 21.05.2012
Сообщений: 53
21.05.2012, 16:58  [ТС] 3
Позвольте уточнить єто код для Visual Basic или VBA. Потому как я не совсем понимаю где выходной результат, и где мне искать окно Immediate. Я канешно VBA знаю не очень хорошо, но из написаного кода я непонимаю больше половины )
0
Казанский
14338 / 5950 / 1576
Регистрация: 24.09.2011
Сообщений: 9,368
21.05.2012, 17:05 4
Цитата Сообщение от fidesxfx Посмотреть сообщение
где мне искать окно Immediate
Ctrl+G в окне редактора VBA.
1
fidesxfx
9 / 9 / 2
Регистрация: 21.05.2012
Сообщений: 53
21.05.2012, 17:12  [ТС] 5
Спасибо вам за помощь
0
21.05.2012, 17:12
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.05.2012, 17:12

Найти все трехзначные числа, которые можно представить разностью между квадратом первых двух цифр и квадратом
Найти все трехзначные числа, которые можно представить разностью между квадратом первых двух цифр и...

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

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


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

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

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