Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 01.12.2012
Сообщений: 5
1

Генерация подмножеств заданной размерности

01.12.2012, 15:17. Показов 1374. Ответов 3
Метки нет (Все метки)

Уважаемые,я хотел бы обратиться к вам с просьбой: помочь решить данную задачу по Pascal...
На одном из занятий на дали код программы который выводит все какие только возможны комбинации(подмножества) цифр из числа 10 (1; 1,2; 1,2,3;1,2,3,4;2,2,4,5,...и.т.д)
Наша задача заключается в следующем,переделать этот код программы,чтобы он выводил только те числа,разряд которых мы укажем....(например ввели число 3, Результат программы будет 3-значное число 2,3,5,ввели число 5 выведет все числа которые состоят из 5-значных элементов 1,3,4,5,2)
Вот тот самый код:

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
Program AllSubsest;
const n=10;
Type NumSet=array[1..n] of byte;
var A,B:NumSet;
i,j:integer;
Procedure WriteSubSet(j:integer);
var i:integer;
begin
writeln;write('/');
for i:=1 to j do write(b[i],'/');
end;
Procedure SubSet (k:integer);
begin
if k<=N
then begin
Inc(j);
b[j]:=a[k];
WriteSubSet(j);
SubSet (k+1);
Dec(j);
SubSet(k+1);
end
end;
begin
for i:=1 to N do A[i]:=i;
j:=0;
SubSet(1)
end.
Очень прошу разобраться в данной задачи,и помочь её решить...заранее огромное спасибо!!!!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.12.2012, 15:17
Ответы с готовыми решениями:

генерация подмножеств и дерево Штейнера
Добрый вечер, нужна помощь, я учу C#, нужно написать 2 программы, не знаю, с чего начать,...

Генерация к-подмножеств из множества с n элементами
Ребят, такой вопрос, не могу переделать код c Pascal на C. Генерация k-подмножеств из множества с n...

Генерация всех подмножеств множества
Создать програму которая будет генерировать все подмножества множества

Delphi и Phyton генерация подмножеств
Помогите с заданием : &quot;Генерировать все подмножества заданного N-элементного множества&quot; в делфи и...

3
Модератор
63381 / 47074 / 32446
Регистрация: 18.05.2008
Сообщений: 114,106
01.12.2012, 15:29 2
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
31
32
uses crt;
const n=6;
      m=3;//задаете или вводите количество цифр
Type NumSet=array[1..n] of byte;
var A,B:NumSet;
i,j:integer;
Procedure WriteSubSet(j:integer);
var i:integer;
begin
if j=m then
 begin
  for i:=1 to j do write(b[i],'/');
  writeln;
 end;
end;
Procedure SubSet (k:integer);
begin
if k<=n
then begin
Inc(j);
b[j]:=a[k];
WriteSubSet(j);
SubSet (k+1);
Dec(j);
SubSet(k+1);
end
end;
begin
for i:=1 to N do A[i]:=i;
j:=0;
SubSet(1)
end.
1
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 8,029
Записей в блоге: 1
01.12.2012, 15:32 3
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
Program AllSubsest;
const n=10;m=5;
Type NumSet=array[1..n] of byte;
var A,B:NumSet;
i,j:integer;
Procedure WriteSubSet(j:integer);
var i:integer;
begin
writeln;write('/');
for i:=1 to j do write(b[i],'/');
end;
Procedure SubSet (k:integer);
begin
if k<=N
then begin
Inc(j);
b[j]:=a[k];
if j=m then WriteSubSet(j);
SubSet (k+1);
Dec(j);
SubSet(k+1);
end
end;
begin
for i:=1 to N do A[i]:=i;
j:=0;
SubSet(1)
end.
Ну вроде так...m - это сколки значное числое
1
0 / 0 / 0
Регистрация: 01.12.2012
Сообщений: 5
01.12.2012, 18:09  [ТС] 4
Спасибо большущее,за Ваш ответ,он очень мне помог!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.12.2012, 18:09

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

Генерация подмножеств множества(Бинарный код)
Алгоритмы теории множеств нередко применяются в программировании. В этой статье я хочу поговорить о...

Генерация всех подмножеств данного множества
Друзья, помогите написать программку в консольном приложении VS 2008, задание такое: Генерация...

Генерация всех подмножеств заданного n-элементного множества
помогите найти ошибку в коде задание было &quot;Генерировать все подмножества заданного N-элементного...

Генерация всех подмножеств n-элементного множества (Pascal -> Delphi)
var n,i:integer; a:array of integer; begin write('n = '); readln(n); SetLength(a,n+1); while...


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

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

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